Delphi-PRAXiS - Delphi TVirtualStringTree und Iconanzeige

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Delphi TVirtualStringTree und Iconanzeige (https://www.delphipraxis.net/162952-tvirtualstringtree-und-iconanzeige.html)

TVirtualStringTree und Iconanzeige

Hi,
ich habe einen TVirtualStringTree und in einer ImageList 30 Icons. Komigerweise zeichnet er immer Icon 0 über das icon was ich ihm bei OnGetImageIndex angebe. Das ist aber nur bei den icons 4-16 der fall. Unter 4 und über 16 zeichnet er normal.

Woran liegt das?

Delphi-Quellcode:

			procedure TForm1.GetTreeImage(Sender: TBaseVirtualTree; Node: PVirtualNode;

  Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;

  var ImageIndex: Integer);

var

  Data    :PTreeData;

begin

    Data:=VTreeView.GetNodeData(Node);

    ImageIndex:=Data^.IconNr;

end;

Danke im voraus

AW: TVirtualStringTree und Iconanzeige

Zum besseren verständniss habe ich eine kleine Demo gemacht. Sourcecode hängt dran.

AW: TVirtualStringTree und Iconanzeige

du musst unbedingt den "kind" abfragen.
nur bei dem icon darfst du etwas zuweisen.

AW: TVirtualStringTree und Iconanzeige

Genau das war es. Vielen dank!