Canvas.TextOut zentrieren

[Nicodius]

Hallo Leute,

ich würde gerne eine Ausgabe per TextOut auf dem Form zentrieren.
x := Form1.Width div 2 - (Canvas.TextWidth(text) div 2); kommt bei der Schriftgröße schon einigermaßen hin, aber bei manchen texten hängt es.
Habt ihr da vl eine schöne Lösung oder irgendwelche Parameter die ich hier gebrauchen könnte?

lg Nico

[Nicodius]

sorry alter code
x := round((Form1.Width - Canvas.TextWidth(text)) / 2); ist der aktuelle. Leider genau das gleiche problem.
canvas.TextOut(round((form1.ClientWidth - canvas.TextWidth('ZENTRIERT')) / 2),200,'ZENTRIERT');
von http://www.delphipraxis.net/2634-tex...usrichten.html
bringt leider nicht das gewünschte ergebnis

EDIT: Das Problem scheint nur bei bold texten zu bestehen. da geht anscheinend die textwidth nicht richtig drauf?

[DeddyH]

IMHO geht das mit DrawText wesentlich einfacher.

[Bummi]

Delphi-Quellcode:

var
 r:TRect;
 s:String;
begin
  r.Left := 0;
  r.Top := 0;
  r.Right := 300;
  r.Bottom := 100;
  s := 'Testtest';
  Canvas.TextRect(r,s,[tfVerticalCenter,tfCenter,tfSingleLine]);
end;

[Nicodius]

Hi! Vielen Dank für eure Antworten,

beide Möglichkeiten scheinen aber Formatierungen wie bold/underline nicht zuzulassen oder?

lg Nico

[stahli]

Du musst vorher Canvas.Font.Style einstellen.