Procedure

TdmodShared.ExpandTree

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TdmodShared

Declaration

procedure ExpandTree(Tree: TORTreeView; ExpandString: string; var EmptyCount: integer;
                     AllowInactive: boolean = FALSE);

Calls Hierarchy


TdmodShared.ExpandTree
 └TdmodShared.ExpandNode
   ├ExpandTemplate
   │ ├TTemplate.GetChildren
   │ ├GetTemplateChildren
   │ ├AddTemplate
   │ │ ├TTemplate.Create
   │ │ │ └TTemplate.ReminderDialogIEN
   │ │ └TTemplate.AddChild
   │ │   └TTemplate.GetItems
   │ │     └ExpandTemplate...
   │ └TTemplate.ItemIENs
   │   └TTemplate.GetItems...
   ├TTemplate.GetItems...
   ├TdmodShared.AddTemplateNode
   │ ├AddChildObject
   │ │ └TTemplate.AddNode
   │ └TTemplate.GetChildren
   └TTemplate.GetChildren

Called-By Hierarchy


                      TdmodShared.ExpandTree
                             EditTemplates┘ 
     TfrmDCSumm.popSummMemoTemplateClick┤   
          TfrmDCSumm.mnuNewTemplateClick┤   
        TfrmDCSumm.mnuEditTemplatesClick┤   
  TfrmDCSumm.mnuEditSharedTemplatesClick┤   
    TfrmDCSumm.mnuNewSharedTemplateClick┤   
   TfrmConsults.popNoteMemoTemplateClick┤   
      TfrmConsults.mnuEditTemplatesClick┤   
        TfrmConsults.mnuNewTemplateClick┤   
TfrmConsults.mnuEditSharedTemplatesClick┤   
  TfrmConsults.mnuNewSharedTemplateClick┤   
       TfrmDrawers.mnuEditTemplatesClick┤   
         TfrmDrawers.mnuNewTemplateClick┤   
    TfrmSurgery.popNoteMemoTemplateClick┤   
       TfrmSurgery.mnuEditTemplatesClick┤   
         TfrmSurgery.mnuNewTemplateClick┤   
 TfrmSurgery.mnuEditSharedTemplatesClick┤   
   TfrmSurgery.mnuNewSharedTemplateClick┤   
      TfrmNotes.popNoteMemoTemplateClick┤   
         TfrmNotes.mnuEditTemplatesClick┤   
           TfrmNotes.mnuNewTemplateClick┤   
   TfrmNotes.mnuEditSharedTemplatesClick┤   
     TfrmNotes.mnuNewSharedTemplateClick┘   

Calls

Name Declaration Comments
TdmodShared.ExpandNode function ExpandNode(Tree: TTreeView; Node: TTreeNode; var EmptyCount: integer; AllowInactive: boolean = FALSE): boolean; -

Called-By

Name Declaration Comments
EditTemplates procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; CopiedText: string = ''; Shared: boolean = FALSE); -


Source

772   procedure TdmodShared.ExpandTree(Tree: TORTreeView; ExpandString: string;
773     var EmptyCount: integer; AllowInactive: boolean = FALSE);
774   
775   var
776     NStr: string;
777     i: integer;
778     Node: TTreeNode;
779   
780   begin
781     Tree.Items.BeginUpdate;
782     try
783       i := 1;
784       repeat
785         NStr := piece(ExpandString,U,i);
786         if(NStr <> '') then
787         begin
788           inc(i);
789           Node := Tree.FindPieceNode(NStr, 1, ';');
790           if assigned(Node) then
791           begin
792             ExpandNode(Tree, Node, EmptyCount, AllowInactive);
793             Node.Expand(False);
794           end;
795         end;
796       until(NStr = '');
797     finally
798       Tree.Items.EndUpdate;
799     end;
800   end;