Procedure

UnlockAllTemplates

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure UnlockAllTemplates;

Calls Hierarchy


UnlockAllTemplates
 └TTemplate.Unlock
   ├TTemplate.ValidID
   └UnlockTemplate

Called-By Hierarchy


                    UnlockAllTemplates
    TfrmTemplateEditor.btnApplyClick┤ 
TfrmTemplateEditor.mnuRefreshClick┘ │ 
      TfrmTemplateEditor.FormDestroy┘ 

Calls

Name Declaration Comments
TTemplate.Unlock procedure Unlock; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.btnApplyClick procedure btnApplyClick(Sender: TObject); -
TfrmTemplateEditor.FormDestroy procedure FormDestroy(Sender: TObject); -


Source

1474  procedure UnlockAllTemplates;
1475  var
1476    i: integer;
1477  
1478  begin
1479    if(assigned(Templates)) then
1480    begin
1481      for i := 0 to Templates.Count-1 do
1482        TTemplate(Templates.Objects[i]).Unlock;
1483    end;
1484  end;