Ich teste mich heute an einem VirtualStringTree denn mein Ziel ist es ein VST zu haben was aussieht wie ein TListView (mit Mouse-Hover-Effekt).
Das hier habe ich schon. Ok, es kommt von einem Tutorial. Aber es funktioniert trotzdem nicht.
Statt dass die in Col1 und Col2 zugewiesenen Strings im VST landen, landet das im Form.Caption.
Delphi-Quellcode:
type
PTreeData = ^TTreeData;
TTreeData = packed record
Col1: string;
Col2: string;
end;
implementation
{$R *.dfm}
function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; ARecord: TTreeData): PVirtualNode;
var
Data: PTreeData;
begin
Result := AVST.AddChild(ANode);
Data := AVST.GetNodeData(Result);
AVST.ValidateNode(Result, False);
Data^.Col1 := ARecord.Col1;
Data^.Col2 := ARecord.Col2;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
i: Integer;
TreeData: TTreeData;
begin
VST.NodeDataSize := SizeOf(TTreeData);
VST.BeginUpdate;
for i := 0 to 9 do
begin
TreeData.Col1 := 'Node-Nummer: ' + IntToStr(i);
TreeData.Col2 := 'Nummer: ' + IntToStr(i * i);
AddVSTStructure(VST, nil, TreeData);
end;
VST.EndUpdate;
end;
procedure TForm2.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
Data: PTreeData;
begin
Data := VST.GetNodeData(Node);
case Column of
0:
Text := Data.Col1;
1:
Text := Data.Col2;
end;
end;
Text habe ich mal durch CellText geändert das funktioniert jetzt.
Was aber nicht funktioniert das Einstellen der Höhe eines Nodes. Und allgemein kann man mit dem VST irgendwie wenig machen oder es ist halt alles versteckt.
Wieso gibt es denn nicht mal einen Fokus-Rahmen wenn man mit er Maus drüber fährt wie beim ListView?