Vorgestellt: ADVListview aus dem TMS Component Pack Pro – Teil 1

Die AdvListView Komponente von TMS Components eignet sich hervorragend als Ersatz für ein Grid. Persönlich hat sich für mich herausgestellt, dass die Grids aus dem TMS Component Pack Pro zwar sehr mächtig sind, aber doch auch etwas träge. Hier habe ich gerade, was Geschwindigkeit angeht, ein erheblich besseres Gefühl mit dem Einsatz der Listviews aus diesem Paket.  Ein weiterer Vorteil ist auch die interne Sortierung,so das keine erneuten Abfragen an einen Datenbankserver gesendet werden müssen.

Die Verwendung ist dabei recht einfach:

  1. Fügen Sie eine AdvListView-Komponente aus der Toolbox Ihrem Formular hinzu
  2. Stellen Sie ViewStyle im Objekt Inspector auf vsReport ein
  3. Möchten Sie die Sortiermöglichkeit für die einzelnen Spalten aktivieren: SortShow=True
  4. In Columns definieren Sie die einzelnen Spalten, deren Überschrift, eventuell Bild
  5. Möchten Sie Benutzern die Möglichkeit geben über eine Checkbox einzelne Datenreihen zu markieren, so setzen Sie Checkbox = True
  6. Möchten Sie dem Anwender die Möglichkeit geben die Spaltenreihenfolge selber anzupassen, so setzen Sie DragDropHearder = True

Einige Einstellungen hängen davon ab, was Sie dem Benutzer erlauben möchten oder nicht, z.B. ob er die Werte bearbeiten darf oder nicht.  Wenn nicht, so setzen Sie Readonly=True und vielleicht auch RowSelect=True, dann wird die ganze Zeile markiert und nicht nur einzelne Spalten.

Die Sache mit dem DoubleBuffered ist etwas eigenwillig… beobachten Sie Exceptions, so ist dies ein guter Ansatzpunkt hier mal wahlweise = True oder = False zu setzen. Einfach probieren.

Möchten Sie Bilder anzeigen, so legen Sie sich eine Imagelist an und weisen diese z.B. in SmallImages der Listview zu.

Grundlegende Basiseinstellungen haben Sie nun bereits getroffen, jetzt gilt es diese AdvListview mit Daten zu füllen.
Die Vorgehensweise ist dabei recht einfach:

Nehmen wir an, Sie haben eine Query, also eine Datenbankabfrage gemacht und mit diesen Daten möchten Sie nun Ihre AdvListview füllen, dann sieht der Code wie folgt aus:

var newItem:TListItem;

begin
advlistview.beginUpdate;
Query.First;
while not Query.eof do
begin
newItem := advliste.Items.add;
newitem.caption := Query.Fieldbyname(‚ID‘).AsString;
newItem.SubItems.Add(Query.Fieldbyname(‘vorname‘).AsString);
newItem.SubItems.Add(Query.Fieldbyname(’name‘).AsString);
Query.next;
end;
advlistview.endUpdate;
end;

In diesem Beispiel haben Sie eine Listview mit 3 Spalten, wobei die erste Spalte immer mit .caption angesprochen wird, alle weiteren mit .subitems. Die 2. Spalte nach menschlicher Logik entspricht also .Subitems=0, die 1. Spalte = Caption.

Setzen Sie unbedingt .beginupdate / .endupdate – damit wird verhindert, dass Sie live Zeuge werden wie jede einzelne Zeile eingetragen wird. Gleichzeitig wird der Vorgang beschleunigt.

Fertig – Ihre Daten sind damit bereits in der Listview eingetragen.

Im nächsten Teil beschreibe ich u.a.:

  • wie Sie in Abhängigkeit von einem Feldwert eine individuelle Grafik für jede Zeile anzeigen
  • wie Sie in Abhängigkeit von einem Feldwert die einzelnen Zeilen unterschiedlich färben können
  • wie Sie herausbekommen, welche Zeile geklickt wurde und damit den entsprechenden Daten ermitteln können
  • wie Sie z.B. den Wert von Zeile 3, Spalte 2 bekommen
  • wie Sie eine Progressbar in Ihrer AdvListView anzeigen

Klicken Sie also wieder rein… oder folgen Sie meinem Twitterkonto, um Updates nicht zu verpassen.

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Notebook & PC Angebote:
» HP Extra Aktion: 100 Euro Extra sparen bei HP Notebooks ab 999 Euro. Gutscheincode und alle Infos hier im HP Store
» Top bei Otto: Sehr gute HP Notebook Angebote mit Extras wie 4 Jahre Garantie und mehr
» Aktion im Lenovo Store: Bis zu 15% auf ausgewählte und recht gute Artikel (IdeaPad und Yoga Notebooks, Tablet PCs, Gaming Notebooks und PCs)
» Große Rabattaktion bei Acer: bis 21.05.2018 gibt es 15% Rabatt auf ultraschlanke Notebooks der Acer Swift Serie
» Notebooksbilliger.de WM Special:Jede Woche 11 neue Top Angebote>
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick

Aktuelle Bitdefender Aktionen:
» Neue Aktion: Bitdefender 39 Euro Flat mit 5 Geräten
» Bitdefender +1 Jahr dazu-Aktion
» Die neue Bitdefender 40% und mehr Rabatt Aktion
» Top für neue PCs! Bitdefender Internet Security 2018 PC Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95

Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.