TListView: Fortlaufend untereinander Zeichen
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:
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.
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); 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 |
Re: TListView: Fortlaufend untereinander Zeichen
Wenn es nicht so ein "OnMeasureItem"-Event wie bei der TListBox gibt, würde ich mir überlegen, eine andere Komponente zu benutzen, denn sonst wird es ziemliches Gewurschtel. Ich bin sicher, dass z.b. das VirtualTreeView sowas kann (habe noch nicht damit gearbeitet).
|
Re: TListView: Fortlaufend untereinander Zeichen
Eigentlich ist es relativ easy, aber egal wie ich das rect einstelle, die Texthöhe ergibt immer 13. Sonst könnt ich es ja manuell anpassen -> vorausgesetzt, die Funktion, die ich jetzt oben habe, ist relativ elegant...
|
Re: TListView: Fortlaufend untereinander Zeichen
Das Problem mit der globalen Variable ist, dass du nicht weißt, welches Item vorher gezeichnet wurde. Außerdem sind globale Variablen eben unschön - wenn dann eine Klasse ableiten, und dann die benutzen.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz