Procedure

AddChildObject

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Scope

Local

Local subprogram to

AddTemplateNode

Declaration

procedure AddChildObject(Owner: TTreeNode);

Calls Hierarchy


AddChildObject
 └TTemplate.AddNode

Called-By Hierarchy


                                    AddChildObject
                     TdmodShared.AddTemplateNode┘ 
                        TdmodShared.ExpandNode┤   
                      TdmodShared.SelectNode┤ │   
                    TfrmDrawers.OpenToNode┘ │ │   
             TfrmDrawers.ReloadTemplates┤   │ │   
          TfrmDrawers.sbTemplatesClick┤ │   │ │   
   TfrmDrawers.ExternalReloadTemplates┘ │   │ │   
                  TdmodShared.Reload┘   │   │ │   
    TfrmTemplateEditor.FormDestroy┘     │   │ │   
         TfrmDrawers.mnuGotoDefaultClick┘   │ │   
                      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┘   │ │   
            TfrmDrawers.tvTemplatesExpanding┤ │   
      TfrmTemplateEditor.tvPersonalExpanding┤ │   
        TfrmTemplateEditor.tvSharedExpanding┘ │   
                   TfrmDrawers.AddTemplateNode┤   
              TfrmDrawers.ReloadTemplates...┤ │   
         TfrmDrawers.UpdatePersonalTemplates┘ │   
      TdmodShared.EncounterLocationChanged┘   │   
               TdmodShared.AddDrawerTree┘     │   
                TfrmDrawers.FormCreate┘       │   
                  TfrmTemplateEditor.InitTrees┘   
               TfrmTemplateEditor.FormCreate┤     
              TfrmTemplateEditor.RefreshData┘     
        TfrmTemplateEditor.mnuRefreshClick┘       

Calls

Name Declaration Comments
TTemplate.AddNode procedure AddNode(Node: Pointer); -

Called-By

Name Declaration Comments
TdmodShared.AddTemplateNode procedure AddTemplateNode(Tree: TTreeView; var EmptyCount: integer; const tmpl: TTemplate; AllowInactive: boolean = FALSE; const Owner: TTreeNode = nil); -


Source

162   procedure AddChildObject(Owner: TTreeNode);
163   begin
164     NewNode := Tree.Items.AddChildObject(Owner, tmpl.PrintName, tmpl);
165     TORTreeNode(NewNode).StringData := tmpl.ID + U + tmpl.PrintName;
166     NewNode.Cut := not tmpl.Active;
167     tmpl.AddNode(NewNode);
168     Done := TRUE;
169   end;