Analoguhr

[MrFish]

Ich habe den schönen Code von Luckie verunstaltet. Jetzt hat die Uhr ein Ziffernblatt.

@Luckie
Ich habe da noch zwei Fragen:
1 Du nutzt die Procedure CalcAngel. Ich dachte bisher das jede Procedure deklariert werden muss.
Ich finde aber keine Deklaration dafür. Was stimmt hier nicht.
2 Die unterstrichene Codeteile verstehe ich nicht.
Ich habe zwar erkannt des das die Zeigerlänge ist aber mehr auch nicht. Kannst du mir daq eine genauere Erklärun geben.

Delphi-Quellcode:

 
  // Zeiger löschen
  ClearHands(Start, OldSecs, [u]Paintbox1.Height div 2 div 2 - 40[/u], 1);
  // Zeiger zeichnen
  PaintHands(Start, secs, [u]Paintbox1.Height div 2 div 2 - 40[/u], 1);
  // alten Winkel merken
  OldSecs := secs;

  ClearHands(Start, OldMins, [u]Paintbox1.Height div 2 div 3 - 45[/u], 2);
  PaintHands(Start, mins, [u]Paintbox1.Height div 2 div 3 - 45[/u], 2);
  OldMins := mins;

  ClearHands(Start, OldHrs, [u]Paintbox1.Height div 2 div 6 - 55[/u], 4);
  PaintHands(Start, hrs, [u]Paintbox1.Height div 2 div 6 - 55[/u], 4);
  OldHrs := hrs;

[edit=Luckie]Delphi-Tag geschlossen. Mfg, Luckie[/edit]