Wraith - Mo 03.10.05 16:15
Titel: Bitmap gezielt drehen unter DelphiX

---

Ich habe folgendes Problem:
Ein TImageSprite soll sich so drehen, dass es immer in Richtung Mauszeiger "guckt". Wer das Spiel Zuma kennt, weiss was ich meine. TImageSprite hat die Eigenschaft Angle, die bewwirkt, dass es sich dreht. Das funktioniert auch prima und schnell. Der Bereich von Angle geht von 0..255, wobei 255 eine volle Drehung bedeutet. 256 ist praktich wieder 0. Kennt jemand eine Routine, die den Angle-Wert aus 2 TPoints (TImageSprite-Mittelpunkt und MausPosition) berechnen kann?

Wraith - Di 04.10.05 13:04
Titel: Lösunge

---

Habe von einem Kollegen die Lösung bekommen, ein kleines Beispielproject ist hier, für die, die es interessiert.