644 lines
17 KiB
Plaintext
644 lines
17 KiB
Plaintext
inherited frmCover: TfrmCover
|
|
Left = 256
|
|
Top = 280
|
|
HelpContext = 1000
|
|
BorderIcons = []
|
|
Caption = 'Cover Sheet'
|
|
HelpFile = 'overvw'
|
|
OnDestroy = FormDestroy
|
|
ExplicitWidth = 648
|
|
ExplicitHeight = 395
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnlBase: TPanel [1]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 640
|
|
Height = 356
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Constraints.MinHeight = 10
|
|
TabOrder = 0
|
|
object sptBottom: TSplitter
|
|
Left = 0
|
|
Top = 237
|
|
Width = 640
|
|
Height = 5
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
Constraints.MinHeight = 5
|
|
OnCanResize = sptBottomCanResize
|
|
end
|
|
object pnlNotTheBottom: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 640
|
|
Height = 237
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object sptTop: TSplitter
|
|
Left = 0
|
|
Top = 120
|
|
Width = 640
|
|
Height = 5
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
Constraints.MinHeight = 5
|
|
OnCanResize = sptTopCanResize
|
|
end
|
|
object pnlTop: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 640
|
|
Height = 120
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object spt_2: TSplitter
|
|
Left = 424
|
|
Top = 0
|
|
Width = 5
|
|
Height = 120
|
|
Align = alRight
|
|
Constraints.MinWidth = 5
|
|
OnCanResize = spt_2CanResize
|
|
end
|
|
object pnl_not3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 424
|
|
Height = 120
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object spt_1: TSplitter
|
|
Left = 211
|
|
Top = 0
|
|
Width = 5
|
|
Height = 120
|
|
Color = clBtnFace
|
|
Constraints.MinWidth = 5
|
|
ParentColor = False
|
|
OnCanResize = spt_1CanResize
|
|
end
|
|
object pnl_1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 211
|
|
Height = 120
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
Visible = False
|
|
object lbl_1: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 211
|
|
Height = 19
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 6
|
|
WordWrap = False
|
|
end
|
|
object lst_1: TORListBox
|
|
Tag = 10
|
|
Left = 0
|
|
Top = 19
|
|
Width = 211
|
|
Height = 101
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '2,3'
|
|
end
|
|
end
|
|
object pnl_2: TPanel
|
|
Left = 216
|
|
Top = 0
|
|
Width = 208
|
|
Height = 120
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lbl_2: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 208
|
|
Height = 19
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 6
|
|
WordWrap = False
|
|
end
|
|
object lst_2: TORListBox
|
|
Tag = 20
|
|
Left = 0
|
|
Top = 19
|
|
Width = 208
|
|
Height = 101
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
end
|
|
end
|
|
end
|
|
object pnl_3: TPanel
|
|
Left = 429
|
|
Top = 0
|
|
Width = 211
|
|
Height = 120
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lbl_3: TOROffsetLabel
|
|
Left = 0
|
|
Top = 57
|
|
Width = 211
|
|
Height = 19
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 6
|
|
WordWrap = False
|
|
end
|
|
object sptFlag: TSplitter
|
|
Left = 0
|
|
Top = 52
|
|
Width = 211
|
|
Height = 5
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
Beveled = True
|
|
Constraints.MinHeight = 5
|
|
end
|
|
object pnlFlag: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 211
|
|
Height = 52
|
|
Align = alTop
|
|
Constraints.MinHeight = 40
|
|
TabOrder = 0
|
|
object lblFlag: TOROffsetLabel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 209
|
|
Height = 15
|
|
Align = alTop
|
|
Caption = 'Patient Record Flags'
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 2
|
|
WordWrap = False
|
|
end
|
|
object lstFlag: TORListBox
|
|
Left = 1
|
|
Top = 16
|
|
Width = 209
|
|
Height = 35
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clMaroon
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = lstFlagClick
|
|
OnKeyDown = lstFlagKeyDown
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
end
|
|
object lst_3: TORListBox
|
|
Tag = 30
|
|
Left = 0
|
|
Top = 76
|
|
Width = 211
|
|
Height = 44
|
|
Align = alClient
|
|
Ctl3D = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clMaroon
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '20'
|
|
end
|
|
end
|
|
end
|
|
object pnlMiddle: TPanel
|
|
Left = 0
|
|
Top = 125
|
|
Width = 640
|
|
Height = 112
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object spt_3: TSplitter
|
|
Left = 318
|
|
Top = 0
|
|
Width = 5
|
|
Height = 112
|
|
Constraints.MinWidth = 5
|
|
OnCanResize = spt_3CanResize
|
|
end
|
|
object pnl_4: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 318
|
|
Height = 112
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
Visible = False
|
|
object lbl_4: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 318
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 0
|
|
WordWrap = False
|
|
end
|
|
object lst_4: TORListBox
|
|
Tag = 40
|
|
Left = 0
|
|
Top = 13
|
|
Width = 318
|
|
Height = 99
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '35'
|
|
end
|
|
end
|
|
object pnl_5: TPanel
|
|
Left = 323
|
|
Top = 0
|
|
Width = 317
|
|
Height = 112
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lbl_5: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 317
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 0
|
|
WordWrap = False
|
|
end
|
|
object lst_5: TORListBox
|
|
Tag = 50
|
|
Left = 0
|
|
Top = 13
|
|
Width = 317
|
|
Height = 99
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '34,44'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pnlBottom: TPanel
|
|
Left = 0
|
|
Top = 242
|
|
Width = 640
|
|
Height = 114
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object spt_5: TSplitter
|
|
Left = 380
|
|
Top = 0
|
|
Width = 5
|
|
Height = 114
|
|
Align = alRight
|
|
Constraints.MinWidth = 5
|
|
OnCanResize = spt_5CanResize
|
|
end
|
|
object pnl_not8: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 380
|
|
Height = 114
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object spt_4: TSplitter
|
|
Left = 255
|
|
Top = 0
|
|
Width = 5
|
|
Height = 114
|
|
Constraints.MinWidth = 5
|
|
OnCanResize = spt_4CanResize
|
|
end
|
|
object pnl_6: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 255
|
|
Height = 114
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
Visible = False
|
|
object lbl_6: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 255
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' '
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 0
|
|
WordWrap = False
|
|
end
|
|
object lst_6: TORListBox
|
|
Tag = 60
|
|
Left = 0
|
|
Top = 13
|
|
Width = 255
|
|
Height = 101
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '34'
|
|
end
|
|
end
|
|
object pnl_7: TPanel
|
|
Left = 260
|
|
Top = 0
|
|
Width = 120
|
|
Height = 114
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lbl_7: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 120
|
|
Height = 13
|
|
Align = alTop
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 0
|
|
WordWrap = False
|
|
end
|
|
object lst_7: TORListBox
|
|
Tag = 70
|
|
Left = 0
|
|
Top = 13
|
|
Width = 120
|
|
Height = 101
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '4,13,15,24'
|
|
end
|
|
end
|
|
end
|
|
object pnl_8: TPanel
|
|
Left = 385
|
|
Top = 0
|
|
Width = 255
|
|
Height = 114
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
Visible = False
|
|
object lbl_8: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 255
|
|
Height = 13
|
|
Align = alTop
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 0
|
|
WordWrap = False
|
|
end
|
|
object lst_8: TORListBox
|
|
Tag = 80
|
|
Left = 0
|
|
Top = 13
|
|
Width = 255
|
|
Height = 101
|
|
Align = alClient
|
|
Ctl3D = True
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = CoverItemClick
|
|
OnExit = CoverItemExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
TabPositions = '15,35'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlBase'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlNotTheBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlTop'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_not3'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_1'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_1'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_2'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_2'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_3'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlFlag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstFlag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_3'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMiddle'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_4'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_4'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_5'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_5'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_not8'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_6'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_6'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_7'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_7'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnl_8'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lst_8'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmCover'
|
|
'Status = stsDefault'))
|
|
end
|
|
object timPoll: TTimer
|
|
Enabled = False
|
|
Interval = 2600
|
|
OnTimer = timPollTimer
|
|
Left = 20
|
|
Top = 32
|
|
end
|
|
object popMenuAllergies: TPopupMenu
|
|
OnPopup = popMenuAllergiesPopup
|
|
Left = 283
|
|
Top = 46
|
|
object popNewAllergy: TMenuItem
|
|
Caption = 'Enter new allergy'
|
|
OnClick = popNewAllergyClick
|
|
end
|
|
object popEditAllergy: TMenuItem
|
|
Caption = 'Edit selected allergy'
|
|
Visible = False
|
|
OnClick = popEditAllergyClick
|
|
end
|
|
object popEnteredInError: TMenuItem
|
|
Caption = 'Mark selected allergy as entered in error'
|
|
OnClick = popEnteredInErrorClick
|
|
end
|
|
object popNKA: TMenuItem
|
|
Caption = 'Mark patient as having "No Known Allergies" (NKA)'
|
|
OnClick = popNKAClick
|
|
end
|
|
end
|
|
object VA508ComponentAccessibility1: TVA508ComponentAccessibility
|
|
Component = lst_2
|
|
Instructions =
|
|
'To move to an item use the arrow keys or press the context key t' +
|
|
'o access more options such as entering a new allergy.'
|
|
Left = 360
|
|
Top = 48
|
|
end
|
|
end
|