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