虚拟树研究-CheckBox初步判断只能在第一列

//虚拟树研究-CheckBox初步判断只能在第一列
procedure TWindowsXPForm.XPTreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);

var
  Data: PEntry;
begin
  if ParentNode = nil then //若为父节点 就位CheckBox样式

  begin
    Include(InitialStates, ivsHasChildren);
    Data := Sender.GetNodeData(Node);
    Data^ := TreeEntries[Node.Index mod ];
    Data.Size := Random();
    Node.CheckType := ctTriStateCheckBox; //ctButton;//ctCheckBox; //默认为第一列
  end
  else
    Node.CheckType := ctRadioButton; //不是父节点时就 是radio的样式
end;

procedure TGeneralForm.VST2InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);

const
  LevelToCheckType: array[..] of TCheckType = (
    ctButton, ctRadioButton, ctTriStateCheckBox, ctTriStateCheckBox, ctCheckBox, ctNone
  );

var
  Data: PNodeData2;

begin
Node.CheckType := LevelToCheckType[Data.Level];
    Sender.CheckState[Node] := csCheckedNormal;