Eigentlich finde ich die Ellipsis am Ende des abgeschnittenen Textes korrekt - aber vielleicht hilft dir das hier weiter:
Delphi-Quellcode:
procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
r: TRect;
begin
r := Item.DisplayRect(drLabel);
Sender.Canvas.TextRect(r, r.Left + 2, r.Top + 2, Item.Caption);
DefaultDraw := false;
end;
Grüße vom marabu