Procedure

TfrmDrawers.ExternalReloadTemplates

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmDrawers

Declaration

procedure ExternalReloadTemplates;

Calls Hierarchy


TfrmDrawers.ExternalReloadTemplates
 └TfrmDrawers.ReloadTemplates
   ├TfrmDrawers.SetFindNext
   ├LoadTemplateData
   │ ├GetTemplateRoots
   │ └AddTemplate
   │   ├TTemplate.Create
   │   │ └TTemplate.ReminderDialogIEN
   │   └TTemplate.AddChild
   │     └TTemplate.GetItems
   │       └ExpandTemplate
   │         ├TTemplate.GetChildren
   │         ├GetTemplateChildren
   │         ├AddTemplate...
   │         └TTemplate.ItemIENs
   │           └TTemplate.GetItems...
   ├UserTemplateAccessLevel
   │ ├GetTemplateRoots
   │ └GetTemplateAccess
   ├TTemplate.GetChildren
   ├TfrmDrawers.AddTemplateNode
   │ └TdmodShared.AddTemplateNode
   │   ├AddChildObject
   │   │ └TTemplate.AddNode
   │   └TTemplate.GetChildren
   └TfrmDrawers.OpenToNode
     └TdmodShared.SelectNode
       ├FindNode
       └TdmodShared.ExpandNode
         ├ExpandTemplate...
         ├TTemplate.GetItems...
         ├TdmodShared.AddTemplateNode...
         └TTemplate.GetChildren

Called-By Hierarchy


TfrmDrawers.ExternalReloadTemplates
               TdmodShared.Reload┘ 
 TfrmTemplateEditor.FormDestroy┘   

Calls

Name Declaration Comments
TfrmDrawers.ReloadTemplates procedure ReloadTemplates; -

Called-By

Name Declaration Comments
TdmodShared.Reload procedure Reload; -


Source

1106  procedure TfrmDrawers.ExternalReloadTemplates;
1107  begin
1108    if(FOpenToNode = '') and (assigned(tvTemplates.Selected)) then
1109      FOpenToNode := tvTemplates.GetNodeID(TORTreeNode(tvTemplates.Selected),1,';');
1110    tvTemplates.Items.Clear;
1111    FHasPersonalTemplates := FALSE;
1112    FEmptyNodeCount := 0;
1113    ReloadTemplates;
1114  end;