Procedure

LoadTemplateData

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure LoadTemplateData;

Calls Hierarchy


LoadTemplateData
 ├GetTemplateRoots
 └AddTemplate
   ├TTemplate.Create
   │ └TTemplate.ReminderDialogIEN
   └TTemplate.AddChild
     └TTemplate.GetItems
       └ExpandTemplate
         ├TTemplate.GetChildren
         ├GetTemplateChildren
         ├AddTemplate...
         └TTemplate.ItemIENs
           └TTemplate.GetItems...

Called-By Hierarchy


                        LoadTemplateData
           TfrmDrawers.ReloadTemplates┤ 
        TfrmDrawers.sbTemplatesClick┤ │ 
 TfrmDrawers.ExternalReloadTemplates┘ │ 
                TdmodShared.Reload┘   │ 
  TfrmTemplateEditor.FormDestroy┘     │ 
          TfrmTemplateEditor.InitTrees┘ 
       TfrmTemplateEditor.FormCreate┤   
      TfrmTemplateEditor.RefreshData┘   
TfrmTemplateEditor.mnuRefreshClick┘     

Calls

Name Declaration Comments
AddTemplate function AddTemplate(DataString: string; Owner: TTemplate = nil): TTemplate; -
GetTemplateRoots procedure GetTemplateRoots; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.InitTrees procedure InitTrees; -
TfrmDrawers.ReloadTemplates procedure ReloadTemplates; -


Source

531   procedure LoadTemplateData;
532   var
533     i: integer;
534     TmpSL: TStringList;
535   
536   begin
537     if(not uTemplateDataLoaded) then
538     begin
539       StatusText(sLoading);
540       try
541         if(not assigned(Templates)) then
542           Templates := TStringList.Create;
543         TmpSL := TStringList.Create;
544         try
545           GetTemplateRoots;
546           FastAssign(RPCBrokerV.Results, TmpSL);
547           for i := 0 to TmpSL.Count-1 do
548             AddTemplate(TmpSL[i]);
549           uTemplateDataLoaded := TRUE;
550         finally
551           TmpSL.Free;
552         end;
553       finally
554         StatusText('');
555       end;
556     end;
557   end;