Procedure

TfrmTemplateEditor.btnOKClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure btnOKClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.btnOKClick
 ├TfrmTemplateEditor.ScanNames
 │ └ScanTree
 │   └BadTemplateName
 ├SaveAllTemplates
 │ ├SaveTemplate
 │ │ ├TTemplate.Changed
 │ │ │ ├TTemplate.ValidID
 │ │ │ └TTemplate.ItemIENs
 │ │ │   └TTemplate.GetItems
 │ │ │     └ExpandTemplate
 │ │ │       ├TTemplate.GetChildren
 │ │ │       ├GetTemplateChildren
 │ │ │       ├AddTemplate
 │ │ │       │ ├TTemplate.Create
 │ │ │       │ │ └TTemplate.ReminderDialogIEN
 │ │ │       │ └TTemplate.AddChild
 │ │ │       │   └TTemplate.GetItems...
 │ │ │       └TTemplate.ItemIENs...
 │ │ ├TTemplate.Unlock
 │ │ │ ├TTemplate.ValidID
 │ │ │ └UnlockTemplate
 │ │ ├TTemplate.GetBoilerplate
 │ │ │ └GetTemplateBoilerplate
 │ │ ├TTemplate.ReminderDialogIEN
 │ │ ├TTemplate.GetDescription
 │ │ │ └LoadTemplateDescription
 │ │ ├UpdateTemplate
 │ │ │ └UpdateTIURec
 │ │ ├DisplayErrors
 │ │ └TTemplate.ClearBackup
 │ │   └TTemplate.ItemIENs...
 │ ├TTemplate.ItemIENs...
 │ ├TTemplate.GetItems...
 │ ├UpdateChildren
 │ ├TTemplate.Unlock...
 │ ├DeleteTemplates
 │ └DisplayErrors
 └BackupDiffers
   └TTemplate.Changed...

Calls

Name Declaration Comments
BackupDiffers function BackupDiffers: boolean; -
SaveAllTemplates function SaveAllTemplates: boolean; -
TfrmTemplateEditor.ScanNames function ScanNames: boolean; -


Source

2529  procedure TfrmTemplateEditor.btnOKClick(Sender: TObject);
2530  begin
2531    if (ScanNames) then
2532    begin
2533      if (SaveAllTemplates) then
2534      begin
2535        FOK2Close := TRUE;
2536        ModalResult := mrOK;
2537      end
2538      else
2539        BtnApply.Enabled := BackupDiffers;
2540    end;
2541  end;