Setting caption for Virtual Tree List nodes

Question

I can't understand the process described in documentation. It says to use event:

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
                Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var
    Data: PTreeData;
begin
   Data:=VST.GetNodeData(Node);
   CellText := Data^.FCaption;
end;

How do I do that? I can't redeclare it just like this. When I double click on Tree List OnGetTextEvent it throws some exception at me "Property and Method are incompatible"

Well, if i'm not mistaken, GetText is called for drawing the Nodes. But you said the exception is trows when you double click. Do you have some code on your DobleClick event? — Christopher Ramírez

ain ain · Accepted Answer · 2012-03-02T14:55:53

You don't mention the Delphi and VirtualTreeview version but I guess thats because of the CellText: WideString parameter - it should be of string type now after the UnicodeString became the default string type in Delphi. IOW change it to

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
          Column: Integer; TextType: TVSTTextType; var CellText: string);

Setting caption for Virtual Tree List nodes

2 Answers