Function

SelectOtherSpecimen

Module

fODLabOthSpec

Last Modified

7/15/2014 3:26:42 PM

Comments

Displays collection sample select form for lab and returns a record of the selection

Scope

Interfaced

Declaration

function SelectOtherSpecimen(FontSize: Integer; SpecimenList: TStringList): string ;

Calls Hierarchy


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

Called-By Hierarchy


                SelectOtherSpecimen
        TfrmODLab.GetAllSpecimens┤ 
             TfrmODLab.Validate┤ │ 
    TfrmODLab.cboSpecimenChange┤ │ 
TfrmODLab.cboSpecimenMouseClick┤ │ 
  TfrmODLab.cboSpecimenKeyPause┘ │ 
      TfrmODBBank.GetAllSpecimens┘ 

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
TfrmODLab.GetAllSpecimens procedure GetAllSpecimens(AComboBox: TORComboBox); -
TfrmODBBank.GetAllSpecimens procedure GetAllSpecimens(AComboBox: TORComboBox); -


Source

36    function SelectOtherSpecimen(FontSize: Integer; SpecimenList: TStringList): string ;
37    { displays collection sample select form for lab and returns a record of the selection }
38    var
39      frmODLabOthSpec: TfrmODLabOthSpec;
40      W, H: Integer;
41    begin
42      frmODLabOthSpec := TfrmODLabOthSpec.Create(Application);
43      try
44        with frmODLabOthSpec do
45        begin
46          Font.Size := FontSize;
47          W := ClientWidth;
48          H := ClientHeight;
49          ResizeToFont(FontSize, W, H);
50          ClientWidth  := W; pnlBase.Width  := W;
51          ClientHeight := H; pnlBase.Height := H;
52          with cboOtherSpec do
53            begin
54              {FastAssign(SpecimenList, MItems);
55              InsertSeparator; }
56              InitLongList('');
57            end;
58          ShowModal;
59          Result := FOtherSpec;
60        end;
61      finally
62        frmODLabOthSpec.Release;
63      end;
64    end;