[Antidelphik]

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

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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.

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

Код:

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

[Raskolnikov]

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

[PhoeniX]

Код:

1 2 3 4 5 6 7 8 9 10 11

var i,j<font color="Red">,k</font>: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 <font color="Red">k</font>:=image1.Height div 6 to image1.Height div 3 do        brush.Color:=clBlue;      for <font color="Red">k</font>:=image1.Height div 3 to image1.Height div 2 do        brush.Color:=clRed;     end;

[hatsub]

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

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

Код:

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

for i:=image1.Height div 6 to

[Antidelphik]

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

Код:

1 2 3

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 подвисает когда я его закрыть пытаюсь или повторно на кнопку нажать, потом правда всё равно выходит, вот код переделанный

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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 строчку:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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);     <b><font color="Red">Application.ProcessMessages;</font></b>    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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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м цикле цвета вообще пропадают, в общем кидаю код чтобы понятнее было =) Подскажи пожалуйста как сделать чтобы уже нормально было

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

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.