Spaltenansicht in einem Hint

[himitsu]

Da der Tabulator im Hint nicht funktioniert, bleibt noch die Möglichkeit die Zwischewnräume mit Leerzeichen aufzufüllen. (entweder von Hand, oder automatisch)

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Function TA(S: String; B: Integer): String;
    Begin
      While TextLaenge(Form1.Font, S) < B do  S := S + ' ';
      Result := S;
    End;

  Begin
    Form1.Hint :=
      TA('123', 30) + TA('abc', 30) + 'xyz'#13 +
      TA('12', 30) + TA('ab', 30) + 'xy'#13 +
      TA('1', 30) + TA('a', 30) + 'x';
  End;

Funktion TextLaenge siehe
Code-Library -> Grafik / Sound / Multimedia -> Länge und Höhe eines Textes (String)

TA erweitert einfach nur den String, bis er mindestens 30 Pixel lang ist.

in TextLaenge(Form1.Font, S) muß der Font angegeben werden, der auch im Hint angezeigt wird, sonst wird nicht richtig gerechnet.
Ich hab hier im Beispiel Form1.Font verwendet, da ich jetzt nicht weiß, wo der Font für die Hint's gespeichert ist.