Procedure

TfrmTemplateEditor.tvTreeChange

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure tvTreeChange(Sender: TObject; Node: TTreeNode);

Calls Hierarchy


TfrmTemplateEditor.tvTreeChange
 ├TfrmTemplateEditor.ChangeTree
 ├TfrmTemplateEditor.IsTemplateLocked
 │ ├TTemplate.AutoLock
 │ │ └TTemplate.LinkType
 │ ├TTemplate.IsLocked
 │ │ └TTemplate.AutoLock...
 │ └..(rec)..
 ├TfrmTemplateEditor.EnableControls
 │ ├TfrmTemplateEditor.UpdateInsertsDialogs
 │ │ ├TfrmTemplateObjects.UpdateStatus
 │ │ └TfrmTemplateFields.UpdateStatus
 │ │   └TfrmTemplateFields.ValidInsert
 │ └TfrmTemplateEditor.EnableNavControls
 │   └TfrmTemplateEditor.AllowMove
 │     ├TfrmTemplateEditor.IsTemplateLocked...
 │     └TTemplate.GetItems
 │       └ExpandTemplate
 │         ├TTemplate.GetChildren
 │         ├GetTemplateChildren
 │         ├AddTemplate
 │         │ ├TTemplate.Create
 │         │ │ └TTemplate.ReminderDialogIEN
 │         │ └TTemplate.AddChild
 │         │   └TTemplate.GetItems...
 │         └TTemplate.ItemIENs
 │           └TTemplate.GetItems...
 └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

Called-By Hierarchy


                 TfrmTemplateEditor.tvTreeChange
              TfrmTemplateEditor.cbActiveClick┤ 
                TfrmTemplateEditor.tvTreeEnter┤ 
              TfrmTemplateEditor.cbShHideClick┤ 
            TfrmTemplateEditor.cbActiveClick┘ │ 
             TfrmTemplateEditor.cbPerHideClick┤ 
            TfrmTemplateEditor.cbActiveClick┘ │ 
              TfrmTemplateEditor.sbDeleteClick┤ 
       TfrmTemplateEditor.mnuNodeDeleteClick┤ │ 
            TfrmTemplateEditor.tvTreeKeyDown┘ │ 
                     TfrmTemplateEditor.Resync┤ 
              TfrmTemplateEditor.btnNewClick┤ │ 
                             EditTemplates┤ │ │ 
     TfrmDCSumm.popSummMemoTemplateClick┤ │ │ │ 
          TfrmDCSumm.mnuNewTemplateClick┤ │ │ │ 
        TfrmDCSumm.mnuEditTemplatesClick┤ │ │ │ 
  TfrmDCSumm.mnuEditSharedTemplatesClick┤ │ │ │ 
    TfrmDCSumm.mnuNewSharedTemplateClick┤ │ │ │ 
   TfrmConsults.popNoteMemoTemplateClick┤ │ │ │ 
      TfrmConsults.mnuEditTemplatesClick┤ │ │ │ 
        TfrmConsults.mnuNewTemplateClick┤ │ │ │ 
TfrmConsults.mnuEditSharedTemplatesClick┤ │ │ │ 
  TfrmConsults.mnuNewSharedTemplateClick┤ │ │ │ 
       TfrmDrawers.mnuEditTemplatesClick┤ │ │ │ 
         TfrmDrawers.mnuNewTemplateClick┤ │ │ │ 
    TfrmSurgery.popNoteMemoTemplateClick┤ │ │ │ 
       TfrmSurgery.mnuEditTemplatesClick┤ │ │ │ 
         TfrmSurgery.mnuNewTemplateClick┤ │ │ │ 
 TfrmSurgery.mnuEditSharedTemplatesClick┤ │ │ │ 
   TfrmSurgery.mnuNewSharedTemplateClick┤ │ │ │ 
      TfrmNotes.popNoteMemoTemplateClick┤ │ │ │ 
         TfrmNotes.mnuEditTemplatesClick┤ │ │ │ 
           TfrmNotes.mnuNewTemplateClick┤ │ │ │ 
   TfrmNotes.mnuEditSharedTemplatesClick┤ │ │ │ 
     TfrmNotes.mnuNewSharedTemplateClick┘ │ │ │ 
        TfrmTemplateEditor.mnuAutoGenClick┤ │ │ 
 TfrmTemplateEditor.mnuImportTemplateClick┘ │ │ 
            TfrmTemplateEditor.sbMoveUpClick┤ │ 
          TfrmTemplateEditor.sbMoveDownClick┤ │ 
         TfrmTemplateEditor.sbDeleteClick...┤ │ 
           TfrmTemplateEditor.tvTreeDragDrop┤ │ 
        TfrmTemplateEditor.sbCopyLeftClick┤ │ │ 
       TfrmTemplateEditor.sbCopyRightClick┤ │ │ 
      TfrmTemplateEditor.mnuNodePasteClick┘ │ │ 
             TfrmTemplateEditor.mnuSortClick┤ │ 
           TfrmTemplateEditor.TemplateLocked┘ │ 
             TfrmTemplateEditor.FormCreate┘   │ 
              TfrmTemplateEditor.SharedEditing┤ 
               TfrmTemplateEditor.FormCreate┤ │ 
        TfrmTemplateEditor.cbEditSharedClick┘ │ 
              TfrmTemplateEditor.cbxTypeChange┘ 

Calls

Name Declaration Comments
TfrmTemplateEditor.ChangeTree function ChangeTree(NewTree: TTreeView): boolean; -
TfrmTemplateEditor.EnableControls procedure EnableControls(ok, Root: boolean); -
TfrmTemplateEditor.IsTemplateLocked function IsTemplateLocked(Node: TTreeNode): boolean; -
TfrmTemplateEditor.ShowInfo procedure ShowInfo(Node: TTreeNode); -

Called-By

Name Declaration Comments
TfrmTemplateEditor.cbActiveClick procedure cbActiveClick(Sender: TObject); -
TfrmTemplateEditor.cbPerHideClick procedure cbPerHideClick(Sender: TObject); -
TfrmTemplateEditor.cbShHideClick procedure cbShHideClick(Sender: TObject); -
TfrmTemplateEditor.cbxTypeChange procedure cbxTypeChange(Sender: TObject); -
TfrmTemplateEditor.Resync procedure Resync(const Templates: array of TTemplate); -
TfrmTemplateEditor.sbDeleteClick procedure sbDeleteClick(Sender: TObject); -
TfrmTemplateEditor.SharedEditing procedure SharedEditing; -
TfrmTemplateEditor.tvTreeEnter procedure tvTreeEnter(Sender: TObject); -


Source

844   procedure TfrmTemplateEditor.tvTreeChange(Sender: TObject;
845     Node: TTreeNode);
846   var
847     ok, Something: boolean;
848     Template: TTemplate;
849   
850   begin
851     ChangeTree(TTreeView(Sender));
852     Something := assigned(Node);
853     if Something then
854     begin
855       Template := TTemplate(Node.Data);
856       Something := assigned(Template);
857       if Something then
858       begin
859         if (Sender = tvPersonal) then
860         begin
861           ok := FCanEditPersonal;
862           if ok and (Template.PersonalOwner = 0) and IsTemplateLocked(Node) then
863             ok := FALSE;
864         end
865         else
866           ok := FCanEditShared;
867         EnableControls(ok, (Template.RealType in AllTemplateRootTypes));
868         ShowInfo(Node);
869       end;
870     end;
871     if not Something then
872     begin
873       gbProperties.Caption := PropText;
874       EnableControls(FALSE, FALSE);
875       ShowInfo(nil);
876     end;
877   end;