Verkürztes Label mit "..." am Satzende

[Pfoto]

Danke Bernie!

ich hatte mir parallel dazu gerade etwas eigenes gebastelt
(ähnlich aufgabaut wie "MinimizeName" von Borland):

Delphi-Quellcode:

function MinimizeNameEllipses(const aCaption: string; aCanvas: TCanvas; aMaxLen: Integer): string;
begin
  Result := aCaption;
  aMaxLen:= aMaxLen - aCanvas.TextWidth('...');
  If (aCanvas.TextWidth(Result) > aMaxLen) then
  begin
    while (aCanvas.TextWidth(Result) > aMaxLen) do
      Result:= copy(Result, 0, length(Result)-1);
    result:= result + '...';
  end;
end;

Gruß
Pfoto