Procedure

TfrmExams.cboExamResultsChange

Module

fExam

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmExams

Declaration

procedure cboExamResultsChange(Sender: TObject);

Calls Hierarchy


TfrmExams.cboExamResultsChange
 ├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

33    procedure TfrmExams.cboExamResultsChange(Sender: TObject);
34    var
35      i: integer;
36    
37    begin
38      if(NotUpdating) and (cboExamResults.Text <> '') then
39      begin
40        for i := 0 to lbGrid.Items.Count-1 do
41          if(lbGrid.Selected[i]) then
42            TPCEExams(lbGrid.Items.Objects[i]).Results := cboExamResults.ItemID;
43        GridChanged;
44      end;
45    end;