iSharkFly-Open
/
VistA-cprs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-cprs/CPRS-Chart/fCover.dfm

634 lines
16 KiB
Plaintext
Raw Blame History

inherited frmCover: TfrmCover
Left = 256
Top = 280
HelpContext = 1000
BorderIcons = []
Caption = 'Cover Sheet'
HelpFile = 'overvw'
OnDestroy = FormDestroy
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
end
Reference in New Issue View Git Blame Copy Permalink