Procedure

TTemplate.Unlock

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TTemplate

Declaration

procedure Unlock;

Calls Hierarchy


TTemplate.Unlock
 ├TTemplate.ValidID
 └UnlockTemplate

Called-By Hierarchy


                          TTemplate.Unlock
                            SaveTemplate┤ 
                      SaveAllTemplates┤ │ 
    TfrmTemplateEditor.btnApplyClick┤ │ │ 
TfrmTemplateEditor.mnuRefreshClick┘ │ │ │ 
       TfrmTemplateEditor.btnOKClick┤ │ │ 
   TfrmTemplateEditor.FormCloseQuery┘ │ │ 
          TfrmTemplateEditor.InitTrees┘ │ 
       TfrmTemplateEditor.FormCreate┤   │ 
      TfrmTemplateEditor.RefreshData┘   │ 
TfrmTemplateEditor.mnuRefreshClick┘     │ 
                     SaveAllTemplates...┤ 
                      UnlockAllTemplates┤ 
   TfrmTemplateEditor.btnApplyClick...┤ │ 
        TfrmTemplateEditor.FormDestroy┘ │ 
                       TTemplate.Destroy┘ 

Calls

Name Declaration Comments
UnlockTemplate procedure UnlockTemplate(const ID: string); -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TTemplate.Destroy destructor Destroy; override; -
SaveAllTemplates function SaveAllTemplates: boolean; -
SaveTemplate procedure SaveTemplate(Template: TTemplate; Idx: integer; ErrorList: TStrings = nil); -
UnlockAllTemplates procedure UnlockAllTemplates; -


Source

2592  procedure TTemplate.Unlock;
2593  begin
2594    if FLocked and ValidID then
2595    begin
2596      UnlockTemplate(FID);
2597      FLocked := FALSE;
2598    end;
2599  end;