Hast Du denn eine Kerning-Korrektur für '01' oder nur für '10'. Bei der '1' ist links ein leerer Raum, und denn füllt man mit einem kleinen Teil des rechten Rands der '0'.
Ich würde eher sagen, das der Parameter für 'Alignment' auf taLeftAlignment steht bzw. der Wert von 'LeftPos' falsch ist.
Also ich hab die Kerning-Korrektur bei 1 für 1 auf -20 stehen
{1} ( 0, -20, 0, 0, 0, 0, 0, 0, 0, 0),
Das Alignment steht auf taCenter. Es wird auch zentriert, wenn ich die -20 durch eine 0 ersetze.
Haaalt! Da ist ein kleiner Fehler.
Delphi-Quellcode:
Procedure DrawNumberAt (LeftPos, Number : Integer);
Var
Digit, DigitToTheRight : Integer;
Begin
DigitToTheRight := -1; // <<<<<< FEHLT!
Repeat
...
Tatsächlich! Ist aber nicht der Fehler für das falsch Zentrierte.