405 lines
9.2 KiB
Plaintext
405 lines
9.2 KiB
Plaintext
inherited frmPtSel: TfrmPtSel
|
|
Left = 290
|
|
Top = 232
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Patient Selection'
|
|
ClientHeight = 555
|
|
ClientWidth = 785
|
|
OldCreateOrder = True
|
|
Position = poMainFormCenter
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnResize = FormResize
|
|
OnShow = FormShow
|
|
ExplicitTop = -20
|
|
ExplicitWidth = 793
|
|
ExplicitHeight = 589
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object sptVert: TSplitter [0]
|
|
Left = 0
|
|
Top = 290
|
|
Width = 785
|
|
Height = 4
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object pnlDivide: TORAutoPanel [1]
|
|
Left = 0
|
|
Top = 294
|
|
Width = 785
|
|
Height = 17
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
BevelWidth = 2
|
|
TabOrder = 0
|
|
Visible = False
|
|
object lblNotifications: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Notifications'
|
|
end
|
|
object ggeInfo: TGauge
|
|
Left = 212
|
|
Top = 1
|
|
Width = 100
|
|
Height = 15
|
|
BackColor = clHighlightText
|
|
Color = clBtnFace
|
|
ForeColor = clHighlight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clCaptionText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Progress = 0
|
|
Visible = False
|
|
end
|
|
end
|
|
object pnlPtSel: TORAutoPanel [2]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 785
|
|
Height = 290
|
|
Align = alTop
|
|
BevelWidth = 2
|
|
TabOrder = 3
|
|
OnResize = pnlPtSelResize
|
|
object lblPatient: TLabel
|
|
Left = 216
|
|
Top = 4
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Patient'
|
|
ShowAccelChar = False
|
|
end
|
|
object cboPatient: TORComboBox
|
|
Left = 216
|
|
Top = 33
|
|
Width = 272
|
|
Height = 251
|
|
Hint = 'Enter name or use "Last 4" (x1234) format'
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Patient'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 2
|
|
MaxLength = 0
|
|
ParentShowHint = False
|
|
Pieces = '2,3'
|
|
ShowHint = True
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabPositions = '20,25,30'
|
|
TabOrder = 1
|
|
OnChange = cboPatientChange
|
|
OnDblClick = cboPatientDblClick
|
|
OnEnter = cboPatientEnter
|
|
OnExit = cboPatientExit
|
|
OnKeyDown = cboPatientKeyDown
|
|
OnKeyUp = cboPatientKeyUp
|
|
OnKeyPause = cboPatientKeyPause
|
|
OnMouseClick = cboPatientMouseClick
|
|
OnNeedData = cboPatientNeedData
|
|
CharsNeedMatch = 1
|
|
UniqueAutoComplete = True
|
|
end
|
|
object cmdOK: TButton
|
|
Left = 682
|
|
Top = 3
|
|
Width = 78
|
|
Height = 21
|
|
Caption = 'OK'
|
|
TabOrder = 2
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton
|
|
Left = 682
|
|
Top = 24
|
|
Width = 78
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 3
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object cmdSaveList: TButton
|
|
Left = 494
|
|
Top = 252
|
|
Width = 175
|
|
Height = 21
|
|
Caption = 'Save Patient List Settings'
|
|
TabOrder = 0
|
|
OnClick = cmdSaveListClick
|
|
end
|
|
end
|
|
object pnlNotifications: TORAutoPanel [3]
|
|
Left = 0
|
|
Top = 520
|
|
Width = 785
|
|
Height = 35
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
Visible = False
|
|
object txtCmdComments: TVA508StaticText
|
|
Name = 'txtCmdComments'
|
|
Left = 441
|
|
Top = 0
|
|
Width = 159
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
Caption = 'Show Comments Button Disabled'
|
|
TabOrder = 7
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
object txtCmdRemove: TVA508StaticText
|
|
Name = 'txtCmdRemove'
|
|
Left = 577
|
|
Top = 0
|
|
Width = 120
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
Caption = 'Remove Button Disabled'
|
|
TabOrder = 9
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
object txtCmdForward: TVA508StaticText
|
|
Name = 'txtCmdForward'
|
|
Left = 344
|
|
Top = 0
|
|
Width = 118
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
Caption = 'Forward Button Disabled'
|
|
TabOrder = 5
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
object txtCmdProcess: TVA508StaticText
|
|
Name = 'txtCmdProcess'
|
|
Left = 232
|
|
Top = 0
|
|
Width = 118
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
Caption = 'Process Button Disabled'
|
|
TabOrder = 3
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
object cmdRemove: TButton
|
|
Left = 577
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Remove'
|
|
Enabled = False
|
|
TabOrder = 8
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
object cmdComments: TButton
|
|
Left = 441
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Show Comments'
|
|
Enabled = False
|
|
TabOrder = 6
|
|
OnClick = cmdCommentsClick
|
|
end
|
|
object cmdForward: TButton
|
|
Left = 335
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Forward'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = cmdForwardClick
|
|
end
|
|
object cmdProcess: TButton
|
|
Left = 229
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = cmdProcessClick
|
|
end
|
|
object cmdProcessAll: TButton
|
|
Left = 120
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process All'
|
|
TabOrder = 1
|
|
OnClick = cmdProcessAllClick
|
|
end
|
|
object cmdProcessInfo: TButton
|
|
Left = 11
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process Info'
|
|
TabOrder = 0
|
|
OnClick = cmdProcessInfoClick
|
|
end
|
|
end
|
|
object lstvAlerts: TCaptionListView [4]
|
|
Left = 0
|
|
Top = 311
|
|
Width = 785
|
|
Height = 209
|
|
Align = alClient
|
|
Columns = <
|
|
item
|
|
Caption = 'Info'
|
|
Width = 30
|
|
end
|
|
item
|
|
Caption = 'Patient'
|
|
Tag = 1
|
|
Width = 120
|
|
end
|
|
item
|
|
Caption = 'Location'
|
|
Tag = 2
|
|
Width = 60
|
|
end
|
|
item
|
|
Caption = 'Urgency'
|
|
Tag = 3
|
|
Width = 67
|
|
end
|
|
item
|
|
Caption = 'Alert Date/Time'
|
|
Tag = 4
|
|
Width = 110
|
|
end
|
|
item
|
|
Caption = 'Message'
|
|
Tag = 5
|
|
Width = 280
|
|
end
|
|
item
|
|
Caption = 'Forwarded By/When'
|
|
Tag = 6
|
|
Width = 180
|
|
end>
|
|
HideSelection = False
|
|
HoverTime = 0
|
|
IconOptions.WrapText = False
|
|
MultiSelect = True
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
ParentShowHint = False
|
|
PopupMenu = popNotifications
|
|
ShowWorkAreas = True
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
ViewStyle = vsReport
|
|
OnColumnClick = lstvAlertsColumnClick
|
|
OnCompare = lstvAlertsCompare
|
|
OnDblClick = lstvAlertsDblClick
|
|
OnInfoTip = lstvAlertsInfoTip
|
|
OnKeyDown = lstvAlertsKeyDown
|
|
OnMouseUp = lstvAlertsMouseUp
|
|
OnSelectItem = lstvAlertsSelectItem
|
|
Caption = 'Notifications'
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlDivide'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlPtSel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboPatient'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdSaveList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlNotifications'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdProcessInfo'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdProcessAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdProcess'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdForward'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstvAlerts'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmPtSel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdComments'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtCmdComments'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtCmdRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtCmdForward'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtCmdProcess'
|
|
'Status = stsDefault'))
|
|
end
|
|
object popNotifications: TPopupMenu
|
|
Left = 508
|
|
Top = 323
|
|
object mnuProcess: TMenuItem
|
|
Caption = 'Process'
|
|
OnClick = cmdProcessClick
|
|
end
|
|
object mnuForward: TMenuItem
|
|
Caption = 'Forward'
|
|
OnClick = cmdForwardClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuRemove: TMenuItem
|
|
Caption = 'Remove'
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
end
|
|
end
|