Procedure

TdmodShared.Reload

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TdmodShared

Declaration

procedure Reload;

Calls Hierarchy


TdmodShared.Reload
 ├ReleaseTemplates
 │ └ClearBackup
 │   └TTemplate.ClearBackup
 │     └TTemplate.ItemIENs
 │       └TTemplate.GetItems
 │         └ExpandTemplate
 │           ├TTemplate.GetChildren
 │           ├GetTemplateChildren
 │           ├AddTemplate
 │           │ ├TTemplate.Create
 │           │ │ └TTemplate.ReminderDialogIEN
 │           │ └TTemplate.AddChild
 │           │   └TTemplate.GetItems...
 │           └TTemplate.ItemIENs...
 └TfrmDrawers.ExternalReloadTemplates
   └TfrmDrawers.ReloadTemplates
     ├TfrmDrawers.SetFindNext
     ├LoadTemplateData
     │ ├GetTemplateRoots
     │ └AddTemplate...
     ├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


              TdmodShared.Reload
TfrmTemplateEditor.FormDestroy┘ 

Calls

Name Declaration Comments
TfrmDrawers.ExternalReloadTemplates procedure ExternalReloadTemplates; -
ReleaseTemplates procedure ReleaseTemplates; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.FormDestroy procedure FormDestroy(Sender: TObject); -


Source

514   procedure TdmodShared.Reload;
515   var
516     i: integer;
517   
518   begin
519     if(assigned(FDrawerTrees)) then
520     begin
521       ReleaseTemplates;
522       for i := 0 to FDrawerTrees.Count-1 do
523         TfrmDrawers(FDrawerTrees[i]).ExternalReloadTemplates;
524     end;
525   end;