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