Piktogramme und Images in VirtualTreeView anzeigen

[felix56]

Hallo ibp

Mal besten Dank für die Antwort. Leider ist mir das noch nicht ganz klar. Ich erstelle mit folgendem Programm einen Baum:

Delphi-Quellcode:

 ServiceTable.First; 

 VST1.NodeDataSize:=SizeOf(TTreeData); 
 VST1.BeginUpdate; 

 while not PackageTable.Eof do 
  begin 
   PackageName:= PackageTable.FieldByName('INSTANCE').AsString; 
   TreeData.FCaption:=(PackageName); 
   Node:=AddVSTStructure(VST1,nil,TreeData); 

   ServicePackageTable.First; 
   while not ServicePackageTable.Eof do 
    begin 

     ServiceVerkTable.First; 
     while not ServiceVerkTable.Eof do 
      begin 
       Instance:= ServiceVerkTable.FieldByName('INSTANCE').AsString; 
       TreeData.FCaption:=(Instance); 
       Node:=AddVSTStructure(VST1,Node,TreeData); 

       ServiceTable.First; 
       while not ServiceTable.Eof do 
        begin 
         Service:= ServiceTable.FieldByName('Service').AsString; 
         TreeData.FCaption:=(Service); 
         AddVSTStructure(VST1,Node,TreeData); 
         ServiceTable.Next; 
        end; 
       ServiceVerkTable.Next; 
      end; 
     ServicePackageTable.Next; 
    end; 
   PackageTable.Next; 
  end; 
 VST1.EndUpdate; 
 VST1.SortTree(0,sdAscending,True);

Nun giebt es im TVirtualStringTree ein Ereignis OnGetImageIndex, dies erstellt folgende Procedure.

Delphi-Quellcode:

procedure TAbfrageForm3.AbfrageForm3VST1GetImageIndex(
  Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
  Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
begin

 ......

end;

Mein Problem ist, dass diese Procedure nie ausgeführt wird.
Wo liegt hir nun der Fehler?

Gruss
Felix