TListView (Sub)Items Mehrzeilig

[lord]

Hi!

Sorry fürs lange nicht melden, war übers Wochenende Weg
Aber Danke schonmal für den Anreiz, es geht einen kleinen Schritt weiter!

Hab mir den letzten Snippet mal angesehen und versucht einzubauen, raus kam das hier

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);

    var l, i:integer;
    r:TRect;
    s:string;

begin



l:=0;
r:=rect;
for i:=0 to listview1.columns.count-1 do
begin
  r.left:=l;
  r.right:=l+listview1.columns[i].width;
  case i of
    0:s:=item.caption;
    else s:=item.subitems[i-1];
  end;
  //DrawText
  // showmessage(inttostr(i) + ' - ' + inttostr(r.Left)  + ' - ' + inttostr(r.Right)+ ' - ' +  s);
  DrawText(Sender.Canvas.Handle, PChar(s), -1,rect, DT_LEFT or DT_WORDBREAK);

  l:=l+listview1.columns[i].width;
end;


end;

Das klappt schonmal so weit, als das item.caption und die Subitems gezeichnet werden, allerdings überschreiben sie sich (kann man schön sehen wenn man sich Zeit lässt die ShowMessages() die ich zur Diagnose reingebaut hab wegzuklicken) im "Rect" wo normalerweise die Caption drin wäre. Leider auch ohne Wordbreak, es wird einfach über die anderen Spalten drüber gezeichnet

Vielleicht hilft es, wenn ich die Angaben die ich durch ShowMessage anzeigen lasse gerade hier poste

0 - 0 - 50 - TExt
1 - 50 - 100 - text2
2 - 100 - 150 - Mehrzeiliger text der jetzt auch mehrzeilig angezeigt werden soll wenn es denn klappt


Rect.left und rect.right passen sich - wie man sieht - schön an und scheinen zu stimmen. Trotzdem überschreibt sich jeder Text

Ich hab das Gefühl das es irgendwie mit dem Canvas zu tun hat...

Leider hab ich mich bisher nie mit CustomDraw und dem Canvas beschäftigt, gibts da evtl. leicht verständliches Einsteiger Material (Tutorials, howtos, etc)?

Irgendwelche Anregungen?

vg sebastian