Hi torud,
zum zentrierten Text:
Nehme für 'TLayout'
TTextLayout aus der
Unit StdCtrls, einfach in den
Uses-Abschnitt aufnehmen.
Dann fügst Du diesen Teil von
oki's code ein:
Zitat:
case TextAlign of
taCenter : myAlignment := DT_CENTER;
taLeftJustify : myAlignment := DT_LEFT;
taRightJustify : myAlignment := DT_RIGHT;
end;
IF FWordWrap then myAlignment := myAlignment or DT_WORDBREAK;
Dann lesen wir in der Hilfe nach was da zu den Flags von DrawText steht ->
DT_CALCRECT
und nutzen es auch gleich um uns über
OffsetRect schlau zu machen.
Nach der Lektüre ergänzen wir den Code um folgende Passage:
Delphi-Quellcode:
if FLayout <> tlTop then
begin
CalcRect := TextRect;
DrawText(Canvas.Handle, PChar(FText), -1, CalcRect, myAlignment or DT_CALCRECT);
if FLayout = tlBottom then OffsetRect(TextRect, 0, Height - CalcRect.Bottom)
else OffsetRect(TextRect, 0, (Height - CalcRect.Bottom) div 2);
end;
DrawText(Canvas.Handle, PChar(FText), -1, TextRect, myAlignment);
Was passiert:
Durch den Aufruf von 'DrawText(..., CalcRect, myAlignment or DT_CALCRECT)' wird die Weite und
Höhe des Textes berechnet und in CalcRect zurückgegeben.
Anschließend wird mit 'OffsetRect' das TextRect so verschoben, dass der Text entsprechend der
Layoutvorgabe mittels DrawText ausgegeben werden kann.
Das war es.
Gruß