Ahojky.Já mám udělat animaci traktoru,který se pohybuju.Musím tam napsat kody,abych ten traktor nakreslila..Ale nějak mi to nejde udělat aby vypadal tak jako traktor a aby byl zmenšený..Moc děkuju předem..
var
Form1: TForm1;
var x,y,z: integer;
implementation
{$R *.nfm}
procedure Traktor;
begin
with form1.Canvas do
begin
Brush.Color:=ClRed;
Rectangle(x+50,y+25,z+150,z+75);
Brush.Color:=ClBlue;
Ellipse(x+65,y+100,x+90,y+75);
Ellipse(x+100,y+100,x+135,y+55);
Brush.Color:=ClYellow;
Rectangle(x+100,y+0,z+150,z+25);
end;
end;
procedure Traktor1;
begin
with form1.Canvas do
begin
Brush.Color:=ClBtnface;
Pen.Color:=ClBtnface;
Rectangle(x,y,x+250,y+250);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Traktor1;
Traktor;
x:=x+1;
y:=y+1;
z:=z+1;
end;
end.
Fórum › Delphi
Pomoc s animací
![](img/forum_vlakno_help_vyreseno.png)
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 7 hostů
Podobná vlákna
Problem s animací — založil Ondřej
Obrázek po flash animaci — založil Martin
Jak pozastavit animaci — založil micro.21
Problem pri importu animaci — založil zahradka
SILVERLIGHT: jak na tuhle animaci? — založil Balu