VistA-cprs/CPRS-Chart/Orders/fOrderVw.dfm

286 lines
6.4 KiB
Plaintext

inherited frmOrderView: TfrmOrderView
Left = 340
Top = 165
Caption = 'Custom Order View'
ClientHeight = 413
ClientWidth = 421
Position = poScreenCenter
OnCreate = FormCreate
ExplicitLeft = 340
ExplicitTop = 165
ExplicitWidth = 429
ExplicitHeight = 440
PixelsPerInch = 96
TextHeight = 13
object pnlView: TPanel [0]
Left = 0
Top = 0
Width = 421
Height = 21
Align = alTop
BevelOuter = bvLowered
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object lblView: TLabel
Left = 1
Top = 1
Width = 419
Height = 19
Align = alClient
Alignment = taCenter
Caption = 'All Services, Active Orders'
Layout = tlCenter
ExplicitWidth = 153
ExplicitHeight = 13
end
end
object Panel1: TPanel [1]
Left = 0
Top = 21
Width = 421
Height = 278
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Splitter1: TSplitter
Left = 211
Top = 0
Height = 278
MinSize = 1
OnMoved = Splitter1Moved
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 211
Height = 278
Align = alLeft
Constraints.MinWidth = 15
TabOrder = 0
object lblFilter: TLabel
Left = 1
Top = 1
Width = 209
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'Order Status'
Layout = tlCenter
ExplicitWidth = 59
end
object trFilters: TCaptionTreeView
Left = 1
Top = 14
Width = 209
Height = 263
Align = alClient
HideSelection = False
Indent = 19
TabOrder = 0
OnClick = trFiltersClick
Caption = 'Order Status'
end
end
object Panel3: TPanel
Left = 214
Top = 0
Width = 207
Height = 278
Align = alClient
Constraints.MinWidth = 15
TabOrder = 1
object lblService: TLabel
Left = 1
Top = 1
Width = 205
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'Service/Section'
Layout = tlCenter
ExplicitWidth = 77
end
object treService: TCaptionTreeView
Left = 1
Top = 14
Width = 205
Height = 263
Align = alClient
HideSelection = False
Indent = 19
TabOrder = 0
OnClick = treServiceClick
Caption = 'Service/Section'
end
end
end
object Panel4: TPanel [2]
Left = 0
Top = 299
Width = 421
Height = 114
Align = alBottom
TabOrder = 2
DesignSize = (
421
114)
object chkDateRange: TCheckBox
Left = 5
Top = 3
Width = 372
Height = 19
Caption = 'Only List Orders Placed During Time Period'
TabOrder = 0
OnClick = chkDateRangeClick
end
object GroupBox1: TGroupBox
Left = 4
Top = 21
Width = 399
Height = 45
TabOrder = 1
object lblFrom: TLabel
Left = 25
Top = 19
Width = 26
Height = 13
Caption = 'From:'
Enabled = False
end
object lblThru: TLabel
Left = 210
Top = 19
Width = 43
Height = 13
Caption = 'Through:'
Enabled = False
end
object calFrom: TORDateBox
Left = 55
Top = 16
Width = 128
Height = 21
Color = clBtnFace
Enabled = False
TabOrder = 0
OnChange = calChange
DateOnly = False
RequireTime = False
Caption = 'From Date'
end
object calThru: TORDateBox
Left = 257
Top = 16
Width = 128
Height = 21
Color = clBtnFace
Enabled = False
TabOrder = 1
OnChange = calChange
DateOnly = False
RequireTime = False
Caption = 'Through Date'
end
end
object chkInvChrono: TCheckBox
Left = 6
Top = 92
Width = 204
Height = 18
Anchors = [akLeft, akBottom]
Caption = 'Reverse Chronological Sequence'
Checked = True
State = cbChecked
TabOrder = 2
end
object chkByService: TCheckBox
Left = 6
Top = 72
Width = 187
Height = 18
Caption = 'Group Orders by Service'
Checked = True
State = cbChecked
TabOrder = 3
end
object cmdOK: TButton
Left = 246
Top = 78
Width = 72
Height = 23
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
TabOrder = 4
OnClick = cmdOKClick
end
object cmdCancel: TButton
Left = 328
Top = 78
Width = 72
Height = 23
Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel'
TabOrder = 5
OnClick = cmdCancelClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = pnlView'
'Status = stsDefault')
(
'Component = Panel1'
'Status = stsDefault')
(
'Component = Panel2'
'Status = stsDefault')
(
'Component = trFilters'
'Status = stsDefault')
(
'Component = Panel3'
'Status = stsDefault')
(
'Component = treService'
'Status = stsDefault')
(
'Component = Panel4'
'Status = stsDefault')
(
'Component = chkDateRange'
'Status = stsDefault')
(
'Component = GroupBox1'
'Status = stsDefault')
(
'Component = calFrom'
'Status = stsDefault')
(
'Component = calThru'
'Status = stsDefault')
(
'Component = chkInvChrono'
'Status = stsDefault')
(
'Component = chkByService'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = frmOrderView'
'Status = stsDefault'))
end
end