Neuer Blog über FireMonkey Entwicklung eröffnet

[himitsu]

Jupp, mit dem Standardbefehlssatz hab ich's och nicht hinbekommen. Aber bestimmt kann man den ja irgendwie erweitern.

Was ginge, war im Timer ein Timer1.Tag := SecondOfTheDay(Now); im OnTimer und dann könnte man in den LiveBindings damit die Zeiger setzen,
also jeweils für RotationAngle:
rrHour: (Tag div 3600) * 30
rrMin: (Tag div 60 mod 60) * 6
rrSec: (Tag mod 60) * 6

Ich glaub MOD und DIV gab's nicht, aber das kann man mathematisch und mit bisschen Rundung ersetzten.
Now liefert auch die Millisekunden ... da vergrößert man den Integer etwas oder nimmt gleich TagFloat (falls die LiveBindings den lesen können),
lässt einfach das Runden weg und zeichnet Zwischenschritte.