Procedure

TTemplate.AddNode

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

procedure AddNode(Node: Pointer);

Called-By Hierarchy


                                   TTemplate.AddNode
                                    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┘       │ 
                                        BuildNodes┤ 
                                       ..(rec)..┤ │ 
                              TdmodShared.Resync┘ │ 
              TfrmTemplateEditor.cbShHideClick┤   │ 
            TfrmTemplateEditor.cbActiveClick┘ │   │ 
             TfrmTemplateEditor.cbPerHideClick┤   │ 
            TfrmTemplateEditor.cbActiveClick┘ │   │ 
                     TfrmTemplateEditor.Resync┘   │ 
              TfrmTemplateEditor.btnNewClick┤     │ 
                          EditTemplates...┤ │     │ 
        TfrmTemplateEditor.mnuAutoGenClick┤ │     │ 
 TfrmTemplateEditor.mnuImportTemplateClick┘ │     │ 
            TfrmTemplateEditor.sbMoveUpClick┤     │ 
          TfrmTemplateEditor.sbMoveDownClick┤     │ 
            TfrmTemplateEditor.sbDeleteClick┤     │ 
     TfrmTemplateEditor.mnuNodeDeleteClick┤ │     │ 
          TfrmTemplateEditor.tvTreeKeyDown┘ │     │ 
           TfrmTemplateEditor.tvTreeDragDrop┤     │ 
        TfrmTemplateEditor.sbCopyLeftClick┤ │     │ 
       TfrmTemplateEditor.sbCopyRightClick┤ │     │ 
      TfrmTemplateEditor.mnuNodePasteClick┘ │     │ 
             TfrmTemplateEditor.mnuSortClick┤     │ 
           TfrmTemplateEditor.TemplateLocked┘     │ 
             TfrmTemplateEditor.FormCreate┘       │ 
                          TfrmTemplateEditor.Clone┘ 
               TfrmTemplateEditor.btnNewClick...┤   
             TfrmTemplateEditor.edtNameOldChange┤   
           TfrmTemplateEditor.tvTreeNodeEdited┤ │   
            TfrmTemplateEditor.mnuAutoGenClick┘ │   
                TfrmTemplateEditor.cbActiveClick┤   
               TfrmTemplateEditor.cbExcludeClick┤   
                 TfrmTemplateEditor.edtGapChange┤   
                TfrmTemplateEditor.sbMoveUpClick┤   
              TfrmTemplateEditor.sbMoveDownClick┤   
             TfrmTemplateEditor.sbDeleteClick...┤   
            TfrmTemplateEditor.tvTreeDragDrop...┤   
                                       ..(rec)..┤   
                 TfrmTemplateEditor.reBoilChange┤   
                TfrmTemplateEditor.reNotesChange┤   
                      TfrmTemplateEditor.cbClick┤   
         TfrmTemplateEditor.cbDisplayOnlyClick┤ │   
           TfrmTemplateEditor.cbFirstLineClick┤ │   
         TfrmTemplateEditor.cbOneItemOnlyClick┤ │   
        TfrmTemplateEditor.cbHideDlgItemsClick┤ │   
           TfrmTemplateEditor.cbHideItemsClick┤ │   
              TfrmTemplateEditor.cbIndentClick┤ │   
                TfrmTemplateEditor.cbLockClick┘ │   
                TfrmTemplateEditor.cbxTypeChange┤   
             TfrmTemplateEditor.cbxRemDlgsChange┘   

Called-By

Name Declaration Comments
AddChildObject procedure AddChildObject(Owner: TTreeNode); -
BuildNodes procedure BuildNodes(tmpl: TTemplate; Owner: TTreeNode); -
TfrmTemplateEditor.Clone function Clone(Node: TTreeNode): boolean; -


Source

1956  procedure TTemplate.AddNode(Node: Pointer);
1957  begin
1958    if(dmodShared.InEditor) and (FNodes.IndexOfObject(Node) < 0) then
1959    begin
1960      inc(NodeCount);
1961      FNodes.AddObject(IntToStr(NodeCount),Node);
1962    end;
1963  end;