Procedure

TfrmTemplateEditor.mnuNodePasteClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuNodePasteClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuNodePasteClick
 ├TfrmTemplateEditor.PasteOK
 │ └TfrmTemplateEditor.AllowMove
 │   ├TfrmTemplateEditor.IsTemplateLocked
 │   │ ├TTemplate.AutoLock
 │   │ │ └TTemplate.LinkType
 │   │ ├TTemplate.IsLocked
 │   │ │ └TTemplate.AutoLock...
 │   │ └..(rec)..
 │   └TTemplate.GetItems
 │     └ExpandTemplate
 │       ├TTemplate.GetChildren
 │       ├GetTemplateChildren
 │       ├AddTemplate
 │       │ ├TTemplate.Create
 │       │ │ └TTemplate.ReminderDialogIEN
 │       │ └TTemplate.AddChild
 │       │   └TTemplate.GetItems...
 │       └TTemplate.ItemIENs
 │         └TTemplate.GetItems...
 └TfrmTemplateEditor.tvTreeDragDrop
   ├TTemplate.GetItems...
   ├TfrmTemplateEditor.AllowMove...
   ├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.SetBoilerplate
   │ │ │ │ ├TTemplate.CanModify...
   │ │ │ │ └TTemplate.ValidID
   │ │ │ ├TTemplate.GetBoilerplate
   │ │ │ │ └GetTemplateBoilerplate
   │ │ │ ├TTemplate.SetDescription
   │ │ │ │ ├TTemplate.CanModify...
   │ │ │ │ └TTemplate.ValidID
   │ │ │ └TTemplate.GetDescription
   │ │ │   └LoadTemplateDescription
   │ │ ├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.SetPersonalOwner
   │ ├TTemplate.CanModify...
   │ ├TTemplate.ValidID
   │ ├TTemplate.GetItems...
   │ └..(rec)..
   └TfrmTemplateEditor.Resync
     ├TdmodShared.Resync
     │ ├InSyncNode
     │ ├GetID
     │ │ └..(rec)..
     │ ├TTemplate.RemoveNode
     │ ├BuildNodes
     │ │ ├TTemplate.AddNode
     │ │ ├TTemplate.GetItems...
     │ │ ├..(rec)..
     │ │ └TTemplate.GetChildren
     │ └GetNode
     │   └GetID...
     ├TfrmTemplateEditor.EnableNavControls
     │ └TfrmTemplateEditor.AllowMove...
     └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

Calls

Name Declaration Comments
TfrmTemplateEditor.PasteOK function PasteOK: boolean; -
TfrmTemplateEditor.tvTreeDragDrop procedure tvTreeDragDrop(Sender, Source: TObject; X, Y: Integer); -


Source

2928  procedure TfrmTemplateEditor.mnuNodePasteClick(Sender: TObject);
2929  begin
2930    if (PasteOK) then
2931    begin
2932      FDragNode := FCopyNode;
2933      FDropNode := FPasteNode;
2934      FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
2935      FCopying := TRUE;
2936      try
2937        tvTreeDragDrop(tvShared, tvPersonal, 0, 0);
2938      finally
2939        FCopying := FALSE;
2940      end;
2941    end;
2942    FCopyNode := nil;
2943  end;