Procedure

UpdatePersonalObjects

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

-------- CQ #8665 - RV ------------

Scope

Interfaced

Declaration

procedure UpdatePersonalObjects;

Calls Hierarchy


UpdatePersonalObjects
 └GetAllowedPersonalObjects

Called-By Hierarchy


                      UpdatePersonalObjects
      TfrmTemplateObjects.btnRefreshClick┤ 
TfrmTemplateEditor.mnuBPInsertObjectClick┤ 
       TfrmTemplateEditor.tvTreeKeyDown┘ │ 
       TfrmTemplateEditor.mnuAutoGenClick┘ 

Calls

Name Declaration Comments
GetAllowedPersonalObjects procedure GetAllowedPersonalObjects; -

Called-By

Name Declaration Comments
TfrmTemplateObjects.btnRefreshClick procedure btnRefreshClick(Sender: TObject); -
TfrmTemplateEditor.mnuAutoGenClick procedure mnuAutoGenClick(Sender: TObject); -
TfrmTemplateEditor.mnuBPInsertObjectClick procedure mnuBPInsertObjectClick(Sender: TObject); -


Source

2906  procedure UpdatePersonalObjects;
2907  var
2908    i: integer;
2909  begin
2910    if not assigned(uPersonalObjects) then
2911    begin
2912      uPersonalObjects := TStringList.Create;
2913      GetAllowedPersonalObjects;
2914      for i := 0 to RPCBrokerV.Results.Count-1 do
2915        uPersonalObjects.Add(Piece(RPCBrokerV.Results[i],U,1));
2916      uPersonalObjects.Sorted := TRUE;
2917    end;
2918  end;