TListView (Sub)Items Mehrzeilig

[lord]

Hi,

erstmal danke für den hinweis. Hab mich eben beim Suchen dämlich angestellt

Ich habs jetzt soweit, dass der Text der eigentlich ins 2. Subitem soll im gesamten Item steht und die ersten zwei Spalten quasi überschrieben werden

Klappt nicht so recht.

das habe ich bisher

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
                                                                          
  DrawText(Sender.Canvas.Handle, PChar(Item.SubItems[1]), -1, Rect, DT_LEFT or DT_WORDBREAK);
end;

procedure TForm1.Button1Click(Sender: TObject);
var li : TListItem;
begin

  li := self.ListView1.Items.Add;
  li.Caption := 'TExt';
  li.SubItems.Add('text2');
  li.SubItems.Add('Ein etwas längerer text der jetzt auch mehrzeilig angezeigt werden soll wenn es denn klappt');


end;

Anscheinend muss ich irgendwo bestimmen wo gezeichnet werden soll, aber das geht über das hinaus was ich bisher so mit Delphi gemacht habe

Jemand eine Idee?