[Antidelphik]

здравствуйте форумчане, помогите пожалуйста исправить ошибку

Код:

[Error] Unit1.pas(43): For loop control variable must be simple local variable

не понимаю просто что это значит, вроде код нормальный

Код:

procedure TForm1.Button1Click(Sender: TObject);
 procedure Flag(x,y:integer);
  begin
   with image1.Canvas do
    begin
     pen.Color:=clBlack;
     brush.Color:=clWhite;
     Rectangle(x,y,x+image1.Width div 2,y-image1.Height div 2);
    end;
  end;
var i,j:integer;
begin
 for i:=0 to image1.Width div 2 do
  for j:=image1.Height div 2 downto 0 do
   begin
    Flag(i,j);
    for i=image1.Height div 6 to image1.Height div 3 do
      brush.Color:=clBlue;
    for i:=image1.Height div 3 to image1.Height div 2 do
      brush.Color:=clRed;
   end;

end;

end.

ошибку пишет в строке

Код:

 for i=image1.Height div 6 to image1.Height div 3 do

[Raskolnikov]

Переменная-счетчик может бытьиспользована только в одном цикле for, причем она не должна в его пределах изменяться. Объяви еще две целочисленные переменные, и используй их для вложенных циклов.

[PhoeniX]

Код:

var i,j,k:integer;
begin
  for i:=0 to image1.Width div 2 do
   for j:=image1.Height div 2 downto 0 do
    begin
     Flag(i,j);
     for k:=image1.Height div 6 to image1.Height div 3 do
       brush.Color:=clBlue;
     for k:=image1.Height div 3 to image1.Height div 2 do
       brush.Color:=clRed;
    end;

[hatsub]

Сообщение от Antidelphik

ошибку пишет в строке

Код:

 for i=image1.Height div 6 to image1.Height div 3 do

По-моему оператор присваивания написан без ":"

for i:=image1.Height div 6 to

[Antidelphik]

Спасибо, теперь у меня другая проблема, всё нормально, запускается, но когда нижимаю кнопку для пуска анимации выходит окнос ошибкой

Код:

Project Project1 raised exception class EInvalidOperation with message 'can only modifi an image if it contains a bit map'.

Process stopped.  Use Step or Run to continue.

И эта зараза у меня вылетает не только на этой программе, но и на остальных которые я пишу на делфи, как мне её исправить? я из-за неё работать не могу

[Aristarh Dark]

Судя по всему ты загружаешь в Имидж картинку из файла, причем она меньше реальных размеров Имиджа и пытаешься рисовать за пределами загруженной картинки.

[Antidelphik]

Aristarh Dark да загружаю, но у меня картинка больше image и я подстраиваю Stretch-true, это разве не должно помочь?

[Aristarh Dark]

Нет, не должно.
Тут все дело в размерах. У тебя размеры имиджа не соответствуют размерам картинки. Сделай их одинаковыми и скорее всего заработает.

[Antidelphik]

я решила всё таки убрать картинку и просто залить image цветом, но теперь у меня при запуске и после нажатия на кнопку "анимация " просто серое окно, и ещё exe подвисает когда я его закрыть пытаюсь или повторно на кнопку нажать, потом правда всё равно выходит, вот код переделанный

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (x,y:integer);
 begin
  with image1.Canvas do
   begin
    pen.Color:=clBlack;
    brush.Color:=clWhite;
    rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
   end;
 end;

var i,j,k:integer;
begin
 with image1.Canvas do
  begin
   brush.Color:=clBlack;
   Fillrect(Image1.ClientRect);
   for i:=0 to image1.Width div 2 do
    for j:=image1.Height div 2 downto 0 do
      begin
        Flag(i,j);
        for k:=image1.Height div 6 to image1.Height div 3 do
          brush.Color:=clBlue;
        for k:=image1.Height div 3 to image1.Height div 2 do
          brush.Color:=clRed;
      end;
  end;

