Procedure

TfrmTemplateEditor.mnuAutoGenClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuAutoGenClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuAutoGenClick
 ├TdmodShared.LoadTIUObjects
 │ └GetObjectList
 ├UpdatePersonalObjects
 │ └GetAllowedPersonalObjects
 ├GetAutoGenText
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ └GetTitleBoilerplate
 ├TfrmTemplateEditor.btnNewClick
 │ ├TfrmTemplateEditor.CanClone
 │ │ ├GetFirstPersonalNode
 │ │ │ └..(rec)..
 │ │ └TTemplate.CanModify
 │ │   ├TTemplate.ValidID
 │ │   └LockTemplate
 │ ├TfrmTemplateEditor.Clone
 │ │ ├TfrmTemplateEditor.CanClone...
 │ │ ├..(rec)..
 │ │ ├TTemplate.CanModify...
 │ │ ├TTemplate.Clone
 │ │ │ ├TTemplate.TrueClone
 │ │ │ │ ├TTemplate.GetChildren
 │ │ │ │ ├TTemplate.Create
 │ │ │ │ │ └TTemplate.ReminderDialogIEN
 │ │ │ │ ├TTemplate.SetBoilerplate
 │ │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ │ └TTemplate.ValidID
 │ │ │ │ ├TTemplate.GetBoilerplate
 │ │ │ │ │ └GetTemplateBoilerplate
 │ │ │ │ ├TTemplate.SetDescription
 │ │ │ │ │ ├TTemplate.CanModify...
 │ │ │ │ │ └TTemplate.ValidID
 │ │ │ │ └TTemplate.GetDescription
 │ │ │ │   └LoadTemplateDescription
 │ │ │ ├TTemplate.GetItems
 │ │ │ │ └ExpandTemplate
 │ │ │ │   ├TTemplate.GetChildren
 │ │ │ │   ├GetTemplateChildren
 │ │ │ │   ├AddTemplate
 │ │ │ │   │ ├TTemplate.Create...
 │ │ │ │   │ └TTemplate.AddChild
 │ │ │ │   │   └TTemplate.GetItems...
 │ │ │ │   └TTemplate.ItemIENs
 │ │ │ │     └TTemplate.GetItems...
 │ │ │ └TTemplate.BackupItems
 │ │ │   └TTemplate.ItemIENs...
 │ │ ├TTemplate.RemoveNode
 │ │ ├MarkDeleted
 │ │ │ ├TTemplate.ValidID
 │ │ │ ├TTemplate.SetFileLink
 │ │ │ │ └TTemplate.AssignFileLink
 │ │ │ │   ├TTemplate.CanModify...
 │ │ │ │   ├TTemplate.ValidID
 │ │ │ │   ├TTemplate.LinkType
 │ │ │ │   ├TTemplate.SetReminderDialog
 │ │ │ │   │ ├TTemplate.CanModify...
 │ │ │ │   │ ├TTemplate.ValidID
 │ │ │ │   │ ├TTemplate.ReminderDialogIEN
 │ │ │ │   │ ├TTemplate.LinkType
 │ │ │ │   │ └TTemplate.SetFileLink...
 │ │ │ │   ├TTemplate.GetItems...
 │ │ │ │   └..(rec)..
 │ │ │ ├TTemplate.GetItems...
 │ │ │ └..(rec)..
 │ │ ├TTemplate.AddNode
 │ │ ├TTemplate.GetItems...
 │ │ └TfrmTemplateEditor.ShowTemplateType
 │ ├TTemplate.CanModify...
 │ ├TTemplate.GetItems...
 │ ├TTemplate.CreateFromXML
 │ │ ├TTemplate.Create...
 │ │ ├TTemplate.SetBoilerplate...
 │ │ ├TTemplate.SetDescription...
 │ │ ├TTemplate.GetItems...
 │ │ ├..(rec)..
 │ │ └TTemplate.BackupItems...
 │ ├TTemplate.Create...
 │ ├TTemplate.BackupItems...
 │ └TfrmTemplateEditor.Resync
 │   ├TdmodShared.Resync
 │   │ ├InSyncNode
 │   │ ├GetID
 │   │ │ └..(rec)..
 │   │ ├TTemplate.RemoveNode
 │   │ ├BuildNodes
 │   │ │ ├TTemplate.AddNode
 │   │ │ ├TTemplate.GetItems...
 │   │ │ ├..(rec)..
 │   │ │ └TTemplate.GetChildren
 │   │ └GetNode
 │   │   └GetID...
 │   ├TfrmTemplateEditor.EnableNavControls
 │   │ └TfrmTemplateEditor.AllowMove
 │   │   ├TfrmTemplateEditor.IsTemplateLocked
 │   │   │ ├TTemplate.AutoLock
 │   │   │ │ └TTemplate.LinkType
 │   │   │ ├TTemplate.IsLocked
 │   │   │ │ └TTemplate.AutoLock...
 │   │   │ └..(rec)..
 │   │   └TTemplate.GetItems...
 │   └TfrmTemplateEditor.tvTreeChange
 │     ├TfrmTemplateEditor.ChangeTree
 │     ├TfrmTemplateEditor.IsTemplateLocked...
 │     ├TfrmTemplateEditor.EnableControls
 │     │ ├TfrmTemplateEditor.UpdateInsertsDialogs
 │     │ │ ├TfrmTemplateObjects.UpdateStatus
 │     │ │ └TfrmTemplateFields.UpdateStatus
 │     │ │   └TfrmTemplateFields.ValidInsert
 │     │ └TfrmTemplateEditor.EnableNavControls...
 │     └TfrmTemplateEditor.ShowInfo
 │       ├TfrmTemplateEditor.ShowTemplateType
 │       ├TfrmTemplateEditor.GetLinkType
 │       ├LoadServiceListWithSynonyms
 │       ├TTemplate.LinkName
 │       │ ├GetLinkName
 │       │ │ └ExternalName
 │       │ ├TTemplate.LinkIEN
 │       │ └TTemplate.LinkType
 │       ├TTemplate.LinkIEN
 │       ├TTemplate.GetDescription...
 │       ├TTemplate.IsLocked...
 │       ├TTemplate.AutoLock...
 │       ├TfrmTemplateEditor.IsTemplateLocked...
 │       ├TTemplate.GetChildren
 │       ├TTemplate.ReminderDialogIEN
 │       ├TdmodShared.InDialog
 │       │ └TTemplate.IsDialog
 │       ├TTemplate.GetBoilerplate...
 │       ├TfrmTemplateEditor.DisplayBoilerplate
 │       │ ├TfrmTemplateEditor.pnlBoilerplateResize
 │       │ ├TTemplate.GetBoilerplate...
 │       │ ├TTemplate.FullBoilerplate
 │       │ │ ├TTemplate.GetBoilerplate...
 │       │ │ ├TTemplate.ItemBoilerplate
 │       │ │ │ ├TTemplate.GetItems...
 │       │ │ │ ├TTemplate.GetTemplateType
 │       │ │ │ ├DlgText
 │       │ │ │ └TTemplate.DialogProperties
 │       │ │ │   ├TTemplate.GetBoilerplate...
 │       │ │ │   └TTemplate.DlgID
 │       │ │ ├DlgText
 │       │ │ └TTemplate.DialogProperties...
 │       │ ├TfrmTemplateEditor.UpdateInsertsDialogs...
 │       │ ├TfrmTemplateEditor.ShowBoilerPlate
 │       │ └TfrmTemplateEditor.ShowGroupBoilerplate
 │       ├TfrmTemplateEditor.ShowGroupBoilerplate
 │       └TfrmTemplateEditor.pnlBoilerplateResize
 ├TTemplate.SetPrintName
 │ ├TTemplate.CanModify...
 │ └TTemplate.ValidID
 ├TTemplate.SetBoilerplate...
 ├TfrmTemplateEditor.ShowInfo...
 └TfrmTemplateEditor.edtNameOldChange
   ├TfrmTemplateEditor.CanClone...
   ├TfrmTemplateEditor.Clone...
   ├TTemplate.CanModify...
   ├TTemplate.SetPrintName...
   └TfrmTemplateEditor.UpdateApply
     └TTemplate.Changed
       ├TTemplate.ValidID
       └TTemplate.ItemIENs...

