VirtualStringTree: Problem mit ImageIndex

[Hawkeye219]

Hallo,

um die Bilder als Overlay nutzen zu können, muss man sie einmalig anmelden:

Delphi-Quellcode:

procedure TForm1.FormCreate (Sender: TObject);
begin
  Tree.Images := ImageList1; // über OI zuweisen
  
  ImageList1.Overlay(21, 0); // Bild #21 wird Overlay-Icon #0
  ImageList1.Overlay(42, 1); // Bild #42 wird Overlay-Icon #1
end;

procedure TForm1.TreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; 
  Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
begin
  case Kind of
    ikNormal, ikSelected:
      ImageIndex := Random(16);
    ikOverlay:
      ImageIndex := Node.Index and 1;
  else
    ImageIndex := -1;
  end;
end;

Gruß Hawkeye