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!