Hallo,
ich zeichne in der ListView selbst. Ich habe bisher erreich, dass der Text in der 2. Spalte umgebrochen wird. Nun möchte ich gerne noch, dass der nächte Datensatz entsprechend tiefer anfängt, damit sich beide Einträge nicht überlappen. Doch ich weis nicht so recht wie. Das ist mein Code
Delphi-Quellcode:
procedure TForm2.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
height: Integer;
i: Integer;
begin
ListView1.Canvas.FillRect(Rect);
//Höhe des Textes merken mit DT_CALCRECT!
height:=DrawText(ListView1.Canvas.Handle, PChar(Item.Caption), Length(Item.Caption), Rect, dt_calcrect or dt_wordbreak);
//Höhe anpassen
rect.Bottom:=NextYPos+rect.Top+height;
//Text zeichnen
DrawText(ListView1.Canvas.Handle, PChar(Item.Caption), Length(Item.Caption), Rect, dt_wordbreak);
//Rechteck verschieben (Spalte 2)
offsetrect(rect, rect.Right+10, 0);
//Höhe berechnen und Text zeichnen
Height:=DrawText(ListView1.Canvas.Handle, PChar(Item.SubItems[0]), Length(PChar(Item.SubItems[0])), Rect, DT_CALCRECT);
rect.Right:=230;
rect.Bottom:=rect.Top+(2*Height);
NextyPos:=NextYPos+rect.Bottom+10;
DrawText(ListView1.Canvas.Handle, PChar(Item.SubItems[0]), -1, Rect, DT_WORDBREAK);
//
offsetrect(rect, 0, NextYPos);
Ich dachte daran, eine globale Variable zu setzen (NextYPos) und da dann weiter zu zeichnen. Ich nehme an, dass diese Funktion für jeden Datensatz aufgerufen wird, sodass ich keine Schleife programmieren muss.
Btw: in der einen Zeile bei "rect.Right:=230" habe ich angegeben, wo die 2.Spalte beginnen soll. Das ist ja statisch. Wie könnte ich herausfinden, wie breit der Text aus Spalte 1 ist, sodass ich darauf nur noch beispielsweise 10px addieren muss?
Danke