Jak uzyskać efekt przesuwania okręgu ?
procedure TForm1.Button1Click(Sender: TObject);
var
R:TRect;
i:integer;
begin
r.top:=0;
r.Left:=0;
r.Right:=paintbox1.Width;
r.Bottom:=paintbox1.Height;
for i:=0 to 500 do
begin
Canvas.brush.Style:=bsSolid;
Canvas.brush.color:=clsilver;
Canvas.fillrect(r);
Canvas.ellipse(i,100,i+100,200);
end;
end;
var
R:TRect;
i:integer;
begin
r.top:=0;
r.Left:=0;
r.Right:=paintbox1.Width;
r.Bottom:=paintbox1.Height;
for i:=0 to 500 do
begin
Canvas.brush.Style:=bsSolid;
Canvas.brush.color:=clsilver;
Canvas.fillrect(r);
Canvas.ellipse(i,100,i+100,200);
end;
end;
Materiał dodany przez użytkownika: alphan