Procedure

TfrmTemplateEditor.mnuSortClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuSortClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuSortClick
 ├TTemplate.SortChildren
 │ ├TTemplate.GetItems
 │ │ └ExpandTemplate
 │ │   ├TTemplate.GetChildren
 │ │   ├GetTemplateChildren
 │ │   ├AddTemplate
 │ │   │ ├TTemplate.Create
 │ │   │ │ └TTemplate.ReminderDialogIEN
 │ │   │ └TTemplate.AddChild
 │ │   │   └TTemplate.GetItems...
 │ │   └TTemplate.ItemIENs
 │ │     └TTemplate.GetItems...
 │ ├TTemplate.CanModify
 │ │ ├TTemplate.ValidID
 │ │ └LockTemplate
 │ └TemplateChildrenCompare
 └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
       │ └LoadTemplateDescription
       ├TTemplate.IsLocked...
       ├TTemplate.AutoLock...
       ├TfrmTemplateEditor.IsTemplateLocked...
       ├TTemplate.GetChildren
       ├TTemplate.ReminderDialogIEN
       ├TdmodShared.InDialog
       │ └TTemplate.IsDialog
       ├TTemplate.GetBoilerplate
       │ └GetTemplateBoilerplate
       ├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

Calls

Name Declaration Comments
TfrmTemplateEditor.Resync procedure Resync(const Templates: array of TTemplate); -
TTemplate.SortChildren procedure SortChildren; -


Source

3186  procedure TfrmTemplateEditor.mnuSortClick(Sender: TObject);
3187  var
3188    Tree: TTreeView;
3189  
3190  begin
3191    Tree := FCurTree;
3192    if (assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then
3193    begin
3194      TTemplate(Tree.Selected.Data).SortChildren;
3195      Resync([TTemplate(Tree.Selected.Data)]);
3196      btnApply.Enabled := TRUE;
3197    end;
3198  end;