400 lines
9.2 KiB
Plaintext
400 lines
9.2 KiB
Plaintext
inherited frmLabTestGroups: TfrmLabTestGroups
|
|
Left = 337
|
|
Top = 202
|
|
Caption = 'Select Lab Tests'
|
|
ClientHeight = 434
|
|
ClientWidth = 457
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
ExplicitWidth = 465
|
|
ExplicitHeight = 461
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnlLabTestGroups: TORAutoPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 457
|
|
Height = 434
|
|
Align = alClient
|
|
Caption = 'Specimen'
|
|
TabOrder = 0
|
|
object bvlTestGroups: TBevel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 455
|
|
Height = 120
|
|
Align = alTop
|
|
end
|
|
object lblTests: TLabel
|
|
Left = 10
|
|
Top = 124
|
|
Width = 79
|
|
Height = 13
|
|
Caption = 'Laboratory Tests'
|
|
end
|
|
object lblList: TLabel
|
|
Left = 284
|
|
Top = 144
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Tests to be displayed'
|
|
end
|
|
object lblSpecimen: TLabel
|
|
Left = 12
|
|
Top = 383
|
|
Width = 47
|
|
Height = 13
|
|
Caption = 'Specimen'
|
|
end
|
|
object lblTestGroups: TLabel
|
|
Left = 10
|
|
Top = 38
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Test Groups'
|
|
end
|
|
object lblUsers: TLabel
|
|
Left = 164
|
|
Top = 4
|
|
Width = 159
|
|
Height = 13
|
|
Caption = 'Persons with defined Test Groups'
|
|
end
|
|
object lblOrder: TLabel
|
|
Left = 182
|
|
Top = 304
|
|
Width = 40
|
|
Height = 52
|
|
Caption = 'Arrange order of tests for display.'
|
|
WordWrap = True
|
|
end
|
|
object lblTestGroup: TLabel
|
|
Left = 181
|
|
Top = 198
|
|
Width = 91
|
|
Height = 39
|
|
Caption = 'To create a New Test Group, limit selection to 7 tests.'
|
|
WordWrap = True
|
|
end
|
|
object lblDefine: TVA508StaticText
|
|
Name = 'lblDefine'
|
|
Left = 352
|
|
Top = 8
|
|
Width = 94
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
AutoSize = True
|
|
Caption = 'Define Test Groups'
|
|
TabOrder = 10
|
|
ShowAccelChar = True
|
|
end
|
|
object pnlUpButton: TKeyClickPanel
|
|
Left = 235
|
|
Top = 299
|
|
Width = 29
|
|
Height = 29
|
|
BevelOuter = bvNone
|
|
Constraints.MaxHeight = 29
|
|
Constraints.MaxWidth = 29
|
|
TabOrder = 5
|
|
TabStop = True
|
|
OnClick = cmdUpClick
|
|
OnEnter = pnlUpButtonEnter
|
|
OnExit = pnlUpButtonExit
|
|
OnResize = pnlUpButtonResize
|
|
object cmdUp: TSpeedButton
|
|
Left = 1
|
|
Top = 2
|
|
Width = 25
|
|
Height = 25
|
|
Caption = '^'
|
|
Enabled = False
|
|
OnClick = cmdUpClick
|
|
end
|
|
end
|
|
object pnlDownButton: TKeyClickPanel
|
|
Left = 235
|
|
Top = 331
|
|
Width = 29
|
|
Height = 29
|
|
BevelOuter = bvNone
|
|
Constraints.MaxHeight = 29
|
|
Constraints.MaxWidth = 29
|
|
TabOrder = 6
|
|
TabStop = True
|
|
OnClick = cmdDownClick
|
|
OnEnter = pnlDownButtonEnter
|
|
OnExit = pnlDownButtonExit
|
|
OnResize = pnlDownButtonResize
|
|
object cmdDown: TSpeedButton
|
|
Left = 1
|
|
Top = 2
|
|
Width = 25
|
|
Height = 25
|
|
Caption = 'v'
|
|
Enabled = False
|
|
OnClick = cmdDownClick
|
|
end
|
|
end
|
|
object cmdOK: TButton
|
|
Left = 277
|
|
Top = 398
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'OK'
|
|
TabOrder = 8
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton
|
|
Left = 368
|
|
Top = 398
|
|
Width = 72
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 9
|
|
end
|
|
object cmdClear: TButton
|
|
Left = 189
|
|
Top = 244
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Remove All'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnClick = cmdClearClick
|
|
end
|
|
object cmdRemove: TButton
|
|
Left = 189
|
|
Top = 268
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Remove One'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
object lstList: TORListBox
|
|
Left = 278
|
|
Top = 163
|
|
Width = 160
|
|
Height = 211
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 7
|
|
OnClick = lstListClick
|
|
Caption = 'Tests to be displayed'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstListClick
|
|
end
|
|
object cboTests: TORComboBox
|
|
Left = 10
|
|
Top = 144
|
|
Width = 160
|
|
Height = 233
|
|
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
|
|
TabStop = True
|
|
OnChange = cboTestsChange
|
|
OnDblClick = cmdAddTestClick
|
|
OnEnter = cboTestsEnter
|
|
OnExit = cboTestsExit
|
|
OnNeedData = cboTestsNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboUsers: TORComboBox
|
|
Left = 164
|
|
Top = 23
|
|
Width = 165
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Persons with defined Test Groups'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 11
|
|
OnClick = cboUsersClick
|
|
OnNeedData = cboUsersNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object lstTestGroups: TORListBox
|
|
Left = 10
|
|
Top = 56
|
|
Width = 319
|
|
Height = 57
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 12
|
|
Caption = 'Test Groups'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstTestGroupsChange
|
|
end
|
|
object cmdReplace: TButton
|
|
Left = 368
|
|
Top = 60
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Replace'
|
|
Enabled = False
|
|
TabOrder = 14
|
|
OnClick = cmdReplaceClick
|
|
end
|
|
object cboSpecimen: TORComboBox
|
|
Left = 12
|
|
Top = 402
|
|
Width = 160
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Specimen'
|
|
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 = 1
|
|
OnNeedData = cboSpecimenNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cmdDelete: TButton
|
|
Left = 368
|
|
Top = 88
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Delete'
|
|
Enabled = False
|
|
TabOrder = 15
|
|
OnClick = cmdDeleteClick
|
|
end
|
|
object cmdAdd: TButton
|
|
Left = 368
|
|
Top = 32
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'New'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 13
|
|
OnClick = cmdAddClick
|
|
end
|
|
object cmdAddTest: TButton
|
|
Left = 189
|
|
Top = 144
|
|
Width = 72
|
|
Height = 21
|
|
Caption = 'Add'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = cmdAddTestClick
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlLabTestGroups'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlUpButton'
|
|
'Text = Display selected test earlier'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = pnlDownButton'
|
|
'Text = Display selected test later'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cmdOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdClear'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboTests'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboUsers'
|
|
'Label = lblUsers'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = lstTestGroups'
|
|
'Label = lblTestGroups'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cmdReplace'
|
|
'Text = Replace Test Group'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cboSpecimen'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdDelete'
|
|
'Text = Delete Test Group'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cmdAdd'
|
|
'Text = New Test Group'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cmdAddTest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmLabTestGroups'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDefine'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|