Rave: Zeilen wie bei ListBox kürzen

[Basic-Master]

Hi,
ich arbeite gerade an Reporten für mein Projekt, allerdings hab ich Probleme mit einer Tabelle.. Ich will wie in ner ListBox Items kürzen (also würde dann "das ist mein zuu langes item" in "das ist me..." umgeformt)... Hab schon was mit Length versucht, allerdings ist das viel zu ungenau, denn 4x i ist ja schmaler als 4x X. Arbeite mit nem vorgefertigten Rave-Report und nem DataMemo. Kann ich irgentwo einstellen, ob die Zeilen abgeschnitten werden oder muss ich das selbst per Code kürzen? Und wenn ja, wie?

Bin für jede Antwort dankbar

[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;

[Basic-Master]

big thx genau das was ich gesucht hab