Delphi.Canvas

[MariaD]

Построить окружность.Должна перемещаться по вертикали через центр формы, вверх-вниз при дохождении до границы.Перемещается вниз.Но когда доходит до края там и остается.

Delphi
unit yuiy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    procedure DrawCircle;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y, d: integer;
  dy: integer;
implementation

{$R *.dfm}
procedure TForm1.DrawCircle;
begin
Canvas.Pen.Color:=Form1.Color; {задать перу цвет формы}
Canvas.Ellipse(x,y,x+d,y+d); {стереть окружность – нарисовать ее цветом формы}
If y+d <Form1.ClientHeight then
y:=y+dy
else
y:=y-dy;
 {перейти в следующую позицию}
Canvas.Pen.Color:=clBlack; {задать перу черный цвет}
Canvas.Ellipse(x,y,x+d,y+d);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DrawCircle;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
d:=StrToInt(Edit1.text);
x:=(Form1.ClientWidth div 2)-d div 2; {начальная позиция рисунка}
y:=0;
dy:=1; {шаг изменения координаты y}
Timer1.Enabled:=true;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Timer1.Interval:=10; {период возникновения события OnTimer – 0.5 сек}
Canvas.Brush.Color:=Form1.Color;
end;

end.

[Stilet]

Думаю это поможет:

procedure TForm1.DrawCircle;
begin

if y=0 then b:=true;
if (y+d)=Height then b:=false;

if b then y:=y+dy else y:=e-dy;

Canvas.Pen.Color:=Form1.Color; {задать перу цвет формы}
Canvas.Ellipse(x,y,x+d,y+d); {стереть окружность – нарисовать ее цветом формы}
Canvas.Pen.Color:=clBlack; {задать перу черный цвет}
Canvas.Ellipse(x,y,x+d,y+d);
end;

b:boolean глобальная

[MariaD]

спасибо, помогло,но если использовать Height, то движется вниз пока половина окружности не скроется.при Form1.ClientHeight как надо работает

[Stilet]

Ради бога )
Тебе виднее.