Procedure

TfrmPCEBaseGrid.SetGridIndex

Module

fPCEBaseGrid

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmPCEBaseGrid

Declaration

procedure SetGridIndex(const Value: integer);

Calls Hierarchy


TfrmPCEBaseGrid.SetGridIndex
 └TfrmPCEBaseGrid.UpdateControls

Called-By Hierarchy


          TfrmPCEBaseGrid.SetGridIndex
       TfrmPCEBaseMain.btnOtherClick┤ 
TfrmPCEBaseMain.lbxSectionClickCheck┤ 
     TfrmDiagnoses.EnsurePrimaryDiag┘ 
      TfrmDiagnoses.btnRemoveClick┤   
TfrmDiagnoses.lbxSectionClickCheck┘   

Calls

Name Declaration Comments
TfrmPCEBaseGrid.UpdateControls procedure UpdateControls; virtual; -

Called-By

Name Declaration Comments
TfrmPCEBaseMain.btnOtherClick procedure btnOtherClick(Sender: TObject); -
TfrmDiagnoses.EnsurePrimaryDiag procedure EnsurePrimaryDiag; -
TfrmPCEBaseMain.lbxSectionClickCheck procedure lbxSectionClickCheck(Sender: TObject; Index: Integer); -


Source

183   procedure TfrmPCEBaseGrid.SetGridIndex(const Value: integer);
184   var
185     i: integer;
186   
187   begin
188     for i := 0 to lbGrid.Items.Count-1 do
189       lbGrid.Selected[i] := (i = Value);
190     UpdateControls;
191   end;