CollapseNonGrandparentNodes method

Applies to
TDUnitDialog

Declaration
Procedure CollapseNonGrandparentNodes(RootNode: TTreeNode);

Implementation

procedure TDUnitDialog.CollapseNonGrandparentNodes(RootNode: TTreeNode);
var
  AChildNode: TTreeNode;
begin
  if not NodeIsGrandparent(RootNode) then
    RootNode.Collapse(false);

  AChildNode := RootNode.GetFirstChild;
  while AChildNode <> nil do
  begin
    CollapseNonGrandparentNodes(AChildNode);
    AChildNode := RootNode.GetNextChild(AChildNode);
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com