Procedure

TfrmTemplateEditor.mnuRefreshClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuRefreshClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuRefreshClick
 ├TfrmTemplateEditor.btnApplyClick
 │ ├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...
 │ └UnlockAllTemplates
 │   └TTemplate.Unlock...
 └TfrmTemplateEditor.RefreshData
   ├ReleaseTemplates
   │ └ClearBackup
   │   └TTemplate.ClearBackup...
   └TfrmTemplateEditor.InitTrees
     ├LoadTemplateData
     │ ├GetTemplateRoots
     │ └AddTemplate...
     ├SaveTemplate...
     ├AddTemplate...
     ├TdmodShared.AddTemplateNode
     │ ├AddChildObject
     │ │ └TTemplate.AddNode
     │ └TTemplate.GetChildren
     ├UserTemplateAccessLevel
     │ ├GetTemplateRoots
     │ └GetTemplateAccess
     └CanEditLinkType
       └CanEditType
         └IsUserTemplateEditor

Calls

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


Source

3987  procedure TfrmTemplateEditor.mnuRefreshClick(Sender: TObject);
3988  begin
3989    if btnApply.Enabled then
3990    begin
3991      if InfoBox('All changes must be saved before you can Refresh.  Save Changes?',
3992        'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then
3993        exit;
3994    end;
3995    btnApplyClick(Sender);
3996    if BtnApply.Enabled then
3997      InfoBox('Save not completed - unable to refresh.', 'Error', MB_OK or MB_ICONERROR)
3998    else
3999      RefreshData;
4000  end;