Procedure

TTemplate.ClearBackup

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure ClearBackup(ClearItemIENs: boolean = TRUE);

Calls Hierarchy


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

Called-By Hierarchy


                     TTemplate.ClearBackup
                            SaveTemplate┤ 
                      SaveAllTemplates┤ │ 
    TfrmTemplateEditor.btnApplyClick┤ │ │ 
TfrmTemplateEditor.mnuRefreshClick┘ │ │ │ 
       TfrmTemplateEditor.btnOKClick┤ │ │ 
   TfrmTemplateEditor.FormCloseQuery┘ │ │ 
          TfrmTemplateEditor.InitTrees┘ │ 
       TfrmTemplateEditor.FormCreate┤   │ 
      TfrmTemplateEditor.RefreshData┘   │ 
TfrmTemplateEditor.mnuRefreshClick┘     │ 
                             ClearBackup┘ 
                      ReleaseTemplates┤   
                  TdmodShared.Reload┤ │   
    TfrmTemplateEditor.FormDestroy┘ │ │   
             uTemplates.finalization┤ │   
   TfrmTemplateEditor.RefreshData...┘ │   
         TfrmTemplateEditor.FormCreate┤   
        TfrmTemplateEditor.FormDestroy┘   

Calls

Name Declaration Comments
TTemplate.ItemIENs function ItemIENs: string; -

Called-By

Name Declaration Comments
ClearBackup procedure ClearBackup; -
SaveTemplate procedure SaveTemplate(Template: TTemplate; Idx: integer; ErrorList: TStrings = nil); -


Source

2180  procedure TTemplate.ClearBackup(ClearItemIENs: boolean = TRUE);
2181  begin
2182    with FBkup do
2183    begin
2184      SavedPrintName := FALSE;
2185      SavedGap := FALSE;
2186      SavedRealType := FALSE;
2187      SavedActive := FALSE;
2188      SavedDisplayOnly := FALSE;
2189      SavedFirstLine := FALSE;
2190      SavedOneItemOnly := FALSE;
2191      SavedHideDlgItems := FALSE;
2192      SavedHideItems := FALSE;
2193      SavedIndentItems := FALSE;
2194      SavedLock := FALSE;
2195      SavedExclude := FALSE;
2196      SavedDialog := FALSE;
2197      SavedPersonalOwner := FALSE;
2198      SavedBoilerPlate := FALSE;
2199      SavedDescription := FALSE;
2200      SavedReminderDialog := FALSE;
2201      SavedCOMObject := FALSE;
2202      SavedCOMParam := FALSE;
2203      SavedFileLink := FALSE;
2204      if(ClearItemIENs) then
2205      begin
2206        if(FExpanded) then
2207        begin
2208          BItemIENs := ItemIENs;
2209          SavedItemIENs := TRUE;
2210        end
2211        else
2212          SavedItemIENs := FALSE;
2213      end;
2214    end;
2215  end;