VirtualStringTree

[chaosben]

Ein wenig Grundsätzliches zum VST (aka VirtualStringTree):
Viele Sachen werden hier mit Pointern erledigt. Nicht gleich erschrecken. Es ist einfacher als man denkt.

Der erste Schritt auf dem Weg zum VST-Glück beginnt im Kopf. Wir fragen uns: Welche Daten soll ein Knoten kennen? Oft soll ein Knoten eine Caption, einen Hint und einen ImageIndex haben.
Ok, wenn wir das wissen können, wir mit dem Coden beginnen. Alle Daten die ein Knoten halten soll, merken wir uns hier mal in einem Record (später wirst du wahrscheinlich auf Objekte ausweichen).

Delphi-Quellcode:

TNodeData = record
  Caption,
  Hint : String;
  ImageIndex : Integer;
end;

PNodeData = ^TNodeData; //unser Pointertyp

So, nun haben wir die benötigten Typen.
Jetzt muss der VST noch wissen, wie groß unsere Daten im Speicher sind, denn die Speicherverwaltung übernimmt der VST.
Dafür gibts das "OnGetNodeDataSize"-Ereignis. Dieses sieht für unser Beispiel so aus:

Delphi-Quellcode:

procedure TVGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
  NodeDataSize:=sizeOf(TNodeData);
end;

Jetzt fügen wir einen Knoten hinzu.

Delphi-Quellcode:

var
  Node : PVirtualNode;
  NData : PNodeData; //Unser selbstdefinierter Typ
begin
  Node:=TV.AddChild(nil); //Hier bekommen wir unseren Knoten
  //Jetzt hat der VST schon Speicher reserviert, wo wir unsere Daten ablegen können
  //Nur wo?
  NData:=Tv.GetNodeData(Node); //Na hier! ;) ... und diese Zeile merken, die brauchen wir oft
  //Und los geht das fröhliche Datenablegen
  Ndata.Caption:='Ich bin ein Knoten, geboren um '+TimeToStr(Now);
  Ndata.Hint:='Wow, du hast mich mit der Maus getroffen :)';
  Ndata.ImageIndex:=4;
end;

So weit so gut. Jetzt müssen wir die Wissenslücken des VST stopfen.
1. Lücke: Welche Caption soll ich malen?

Delphi-Quellcode:

procedure TVGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  NData : PNodeData;
begin
  //Erstmal holen wir uns die Daten zu diesem Knoten
  NData:=TV.GetNodeData(Node); //Hab ichs nicht gesagt ;)
  CellText:=NData.Caption;
end;

2. Lücke: Welche Hints soll ich anzeigen?

Delphi-Quellcode:

procedure TVGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: WideString);
var
  NData : PNodeData;
begin
  NData:=TV.GetNodeData(Node); //:)
  HintText:=NData.Hint;
end;

(TV.HintMode noch auf hmHint setzen)

3. Lücke: Und welche Bilder?

Delphi-Quellcode:

procedure TVGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  NData : PNodeData;
begin
  NData:=Tv.GetNodeData(Node); //ohne Kommentar
  ImageIndex:=Ndata.ImageIndex;
end;

Und fertig.

Das ist jetzt nur eine gaaaaanz kleine Einführung gewesen. Der Rest ergibt sich dann beim probieren und rumspielen. (... und die ganz Harten nehmen den VirtualDrawTree ) HF!