VirtualStringTree - Nodes hinzufügen

[Popov]

Weiter vorne wurde kurz über CheckBoxen in Virtual ListView gesprochenm, dass sie nicht da sind (bei OwnerData = True), und dass es kompliziert ist sie selbst zu erstellen. Damals habe ich auch kurz nach einer Lösung im Internet gesucht und auch nur komplizierte gefunden, was die Aussage irgendwie bestätigte.

Dabei steht die simple Lösung in der Delphi-Hilfe in einem Nebensatz, bei Thema StateIndex. Man benötigt demnach zwei Check-Box Bitmaps in einer ImageList, die wiederum StateImages zugewiesen ist. Je nachdem wie wie der Wert von StateIndex ist, -1, 0 oder 1, wird entweder nichts gezeichnet (Standard), die eine Bitmap oder die andere (in dem Fall Bild von CheckBox). Was dann noch zu tun bleibt ist eine Routine schreiben die die CheckBoxem per Kausklick setzt. Ist auch nicht kompliziert. Im Grunde also alles simpel.

Hier das Beispiel (falls noch Interesse besteht). Vermutlich kann man das noch eleganter lösen, aber das ist auch nicht kompliziert.