Hi Felix
TTreeData musst Du selbst definieren, denn da sind die Daten für Dein VST drin
Delphi-Quellcode:
type
// Objektdaten für VirtualStringTree
TTreeDataClass = class
private
FTestStr1: string;
FKDID: integer;
FAID: Integer;
FICON: integer;
published
property TestStr1: string read FTestStr1 write FTestStr1;
property KDID: integer read FKDID write FKDID;
property AID: integer read FAID write FAID;
property ICON: integer read FICON write FICON;
end; //class
PTreeData = ^TTreeData;
TTreeData = record
FObject: TObject;
end;
In der VSTGetImageIndex kannst Du dann den RootLevel abfragen und die entsprechenden Bilder zuweisen. In Deinen Falle nur dem Rootknoten und dem letzten Childknoten.
Delphi-Quellcode:
if (Column = 0) and (Node.Parent = Sender.RootNode) then
ImageIndex := TTreeDataClass(Data.FObject).Icon;
ikState:
case Column of
0:
if Node.Parent <> Sender.RootNode then ImageIndex := 0;
end;
Gruss