end;

[Aristarh Dark]

Добавил 1 строчку:

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (x,y:integer);
 begin
  with image1.Canvas do
   begin
    pen.Color:=clBlack;
    brush.Color:=clWhite;
    rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
    Application.ProcessMessages;
   end;
 end;

var i,j,k:integer;
begin
 with image1.Canvas do
  begin
   brush.Color:=clBlack;
   Fillrect(Image1.ClientRect);
   for i:=0 to image1.Width div 2 do
    for j:=image1.Height div 2 downto 0 do
      begin
        Flag(i,j);
        for k:=image1.Height div 6 to image1.Height div 3 do
          brush.Color:=clBlue;
        for k:=image1.Height div 3 to image1.Height div 2 do
          brush.Color:=clRed;
      end;
  end;

end;

[Aristarh Dark]

ИМХО, какая-то хрень рисуется. Но возможно в этом есть некий глубокий смысл...

[Antidelphik]

блин, должен быть флаг =(

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (x,y:integer);
var k:integer;
 begin
  with image1.Canvas do
   begin
    pen.Color:=clBlack;
    brush.Color:=clWhite;
    rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
    for k:=y-image1.Height div 6 downto y do
     brush.Color:=clBlue;
    for k:=y-image1.Height div 3 downto y-image1.Height div 6 do
     brush.Color:=clRed;
   end;
 end;

var i,j:integer;
begin
 with image1.Canvas do
  begin
   brush.Color:=clSilver;
   Fillrect(Image1.ClientRect);
   for i:=0 to image1.Width div 2 do
    for j:=image1.Height div 2 downto 0 do
      begin
        Flag(i,j);
      end;
  end;

end;

я только ещё твою строчку не добавляла, почему то вылазит при запуске image наполовину черный, на половину серый

[Antidelphik]

Aristarh Dark помоги пожалуйста =((..

[Aristarh Dark]

Вот такой флаг?

[Antidelphik]

Он у мну не открылся =( я тут поэкспериментировала с прозрачным фоном, на один image поместила второй такой же, тока фон ему прозрачный задала, а на нижний фон сунула картинку, всё норм, фон восстанавливается, а сам флаг безобразного цвета, плюс на 4м цикле цвета вообще пропадают, в общем кидаю код чтобы понятнее было =) Подскажи пожалуйста как сделать чтобы уже нормально было

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (x,y:integer);
  begin
   with image2.Canvas do
    begin
     Pen.Color:=clBlack;
     Brush.Color:=clWhite;
     rectangle(x,y,x+image1.Width div 2,y-image1.Height div 2);
     brush.Color:=clBlue;
     rectangle(x,y-image1.Height div 6,x+image1.Width div 2,y-image1.Height div 3);
     Brush.Color:=clRed;
     rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
    end;
  end;

var i,j:integer;
begin
 with image2.Canvas do
  begin
   image2.Transparent:=true;
   fillrect(image1.ClientRect);
   Form1.DoubleBuffered:=true;
   pen.Mode:=pmXOR;
   for i:=0 to image1.Width div 2 do
     begin
      Flag(i,image1.Height div 2);
      application.ProcessMessages;
      image2.Transparent:=true;
      fillrect(image1.ClientRect);
     end;

   for j:=image1.Height div 2 to image1.Height do
    begin
     Flag(i,j);
     application.ProcessMessages;
     image2.Transparent:=true;
     fillrect(image1.ClientRect);
    end;

   for i:=image1.Width div 2 downto 0 do
    begin
     Flag(i,j);
     application.ProcessMessages;
     image2.Transparent:=true;
     fillrect(image1.ClientRect);
    end;

   for j:=image1.Height downto image1.Height div 2 do
    begin
     Flag(i,j);
     application.ProcessMessages;
     image2.Transparent:=true;
     fillrect(image1.ClientRect);
     Flag(i,j);
    end;
  end;
end;

end.