Procedure

TfrmTemplateEditor.FormDestroy

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure FormDestroy(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.FormDestroy
 ├RemoveAllNodes
 ├ClearBackup
 │ └TTemplate.ClearBackup
 │   └TTemplate.ItemIENs
 │     └TTemplate.GetItems
 │       └ExpandTemplate
 │         ├TTemplate.GetChildren
 │         ├GetTemplateChildren
 │         ├AddTemplate
 │         │ ├TTemplate.Create
 │         │ │ └TTemplate.ReminderDialogIEN
 │         │ └TTemplate.AddChild
 │         │   └TTemplate.GetItems...
 │         └TTemplate.ItemIENs...
 ├UnlockAllTemplates
 │ └TTemplate.Unlock
 │   ├TTemplate.ValidID
 │   └UnlockTemplate
 └TdmodShared.Reload
   ├ReleaseTemplates
   │ └ClearBackup...
   └TfrmDrawers.ExternalReloadTemplates
     └TfrmDrawers.ReloadTemplates
       ├TfrmDrawers.SetFindNext
       ├LoadTemplateData
       │ ├GetTemplateRoots
       │ └AddTemplate...
       ├UserTemplateAccessLevel
       │ ├GetTemplateRoots
       │ └GetTemplateAccess
       ├TTemplate.GetChildren
       ├TfrmDrawers.AddTemplateNode
       │ └TdmodShared.AddTemplateNode
       │   ├AddChildObject
       │   │ └TTemplate.AddNode
       │   └TTemplate.GetChildren
       └TfrmDrawers.OpenToNode
         └TdmodShared.SelectNode
           ├FindNode
           └TdmodShared.ExpandNode
             ├ExpandTemplate...
             ├TTemplate.GetItems...
             ├TdmodShared.AddTemplateNode...
             └TTemplate.GetChildren

Calls

Name Declaration Comments
ClearBackup procedure ClearBackup; -
TdmodShared.Reload procedure Reload; -
RemoveAllNodes procedure RemoveAllNodes; -
UnlockAllTemplates procedure UnlockAllTemplates; -


Source

1519  procedure TfrmTemplateEditor.FormDestroy(Sender: TObject);
1520  begin
1521    KillObj(@FConsultServices);
1522    Application.HintHidePause := FSavePause;
1523    if (assigned(frmTemplateObjects)) then
1524    begin
1525      frmTemplateObjects.Free;
1526      frmTemplateObjects := nil;
1527    end;
1528    if (assigned(frmTemplateFields)) then
1529    begin
1530      frmTemplateFields.Free;
1531      frmTemplateFields := nil;
1532    end;
1533    //---------- CQ #8665 - RV --------
1534    //KillObj(@FPersonalObjects);
1535    if (assigned(uPersonalObjects)) then
1536    begin
1537      KillObj(@uPersonalObjects);
1538      uPersonalObjects.Free;
1539      uPersonalObjects := nil;
1540    end;
1541    // ----  end CQ #8665 -------------
1542    dmodShared.OnTemplateLock := nil;
1543    dmodShared.InEditor := FALSE;
1544    RemoveAllNodes;
1545    ClearBackup;
1546    UnlockAllTemplates;
1547    dmodShared.Reload;
1548  end;