Rave: Zeilen wie bei ListBox kürzen

[Fossibaer58809]

Schau mal in der OH nach:

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Gruß
Michael

Sorry, hab wohl etwas gepennt. Gilt nur für Dateinamen.

Als Entschuldigung hier ein Beispiel:

Delphi-Quellcode:

function TForm1.StripString(AText : string; ACanvas : TCanvas; MaxWidth : integer) : string;
begin
  Result := AText;
  with ACanvas do begin
    while ((Result <> '') and (ACanvas.TextWidth(Result+'...') > MaxWidth)) do
      Delete(Result, Length(Result), 1);
    Result := Result+'...';
  end;
end;