Procedure

TfrmTemplateObjects.btnRefreshClick

Module

fTemplateObjects

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateObjects

Declaration

procedure btnRefreshClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateObjects.btnRefreshClick
 ├TdmodShared.LoadTIUObjects
 │ └GetObjectList
 └UpdatePersonalObjects
   └GetAllowedPersonalObjects

Calls

Name Declaration Comments
TdmodShared.LoadTIUObjects procedure LoadTIUObjects; -
UpdatePersonalObjects procedure UpdatePersonalObjects; -


Source

95    procedure TfrmTemplateObjects.btnRefreshClick(Sender: TObject);
96    var
97      i: integer;
98      DoIt: boolean;
99    begin
100     cboObjects.Clear;
101     dmodShared.RefreshObject := true;
102     dmodShared.LoadTIUObjects;
103     //---------- CQ #8665 - RV ----------------
104     DoIt := TRUE;
105     UpdatePersonalObjects;
106     if uPersonalObjects.Count > 0 then
107     begin
108       DoIt := FALSE;
109       for i := 0 to dmodShared.TIUObjects.Count-1 do
110         if uPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i],U,2)) >= 0 then
111           cboObjects.Items.Add(dmodShared.TIUObjects[i]);
112     end;
113     if DoIt then
114     //---------- end CQ #8665 ------------------
115       cboObjects.Items.Assign(dmodShared.TIUObjects);
116   end;