Probiers mal so:
Delphi-Quellcode:
procedure TfInfoView.lvTasksDrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
DrawText(Sender.Canvas.Handle, PChar('TEST 3'), -1, Rect, DT_LEFT or DT_WORDBREAK or DT_CALCRECT);
end;
Bei Nullterminierten String musst du "-1" als dritten Parameter angeben, andernfalls die Anzahl Zeichen, die zu zeichnen lassen möchtest.
Gruß
Pfoto