Text Mittig auf ein bild zeichnen

[Hador]

Probiere es mal so:

Delphi-Quellcode:

var
  w: Integer;
begin
  {...}
  w := Canvas.TextWidth('Testtext');
  Canvas.TextOut((Width - w) div 2, 100 {Y-Coord}, 'Testtext');
  {...}
end;

Canvas.Textwidth gibt die die Textlänge in Pixel in Abhängigkeit von der verwendeten Schrift aus.

EDIT: Arr ... 2. Seite übersehen. Is aber dennoch einfacher die Lösung ^^