Procedure

TfrmTemplateEditor.SharedEditing

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TfrmTemplateEditor

Declaration

procedure SharedEditing;

Calls Hierarchy


TfrmTemplateEditor.SharedEditing
 ├TfrmTemplateEditor.MoveCopyButtons
 ├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
 └TfrmTemplateEditor.AdjustControls4FontChange
   └Adjust

Called-By Hierarchy


      TfrmTemplateEditor.SharedEditing
       TfrmTemplateEditor.FormCreate┤ 
TfrmTemplateEditor.cbEditSharedClick┘ 

Calls

Name Declaration Comments
TfrmTemplateEditor.AdjustControls4FontChange procedure AdjustControls4FontChange; -
TfrmTemplateEditor.MoveCopyButtons procedure MoveCopyButtons; -
TfrmTemplateEditor.tvTreeChange procedure tvTreeChange(Sender: TObject; Node: TTreeNode); -

Called-By

Name Declaration Comments
TfrmTemplateEditor.cbEditSharedClick procedure cbEditSharedClick(Sender: TObject); -
TfrmTemplateEditor.FormCreate procedure FormCreate(Sender: TObject); -


Source

2273  procedure TfrmTemplateEditor.SharedEditing;
2274  begin
2275  {$IFDEF OwnerScan}
2276    lblPerOwner.Visible := FCanEditShared;
2277    cboOwner.Visible := FCanEditShared;
2278  {$ELSE}
2279    lblPerOwner.Visible := FALSE;
2280    cboOwner.Visible := FALSE;
2281  {$ENDIF}
2282    sbCopyLeft.Visible := FCanEditShared;
2283    if (not FCanEditShared) then
2284      cbShHide.Checked := TRUE;
2285    cbShHide.Visible := FCanEditShared;
2286    sbShDelete.Visible := FCanEditShared;
2287    sbShUp.Visible := FCanEditShared;
2288    sbShDown.Visible := FCanEditShared;
2289    tvShared.ReadOnly := not FCanEditShared;
2290    MoveCopyButtons;
2291    tvTreeChange(FCurTree, FCurTree.Selected);
2292    if FCanEditShared then
2293      AdjustControls4FontChange;
2294  end;