Ist dir schonmal aufgefallen, daß
TCanvas.TextRect für den Text einen Var-Parameter nutzt?
Tipp:
tfModifyString, tfEndEllipsis oder tfPathEllipsis und tfCalcRect >
TTextFormat
oder DT_MODIFYSTRING, DT_END_ELLIPSIS oder DT_PATH_ELLIPSIS und DT_CALCRECT >
DrawTextEx
Delphi-Quellcode:
Text := DeinText;
Rect.Left := 1;
Rect.Top := 1;
Rect.Right := MaximaleBreite;
Rect.Bottom := MaximaleHöhe;
DrawTextEx(
Handle, PChar(Text), Length(Text), Rect, ...
or DT_END_ELLIPSIS
or DT_MODIFYSTRING,
nil);
SetLength(Text, StrLen(PChar(Text)));
siehe
MSDN: DT_CALCRECT > but does not draw the text