Textlänge abschneiden

[nahpets]

Also, ich stelle mir das (analog zu Post #14) so vor:

Delphi-Quellcode:

if fMaxStrLen = 0 then begin
  fMaxLen    := 635;
  fMaxStrLen := tsTextGetWidthA(SongName);
  if fMaxStrLen >= fMaxLen then begin
    fSuffixLen := tsTextGetWidthA('...');
    fMaxLen    := fMaxLen - fSuffixLen;
    while fMaxStrLen >= fMaxLen do begin
      SongName   := Copy(SongName,1,Length(SongName) - 1);
      fMaxStrLen := SongName);
    end;
    SongName := SongName + '...';
  end;
end;

Liefert tsTextGetWidthA für 'iiiiiiii' und 'wwwwwwww' eigentlich das gleiche Ergebnis?

Wenn ja, wird das mit der Routine nix.