Function

SelectOtherCollSample

Module

fODLabOthCollSamp

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 SelectOtherCollSample(FontSize: Integer; Skip: integer; CollSampList: TList): string ;

Calls Hierarchy


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

Called-By Hierarchy


              SelectOtherCollSample
      TfrmODLab.GetAllCollSamples┤ 
             TfrmODLab.Validate┤ │ 
  TfrmODLab.cboCollSampKeyPause┤ │ 
TfrmODLab.cboCollSampMouseClick┘ │ 
    TfrmODBBank.GetAllCollSamples┘ 

Calls

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

Called-By

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


Source

34    function SelectOtherCollSample(FontSize: Integer; Skip: integer; CollSampList: TList): string ;
35    { displays collection sample select form for lab and returns a record of the selection }
36    var
37      frmODLabOthCollSamp: TfrmODLabOthCollSamp;
38      W, H, i: Integer;
39      x: string;
40    begin
41      frmODLabOthCollSamp := TfrmODLabOthCollSamp.Create(Application);
42      try
43        with frmODLabOthCollSamp do
44        begin
45          Font.Size := FontSize;
46          W := ClientWidth;
47          H := ClientHeight;
48          ResizeToFont(FontSize, W, H);
49          ClientWidth  := W; pnlBase.Width  := W;
50          ClientHeight := H; pnlBase.Height := H;
51          with CollSampList do for i := Skip to Count-1 do with TCollSamp(Items[i]) do
52            begin
53              x := IntToStr(CollSampID) + '^' + CollSampName;
54              if Length(TubeColor) <> 0 then x := x + ' (' + TubeColor + ')';
55              cboOtherCollSamp.Items.Add(x) ;
56            end;
57          ShowModal;
58          Result := FOtherCollSamp;
59        end;
60      finally
61        frmODLabOthCollSamp.Release;
62      end;
63    end;