193 lines
4.3 KiB
Plaintext
193 lines
4.3 KiB
Plaintext
inherited frmPrintLocation: TfrmPrintLocation
|
|
Left = 293
|
|
Top = 250
|
|
Width = 450
|
|
Height = 472
|
|
AutoScroll = True
|
|
BorderIcons = []
|
|
Caption = 'Order Location'
|
|
Constraints.MinWidth = 440
|
|
OldCreateOrder = False
|
|
Position = poMainFormCenter
|
|
OnClose = FormClose
|
|
ExplicitWidth = 450
|
|
ExplicitHeight = 472
|
|
DesignSize = (
|
|
442
|
|
445)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblEncounter: TLabel [0]
|
|
Left = 0
|
|
Top = 379
|
|
Width = 280
|
|
Height = 13
|
|
Caption = 'Where would you like to continue processing patient data? '
|
|
end
|
|
object pnlTop: TPanel [1]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 442
|
|
Height = 153
|
|
Anchors = [akLeft, akTop, akRight]
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblText: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 3
|
|
Height = 13
|
|
end
|
|
object orpnlTopBottom: TORAutoPanel
|
|
Left = 0
|
|
Top = 112
|
|
Width = 442
|
|
Height = 41
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object btnClinic: TButton
|
|
Left = 145
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'All Clinic'
|
|
TabOrder = 0
|
|
OnClick = btnClinicClick
|
|
end
|
|
object btnWard: TButton
|
|
Left = 230
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'All Ward'
|
|
TabOrder = 1
|
|
OnClick = btnWardClick
|
|
end
|
|
end
|
|
end
|
|
object pnlBottom: TORAutoPanel [2]
|
|
Left = 0
|
|
Top = 159
|
|
Width = 442
|
|
Height = 210
|
|
TabOrder = 1
|
|
object orderGrid: TStringGrid
|
|
Left = 1
|
|
Top = 1
|
|
Width = 440
|
|
Height = 208
|
|
Align = alClient
|
|
ColCount = 3
|
|
Constraints.MinWidth = 440
|
|
DefaultRowHeight = 30
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing]
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
OnDrawCell = OrderGridDrawCell
|
|
OnKeyPress = orderGridKeyPress
|
|
OnMouseDown = orderGridMouseDown
|
|
end
|
|
object pnlOrder: TPanel
|
|
Left = 264
|
|
Top = 56
|
|
Width = 97
|
|
Height = 25
|
|
TabOrder = 0
|
|
Visible = False
|
|
end
|
|
object cbolocation: TORComboBox
|
|
Left = 240
|
|
Top = 104
|
|
Width = 121
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 1
|
|
MaxLength = 0
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
Visible = False
|
|
OnChange = cbolocationChange
|
|
OnExit = cbolocationExit
|
|
CharsNeedMatch = 1
|
|
UniqueAutoComplete = True
|
|
end
|
|
end
|
|
object ORpnlBottom: TORAutoPanel [3]
|
|
Left = 0
|
|
Top = 404
|
|
Width = 442
|
|
Height = 41
|
|
BevelEdges = []
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
object btnOK: TButton
|
|
Left = 187
|
|
Top = 3
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'OK'
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
end
|
|
object cboEncLoc: TComboBox [4]
|
|
Left = 284
|
|
Top = 375
|
|
Width = 104
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ItemHeight = 0
|
|
TabOrder = 2
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlTop'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = orpnlTopBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnClinic'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnWard'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = orderGrid'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlOrder'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cbolocation'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = ORpnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboEncLoc'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmPrintLocation'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|