Sorry das ich direkt nochmal Antworte.
Im Delphi Forum hat Lossy mir den Tip gegeben.
Delphi-Quellcode:
if fMaxStrLen = 0 then begin
fMaxStrLen := tsTextGetWidthA(SongName);
if fMaxStrLen >= 635 then begin // eventuell reicht die while-schleife auch aus.
// eventuell hier eine Kopie des Songnamens erstellen.
while fMaxStrLen >= 635 do
// string kürzen und '...' anhängen
fMaxStrLen := tsTextGetWidthA(>gekürzter string<);
end;
end;
end;
Die frage wäre nur wie den String kürzen auf welcher Basis.
Und ob er dann wegen den Glyphen innerhalb des Bereiches von 635 passt wäre noch die Frage.
gruss