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