|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ошибки в программе с НЛО
Sorry за флуд конечно милая администрация, но у меня опять проблема с кодом
Код:
implementation {$R *.dfm} var clr:TColor=clGreen; procedure TForm1.Timer1Timer(Sender: TObject); begin if clr:=clGreen then clr:=clYellow else clr:=clGreen; end; procedure TForm1.Button1Click(Sender: TObject); var i:word; c:TColor; procedure Ufo(x,y:integer; c:TColor); begin With Image1.Canvas do begin brush.Color:=c; Pen.Color:=clBlue; Pen.Width:=3; ellipse(x,y,x+20,y+10); end; end; begin Form1.DoubleBuffered:=true; with Image1.Canvas do begin Brush.Color:=clBlack; brush.Style:=bsSolid; Fillrect(Image1.ClientRect); for i:=1 to 500 do Pixels[RANDOM(Image1.Width),RANDOM(Image1.Height)]:=clWhite; Pen.Mode:=pmNOTXOR; for i:=1 to 500 do begin c:=clr; Ufo(i,i div 2,c); Application.ProcessMessages; sleep(10); Ufo(i,i div 2,c); end; end; end; end. ошибки выделила красным |
#2
|
||||
|
||||
Код:
type TForm1 = class(TForm) procedure Ufo(x,y:integer; c:TColor); private Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin if clr = clGreen then clr := clYellow else clr := clGreen; end; procedure TForm1.Ufo(x, y: integer; c: TColor); begin with Image1.Canvas do begin Brush.Color := c; Pen.Color := clBlue; Pen.Width := 3; Ellipse(x, y, x + 20, y + 10); end; end; Последний раз редактировалось ryderx34, 01.05.2011 в 21:25. |