iBase.ru Forum

Код: Выделить всё

procedure TFrmMain.TVwRplExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
{ Scan all children for expanding node and add grandchildren if necessary.
  Grandchildren have to be added if the child node has HasChildren true
  but ChildCount=0. }

var
  NodeIterator : TTreeNode;  // child node, which must be parent for grandchildren

begin //TVwRplExpanding
 NodeIterator := Node.getFirstChild;
 While NodeIterator<>nil do
  begin
   If NodeIterator.HasChildren and (NodeIterator.GetFirstChild=nil) then
    begin // Node marked as expandable but doesn't have children -> load them
     NodeIterator.HasChildren := False; // reset '+' sign

     NodeToFill := NodeIterator;

     case NodeIterator.ImageIndex of
      CRplTgtDbs:  Cfg.ForEachTargetDb(AddTargetDatabase, PPublishedDb(Node.Data)^.ReplNo);
      CRplTables:  With PSubscribedDb(Node.Data)^ do
                     Cfg.ForEachRelation(AddRelationToTree, ReplNo, DbNo);
      CRplColKeys: begin
                    Cfg.StartTransaction;
                    try
                     With PRelation(Node.Data)^ do
                       Cfg.ForEachKeyField(AddFieldToTree, ReplNo, TgtDbNo, RelationNo);
                     Cfg.CommitTransaction;
                    except
                      Cfg.RollbackTransaction;
                      raise;
                    end;
                   end;
      CRplColData: begin
                    Cfg.StartTransaction;
                    try
                     With PRelation(Node.Data)^ do
                       Cfg.ForEachDataField(AddFieldToTree, ReplNo, TgtDbNo, RelationNo);
                     Cfg.CommitTransaction;
                    except
                      Cfg.RollbackTransaction;
                      raise;
                    end;
                   end;
     end; //case
     NodeIterator.CustomSort(@CompareProc, NodeIterator.ImageIndex);
    end; // if
   NodeIterator := NodeIterator.GetNextSibling;
  end;
end; //TVwRplExpanding