Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
23. Jan 2010
procedure TForm1.VSTListeGetImageIndexEx(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer;
var ImageList: TCustomImageList);
begin
Case Something of ...
// e.g. if Column = 1 then take Imagelist1
// *or* if that node has a special flag, take Imagelist2 etc..
1: ImageList :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
17. Jan 2010
Hi Perry,
Just an idea: Have you tried using several imagelists? You can then assign them in OnGetImageIndexEx.