Image Canvas

[Sh4d0w]

Moin,

Ich hab ein kleines Problem. Also hab folgenden quellcode geschrieben:

Delphi-Quellcode:

begin
Breite:=6;
Winkel:=Pi/4;
mx:=x+3;
my:=y-50;
Fluegellaenge:=hoehe * 4;
With Image.Canvas do begin
Pen.Mode:=pmnotxor;
Fluegel.zeichnen; <---- ruft diese proecedure auf, vorhandene flügel werden gelöscht
Winkel:=Winkel + (Pi / 8); <-- Ändert den Winkel
XZuwachs := Round (cos(Winkel)*Fluegellaenge);
YZuwachs := Round (sin(Winkel)*Fluegellaenge);
MoveTo (mx, my);
LineTo (mx + XZuwachs, my + YZuwachs);  <--- Zeichnet in anderem Winkel
MoveTo (mx, my);
LineTo (mx - XZuwachs, my - YZuwachs);
Pen.Mode:=pmCopy;
end;
end;

So, das ganze steht in einem Button drin. so sieht das aus:

http://img91.imageshack.us/img91/3260/sdfky3.png

Wenn man nun auf den button klickt, dann dreht sich der flügel bisschen nach rechts. Wenn man aber nochmal klickt, dreht sich der wieder zurück in seine Anfangsposition. Ich möchte aber, dass er sich weiter nach rechts dreht. Quasi, eine ganzen Kreis macht 360°. Was muss man dafür denn in dem o.g. Quellcode ändern?
Hoffentlich kann mir jemand weiterhelfen, danke schonmal!!

mfg,
Sh4d0w

[mkinzler]

Wo sind die Variablen definiert?

[Sh4d0w]

über begin. hab ich jetzt nicht mitgepostet, aber es funzt alles.
Weiß jemand, ob man den quellcode umschreiben kann, damit sich der Flügel weiterdreht??

[mkinzler]

Über welchem begin? wenn du die Variablen als lokale Variablen deklarier hast, gelten sie nur für diesen einen Durchlauf.

[Sh4d0w]

Habs dann oben unter public deklariert, funzt aber auch nicht. :(
Irgendwas am code muss falsch sein... der dreht einmal nach rechts, dann wieder zurück.