object frmLabTests: TfrmLabTests Left = 288 Top = 115 Width = 460 Height = 308 Caption = 'Select Lab Tests' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pnlLabTests: TORAutoPanel Left = 0 Top = 0 Width = 452 Height = 274 Align = alClient TabOrder = 0 object lblTests: TLabel Left = 12 Top = 12 Width = 79 Height = 13 Caption = 'Laboratory Tests' end object lblList: TLabel Left = 276 Top = 28 Width = 100 Height = 13 Caption = 'Tests to be displayed' end object cmdOK: TButton Left = 270 Top = 247 Width = 72 Height = 21 Caption = 'OK' TabOrder = 5 OnClick = cmdOKClick end object cmdCancel: TButton Left = 362 Top = 246 Width = 72 Height = 21 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 6 end object lstList: TORListBox Left = 274 Top = 52 Width = 160 Height = 179 ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = lstListClick Caption = 'Tests to be displayed' ItemTipColor = clWindow LongList = False Pieces = '2' end object cboTests: TORComboBox Left = 10 Top = 34 Width = 160 Height = 200 Style = orcsSimple AutoSelect = True Caption = 'Laboratory Tests' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = True LookupPiece = 0 MaxLength = 0 ParentShowHint = False Pieces = '2' ShowHint = True Sorted = False SynonymChars = '<>' TabOrder = 0 OnChange = cboTestsChange OnDblClick = cmdAddClick OnEnter = cboTestsEnter OnExit = cboTestsExit OnNeedData = cboTestsNeedData CharsNeedMatch = 1 end object cmdRemove: TButton Left = 186 Top = 144 Width = 72 Height = 21 Caption = 'Remove One' Enabled = False TabOrder = 3 OnClick = cmdRemoveClick end object cmdClear: TButton Left = 186 Top = 116 Width = 72 Height = 21 Caption = 'Remove All' Enabled = False TabOrder = 2 OnClick = cmdClearClick end object cmdAdd: TButton Left = 186 Top = 32 Width = 72 Height = 21 Caption = 'Add' Enabled = False TabOrder = 1 OnClick = cmdAddClick end end object DKLanguageController1: TDKLanguageController Left = 216 Top = 192 LangData = { 0B0066726D4C61625465737473010100000001000000070043617074696F6E01 0A0000000B00706E6C4C61625465737473000008006C626C5465737473010100 000002000000070043617074696F6E0007006C626C4C69737401010000000300 0000070043617074696F6E000500636D644F4B01010000000400000007004361 7074696F6E000900636D6443616E63656C010100000005000000070043617074 696F6E0007006C73744C697374010100000006000000070043617074696F6E00 080063626F5465737473010100000007000000070043617074696F6E00090063 6D6452656D6F7665010100000008000000070043617074696F6E000800636D64 436C656172010100000009000000070043617074696F6E000600636D64416464 01010000000A000000070043617074696F6E00} end end