TVirtualNode

type TVirtualNode = record

public

  Index: Cardinal;

  ChildCount: Cardinal;

  NodeHeight: Word;

  States: TVirtualNodeStates;

  Align: Byte;

  CheckState: TCheckState;

  CheckType: TCheckType;

  Dummy: Byte;

  TotalCount: Cardinal;

  TotalHeight: Cardinal;

  Parent: PVirtualNode;

  PrevSibling: PVirtualNode;

  NextSibling: PVirtualNode;

  FirstChild: PVirtualNode;

  LastChild: PVirtualNode;

  Data: record;

end

  function IsAssigned;

  function GetData; overload;

  procedure SetData();

end;