Procedure

TfrmExams.FormCreate

Module

fExam

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmExams

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmExams.FormCreate
 ├ListExamsCodes
 └PCELoadORCombo
   └PCELoadORComboData
     ├GetPCECodes
     │ ├LoadHistLocations
     │ └CodeSetIndex
     │   ├LoadImmSeriesItems
     │   ├LoadImmReactionItems
     │   ├LoadSkResultsItems
     │   ├LoadPEDLevelItems
     │   ├LoadHFLevelItems
     │   └LoadXAMResultsItems
     └GetComboBoxMinMax

Calls

Name Declaration Comments
ListExamsCodes procedure ListExamsCodes(Dest: TStrings; SectionIndex: Integer); -
PCELoadORCombo procedure PCELoadORCombo(dest: TORComboBox); overload; -


Source

47    procedure TfrmExams.FormCreate(Sender: TObject);
48    begin
49      inherited;
50      FTabName := CT_XamNm;
51      FPCEListCodesProc := ListExamsCodes;
52      FPCEItemClass := TPCEExams;
53      FPCECode := 'XAM';
54      PCELoadORCombo(cboExamResults);
55    end;