Text zur Anzeige kürzen mit Punkten hinten

[himitsu]

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