Calls

Name Declaration Comments
TfrmTemplateEditor.btnNewClick procedure btnNewClick(Sender: TObject); -
TfrmTemplateEditor.edtNameOldChange procedure edtNameOldChange(Sender: TObject); -
GetAutoGenText procedure GetAutoGenText(var AName, AText: string; InList: TStringList); -
TdmodShared.LoadTIUObjects procedure LoadTIUObjects; -
TTemplate.SetBoilerplate procedure SetBoilerplate(Value: string); -
TTemplate.SetPrintName procedure SetPrintName(const Value: string); -
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -
UpdatePersonalObjects procedure UpdatePersonalObjects; -


Source

3245  procedure TfrmTemplateEditor.mnuAutoGenClick(Sender: TObject);
3246  var
3247    AName, AText: string;
3248  
3249  begin
3250    dmodShared.LoadTIUObjects;
3251    UpdatePersonalObjects;
3252    GetAutoGenText(AName, AText, uPersonalObjects); // -------- CQ #8665 - RV ------------
3253    if (AName <> '') and (AText <> '') then
3254    begin
3255      btnNewClick(Self);
3256      TTemplate(FBtnNewNode.Data).PrintName := AName;
3257      TTemplate(FBtnNewNode.Data).Boilerplate := AText;
3258      ShowInfo(FBtnNewNode);
3259      edtNameOldChange(Self);
3260    end;
3261  end;