Procedure

TdmodShared.EncounterLocationChanged

Module

dShared

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TdmodShared

Declaration

procedure EncounterLocationChanged(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


TdmodShared.EncounterLocationChanged
         TdmodShared.AddDrawerTree┘ 
          TfrmDrawers.FormCreate┘   

Calls

Name Declaration Comments
TfrmDrawers.UpdatePersonalTemplates procedure UpdatePersonalTemplates; -

Called-By

Name Declaration Comments
TdmodShared.AddDrawerTree procedure AddDrawerTree(DrawerForm: TForm); -


Source

687   procedure TdmodShared.EncounterLocationChanged(Sender: TObject);
688   var
689     i: integer;
690   
691   begin
692     if(assigned(FDrawerTrees)) then
693     begin
694       for i:= 0 to FDrawerTrees.count-1 do
695         TfrmDrawers(FDrawerTrees[i]).UpdatePersonalTemplates;
696     end;
697   end;