Procedure

TfrmProcedures.cboProviderChange

Module

fProcedure

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmProcedures

Declaration

procedure cboProviderChange(Sender: TObject);

Calls Hierarchy


TfrmProcedures.cboProviderChange
 ├TfrmPCEBaseMain.NotUpdating
 └TfrmPCEBaseMain.GridChanged
   ├TfrmPCEBaseMain.BeginUpdate
   ├TfrmPCEBaseGrid.SaveGridSelected
   ├TPCEItem.ItemStr
   ├TfrmPCEBaseGrid.RestoreGridSelected
   ├TfrmPCEBaseGrid.SyncGridData
   │ ├TfrmPCEBaseGrid.SaveGridSelected
   │ ├TfrmPCEBaseGrid.RestoreGridSelected
   │ └TfrmPCEBaseGrid.SyncGridHeader
   ├TfrmPCEBaseMain.EndUpdate
   └TfrmPCEBaseMain.UpdateControls
     ├TfrmPCEBaseMain.NotUpdating
     ├TfrmPCEBaseMain.BeginUpdate
     ├TfrmPCEBaseGrid.GetGridIndex
     └TfrmPCEBaseMain.EndUpdate

Calls

Name Declaration Comments
TfrmPCEBaseMain.GridChanged procedure GridChanged; virtual; -
TfrmPCEBaseMain.NotUpdating function NotUpdating: boolean; -


Source

86    procedure TfrmProcedures.cboProviderChange(Sender: TObject);
87    var
88      i: integer;
89    begin
90      inherited;
91      if(NotUpdating) then
92      begin
93        for i := 0 to lbGrid.Items.Count-1 do
94          if(lbGrid.Selected[i]) then
95            TPCEProc(lbGrid.Items.Objects[i]).Provider := cboProvider.ItemIEN;
96        FProviderChanging := TRUE; // CQ 11707
97        try
98          GridChanged;
99        finally
100         FProviderChanging := FALSE;
101       end;
102     end;
103   end;