Procedure

TdmodShared.AddDrawerTree

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TdmodShared

Declaration

procedure AddDrawerTree(DrawerForm: TForm);

Calls Hierarchy


TdmodShared.AddDrawerTree
 └TdmodShared.EncounterLocationChanged
   └TfrmDrawers.UpdatePersonalTemplates
     ├UserTemplateAccessLevel
     │ ├GetTemplateRoots
     │ └GetTemplateAccess
     ├TTemplate.GetChildren
     ├TfrmDrawers.AddTemplateNode
     │ └TdmodShared.AddTemplateNode
     │   ├AddChildObject
     │   │ └TTemplate.AddNode
     │   └TTemplate.GetChildren
     └FindNode

Called-By Hierarchy


TdmodShared.AddDrawerTree
 TfrmDrawers.FormCreate┘ 

Calls

Name Declaration Comments
TdmodShared.EncounterLocationChanged procedure EncounterLocationChanged(Sender: TObject); -

Called-By

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


Source

494   procedure TdmodShared.AddDrawerTree(DrawerForm: TForm);
495   begin
496     if(assigned(FDrawerTrees)) and (FDrawerTrees.IndexOf(DrawerForm) < 0) then
497       FDrawerTrees.Add(DrawerForm);
498     Encounter.Notifier.NotifyWhenChanged(EncounterLocationChanged);
499   end;