Insbesondere der Eckige ist gut geworden. Natürlich passt die Rotation bei der runden Variante besser (rollende Kugel).
Der Runde ist leider noch etwas pixelig, da bräuchte es vielleicht BGRA.
Ich würde die Geschwindigkeit der Animation entweder konfigurierbar machen, oder gleich auf 1 oder 2 setzen.
Die Drehung nimmt man sonst kaum wahr.
Code: Alles auswählen
procedure TCustomOnOffSwitch.DoAnimation(Sender: TObject);
const
SPEED = 1;
Im Anhang GTK2 und Qt5 (Um Faktor 3 vergrößert, damit man es gut erkennen kann).
Man sieht gewisse Unterschiede in der "Interpretation" der Rundungen.
Da kann man wohl so nicht viel dagegen tun.
Danke!