|
begin
Form1.Canvas.Pen.Color:=Form1.ColorБайланысты: Delphi задачи диплом 20, диплом 20, диплом 20, Абай өлеңі, азия, Ақыл ой жан қуаты, Тест cұрақтары ББ IT қолдану Студентке, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, Резюме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; {шаг изменения координаты х}
Достарыңызбен бөлісу: |
|
|