Лабораторный практикум
begin Form1.Canvas.Pen.Color:=Form1.Color
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
- Бұл бет үшін навигация:
- Form1.Canvas.Ellipse(x,у,х+20,у+20);
| begin
Form1.Canvas.Pen.Color:=Form1.Color; {задать перу цвет формы} Form1.Canvas.Ellipse(x,y,x+20,y+20); {стереть окружность - нарисовать ее цветом формы} x:=x+dx; {перейти в следующую позицию} Form1.Canvas.Pen.Color:=clBlack; {задать перу черный цвет} Form1.Canvas.Ellipse(x,y,x+20,y+20); {нарисовать окружность на новом месте} end; Полный текст программного модуля будет выглядеть следующим образом: unit main; interface uses Windows. Messages. SysUtils. Classes. Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1=class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private {Private declarations } public {Public declarations } end; var Form1:TForm1; x,y:byte; {координаты центра окружности} dx:byte; {приращение координаты х при движении окружности} implementation {$R *.DFM} procedure Ris; {рисование окружности} begin Form1.Canvas.Pen.Color:=Form1.Color; {задать перу цвет формы} Forml.Canvas.Ellipse(x,y,x+20,y+20); {стереть окружность - нарисовать ее цветом формы} x:=x+dx; {перейти в следующую позицию} Form1.Canvas.Pen.Color:=clBlack; {задать перу черный цвет} Form1.Canvas.Ellipse(x,у,х+20,у+20); {нарисовать окружность на новом месте} end; procedure TForm1.Timer1Timer(Sender: TObject); begin Ris; {вызов процедуры рисования окружности} end; procedure TForm1.FormActivate(Sender: TObject); begin x:=0; {начальная позиция рисунка} y:=30: dx:=3; {шаг изменения координаты х} жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|