Procedure

TfrmDrawers.ReloadTemplates

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

procedure ReloadTemplates;

Calls Hierarchy


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.ReloadTemplates
       TfrmDrawers.sbTemplatesClick┤ 
TfrmDrawers.ExternalReloadTemplates┘ 
               TdmodShared.Reload┘   
 TfrmTemplateEditor.FormDestroy┘     

Calls

Name Declaration Comments
TfrmDrawers.AddTemplateNode procedure AddTemplateNode(const tmpl: TTemplate; const Owner: TTreeNode = nil); -
TTemplate.GetChildren function GetChildren: TTemplateChildren; -
LoadTemplateData procedure LoadTemplateData; -
TfrmDrawers.OpenToNode procedure OpenToNode(Path: string = ''); -
TfrmDrawers.SetFindNext procedure SetFindNext(const Value: boolean); -
UserTemplateAccessLevel function UserTemplateAccessLevel: TTemplateAccess; -

Called-By

Name Declaration Comments
TfrmDrawers.ExternalReloadTemplates procedure ExternalReloadTemplates; -
TfrmDrawers.sbTemplatesClick procedure sbTemplatesClick(Sender: TObject); -


Source

973   procedure TfrmDrawers.ReloadTemplates;
974   begin
975     SetFindNext(FALSE);
976     LoadTemplateData;
977     if(UserTemplateAccessLevel <> taNone) and (assigned(MyTemplate)) and
978       (MyTemplate.Children in [tcActive, tcBoth]) then
979     begin
980       AddTemplateNode(MyTemplate);
981       FHasPersonalTemplates := TRUE;
982     end;
983     AddTemplateNode(RootTemplate);
984     OpenToNode;
985   end;