Procedure

TfrmPCEBaseMain.btnSelectAllClick

Module

fPCEBaseMain

Last Modified

8/5/2014 10:18:06 AM

Visibility

Public/Published

Owner

TfrmPCEBaseMain

Declaration

procedure btnSelectAllClick(Sender: TObject);

Calls Hierarchy


TfrmPCEBaseMain.btnSelectAllClick
 ├TfrmPCEBaseMain.BeginUpdate
 ├TfrmPCEBaseMain.EndUpdate
 └TfrmPCEBaseMain.UpdateControls
   ├TfrmPCEBaseMain.NotUpdating
   ├TfrmPCEBaseMain.BeginUpdate
   ├TfrmPCEBaseGrid.GetGridIndex
   └TfrmPCEBaseMain.EndUpdate

Calls

Name Declaration Comments
TfrmPCEBaseMain.BeginUpdate procedure BeginUpdate; -
TfrmPCEBaseMain.EndUpdate procedure EndUpdate; -
TfrmPCEBaseMain.UpdateControls procedure UpdateControls; override; -


Source

406   procedure TfrmPCEBaseMain.btnSelectAllClick(Sender: TObject);
407   var
408     i: integer;
409   
410   begin
411     inherited;
412     BeginUpdate;
413     try
414       for i := 0 to lbGrid.Items.Count-1 do
415         lbGrid.Selected[i] := TRUE;
416     finally
417       EndUpdate;
418     end;
419     UpdateControls;
420   end;