Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; AObject: TDATArecord): PVirtualNode;
- var
- Data: PUserData;
- begin
- Result := AVST.AddChild(ANode);
- Data := AVST.GetNodeData(Result);
- AVST.ValidateNode(Result, false);
- Data^.FObject := AObject;
- end;
- //adding node
- VDT1.BeginUpdate;
- try
- DATArecord.name := 'nodename';
- DATArecord.Visible:= False;
- AddVSTStructure(VDT1, nil, DATArecord);
- finally
- VDT1.EndUpdate;
- end;
- Result := AVST.AddChild(ANode);
- AVST.IsVisible[Result] := AObject.Visible; // <-- add this
Add Comment
Please, Sign In to add comment