Procedure

TfrmODLab.GetAllCollSamples

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Protected

Owner

TfrmODLab

Declaration

procedure GetAllCollSamples(AComboBox: TORComboBox);

Calls Hierarchy


TfrmODLab.GetAllCollSamples
 ├TLabTest.LoadAllSamples
 │ ├LoadSamples
 │ └TLabTest.FillCollSampList
 └SelectOtherCollSample
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Called-By Hierarchy


      TfrmODLab.GetAllCollSamples
             TfrmODLab.Validate┤ 
  TfrmODLab.cboCollSampKeyPause┤ 
TfrmODLab.cboCollSampMouseClick┘ 

Calls

Name Declaration Comments
TLabTest.LoadAllSamples procedure LoadAllSamples; -
SelectOtherCollSample function SelectOtherCollSample(FontSize: Integer; Skip: integer; CollSampList: TList): string ; -

Called-By

Name Declaration Comments
TfrmODLab.cboCollSampKeyPause procedure cboCollSampKeyPause(Sender: TObject); -
TfrmODLab.cboCollSampMouseClick procedure cboCollSampMouseClick(Sender: TObject); -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -


Source

1916  procedure TfrmODLab.GetAllCollSamples(AComboBox: TORComboBox);
1917  var
1918    OtherSamp: string;
1919  begin
1920    with ALabTest, AComboBox do
1921      begin
1922        if ((CollSampList.Count + 1) <= AComboBox.Items.Count) then LoadAllSamples;
1923        OtherSamp := SelectOtherCollSample(Font.Size, CollSampCount, CollSampList);
1924        if OtherSamp = '-1' then exit;
1925        if SelectByID(Piece(OtherSamp, U, 1)) = -1 then
1926          if Items.Count > CollSampCount + 1 then
1927            Items[0] := OtherSamp
1928          else
1929            Items.Insert(0, OtherSamp) ;
1930        SelectByID(Piece(OtherSamp, U, 1));
1931        AComboBox.OnChange(Self);
1932        ActiveControl := cmdAccept;
1933      end;
1934  end;