TVirtualStringTree und Iconanzeige

[DelTurbo]

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

[DelTurbo]

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

[generic]

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

[DelTurbo]

Genau das war es. Vielen dank!