Piktogramme und Images in VirtualTreeView anzeigen

[aschne1]

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