Procedure

TfrmODLab.GetAllSpecimens

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Protected

Owner

TfrmODLab

Declaration

procedure GetAllSpecimens(AComboBox: TORComboBox);

Calls Hierarchy


TfrmODLab.GetAllSpecimens
 └SelectOtherSpecimen
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Called-By Hierarchy


        TfrmODLab.GetAllSpecimens
             TfrmODLab.Validate┤ 
    TfrmODLab.cboSpecimenChange┤ 
TfrmODLab.cboSpecimenMouseClick┤ 
  TfrmODLab.cboSpecimenKeyPause┘ 

Calls

Name Declaration Comments
SelectOtherSpecimen function SelectOtherSpecimen(FontSize: Integer; SpecimenList: TStringList): string ; -

Called-By

Name Declaration Comments
TfrmODLab.cboSpecimenChange procedure cboSpecimenChange(Sender: TObject); -
TfrmODLab.cboSpecimenKeyPause procedure cboSpecimenKeyPause(Sender: TObject); -
TfrmODLab.cboSpecimenMouseClick procedure cboSpecimenMouseClick(Sender: TObject); -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -


Source

1936  procedure TfrmODLab.GetAllSpecimens(AComboBox: TORComboBox);
1937  var
1938    OtherSpec: string;
1939  begin
1940    inherited;
1941    if ALabTest <> nil then
1942      with ALabTest, AComboBox do
1943        begin
1944          AComboBox.DroppedDown := False;
1945          OtherSpec := SelectOtherSpecimen(Font.Size, SpecimenList);
1946          if OtherSpec = '-1' then exit;
1947          if SelectByID(Piece(OtherSpec, U, 1)) = -1 then
1948            if Items.Count > SpecListCount + 1 then
1949              Items[0] := OtherSpec
1950            else
1951              Items.Insert(0, OtherSpec) ;
1952          SpecimenList.Add(OtherSpec);
1953          SelectByID(Piece(OtherSpec, U, 1));
1954          AComboBox.OnChange(Self);
1955        end;
1956  end;