Procedure

ReleaseTemplates

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ReleaseTemplates;

Calls Hierarchy


ReleaseTemplates
 └ClearBackup
   └TTemplate.ClearBackup
     └TTemplate.ItemIENs
       └TTemplate.GetItems
         └ExpandTemplate
           ├TTemplate.GetChildren
           ├GetTemplateChildren
           ├AddTemplate
           │ ├TTemplate.Create
           │ │ └TTemplate.ReminderDialogIEN
           │ └TTemplate.AddChild
           │   └TTemplate.GetItems...
           └TTemplate.ItemIENs...

Called-By Hierarchy


                      ReleaseTemplates
                  TdmodShared.Reload┤ 
    TfrmTemplateEditor.FormDestroy┘ │ 
             uTemplates.finalization┤ 
      TfrmTemplateEditor.RefreshData┘ 
TfrmTemplateEditor.mnuRefreshClick┘   

Calls

Name Declaration Comments
ClearBackup procedure ClearBackup; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.RefreshData procedure RefreshData; -
TdmodShared.Reload procedure Reload; -
uTemplates.finalization - -


Source

593   procedure ReleaseTemplates;
594   var
595     i: integer;
596   
597   begin
598     if(assigned(Templates)) then
599     begin
600       for i := 0 to Templates.Count-1 do
601         TTemplate(Templates.Objects[i]).Free;
602       Templates.Free;
603       Templates := nil;
604       uTemplateDataLoaded := FALSE;
605     end;
606     ClearBackup;
607     if(assigned(TempSL)) then
608     begin
609       TempSL.Free;
610       TempSL := nil;
611     end;
612     // -------- CQ #8665 - RV ------------
613     if (assigned(uPersonalObjects)) then
614     begin
615       KillObj(@uPersonalObjects);
616       uPersonalObjects.Free;
617       uPersonalObjects := nil;
618     end;
619     // ------end CQ #8665 ------------
620     if(assigned(Deleted)) then
621     begin
622       Deleted.Clear;
623       Deleted := nil;
624     end;
625     RootTemplate := nil;
626     MyTemplate := nil;
627     TitlesTemplate := nil;
628     ConsultsTemplate := nil;
629     ProceduresTemplate := nil;
630   end;