724 lines
16 KiB
Plaintext
724 lines
16 KiB
Plaintext
inherited frmGraphProfiles: TfrmGraphProfiles
|
|
Left = 721
|
|
Top = 528
|
|
BorderIcons = [biSystemMenu, biHelp]
|
|
BorderStyle = bsDialog
|
|
Caption = 'Select Items and Define Views'
|
|
ClientHeight = 379
|
|
ClientWidth = 477
|
|
Position = poMainFormCenter
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
ExplicitWidth = 483
|
|
ExplicitHeight = 411
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblSelection: TLabel [0]
|
|
Left = 142
|
|
Top = 29
|
|
Width = 28
|
|
Height = 13
|
|
Hint = 'Make selections move them to the right.'
|
|
Caption = 'Items:'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
end
|
|
object lblDisplay: TLabel [1]
|
|
Left = 312
|
|
Top = 29
|
|
Width = 89
|
|
Height = 13
|
|
Hint =
|
|
'These items can be saved as a View and/or displayed on the graph' +
|
|
'.'
|
|
Caption = 'Items for Graphing:'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
end
|
|
object bvlBase: TBevel [2]
|
|
Left = 8
|
|
Top = 339
|
|
Width = 457
|
|
Height = 2
|
|
end
|
|
object lblEditInfo: TLabel [3]
|
|
Left = 142
|
|
Top = 278
|
|
Width = 202
|
|
Height = 13
|
|
Caption = 'Items for Graphing can be saved as Views.'
|
|
end
|
|
object lblSelectionInfo: TLabel [4]
|
|
Left = 142
|
|
Top = 8
|
|
Width = 89
|
|
Height = 13
|
|
Caption = 'Select Items using:'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
end
|
|
object lblSelectandDefine: TLabel [5]
|
|
Left = 8
|
|
Top = 350
|
|
Width = 359
|
|
Height = 13
|
|
Caption =
|
|
'Use Select/Define button or Right-click on graphs to select item' +
|
|
's for display.'
|
|
WordWrap = True
|
|
end
|
|
object lblEditInfo1: TLabel [6]
|
|
Left = 142
|
|
Top = 294
|
|
Width = 187
|
|
Height = 13
|
|
Caption = 'Edit Views by saving to the same name.'
|
|
end
|
|
object lblUser: TLabel [7]
|
|
Left = 8
|
|
Top = 236
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Person:'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
WordWrap = True
|
|
end
|
|
object btnClear: TButton [8]
|
|
Left = 8
|
|
Top = 312
|
|
Width = 85
|
|
Height = 21
|
|
Caption = 'Clear Selections'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 7
|
|
OnClick = btnClearClick
|
|
end
|
|
object btnSave: TButton [9]
|
|
Left = 286
|
|
Top = 312
|
|
Width = 85
|
|
Height = 21
|
|
Caption = 'Save Personal...'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 11
|
|
OnClick = btnSaveClick
|
|
end
|
|
object btnDelete: TButton [10]
|
|
Left = 100
|
|
Top = 313
|
|
Width = 85
|
|
Height = 20
|
|
Caption = 'Delete...'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 8
|
|
OnClick = btnDeleteClick
|
|
end
|
|
object btnRemoveOne: TButton [11]
|
|
Left = 280
|
|
Top = 173
|
|
Width = 21
|
|
Height = 21
|
|
Caption = '<'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 5
|
|
OnClick = btnRemoveOneClick
|
|
end
|
|
object btnRemoveAll: TButton [12]
|
|
Left = 280
|
|
Top = 205
|
|
Width = 21
|
|
Height = 21
|
|
Caption = '<<'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 6
|
|
OnClick = btnRemoveAllClick
|
|
end
|
|
object lstItemsDisplayed: TORListBox [13]
|
|
Left = 312
|
|
Top = 44
|
|
Width = 150
|
|
Height = 228
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
Sorted = True
|
|
TabOrder = 2
|
|
OnDblClick = lstItemsDisplayedDblClick
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '3'
|
|
OnChange = lstItemsDisplayedChange
|
|
end
|
|
object pnlSource: TPanel [14]
|
|
Left = 247
|
|
Top = -2
|
|
Width = 190
|
|
Height = 25
|
|
BevelOuter = bvNone
|
|
TabOrder = 10
|
|
object radSourcePat: TRadioButton
|
|
Left = 106
|
|
Top = 5
|
|
Width = 82
|
|
Height = 17
|
|
Hint =
|
|
'Use this for selecting patient items. Note: this form is used pr' +
|
|
'imarily for defining views, #13 not selecting data.'
|
|
Caption = 'Patient Items'
|
|
TabOrder = 1
|
|
OnClick = radSourceAllClick
|
|
end
|
|
object radSourceAll: TRadioButton
|
|
Left = 0
|
|
Top = 5
|
|
Width = 60
|
|
Height = 17
|
|
Hint = 'Use this for defining views. It shows every possible item.'
|
|
Caption = 'All Items'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = radSourceAllClick
|
|
end
|
|
end
|
|
object lstItemsSelection: TORListBox [15]
|
|
Left = 142
|
|
Top = 44
|
|
Width = 124
|
|
Height = 225
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
Sorted = True
|
|
TabOrder = 1
|
|
Visible = False
|
|
OnDblClick = cboAllItemsClick
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '3'
|
|
OnChange = cboAllItemsChange
|
|
end
|
|
object pnlApply: TPanel [16]
|
|
Left = 0
|
|
Top = 344
|
|
Width = 377
|
|
Height = 36
|
|
BevelOuter = bvNone
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 14
|
|
object lblApply: TLabel
|
|
Left = 8
|
|
Top = 2
|
|
Width = 138
|
|
Height = 13
|
|
Caption = 'Display Items for Graphing to:'
|
|
end
|
|
object radTop: TRadioButton
|
|
Left = 8
|
|
Top = 17
|
|
Width = 57
|
|
Height = 17
|
|
Caption = 'Top'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object radBottom: TRadioButton
|
|
Left = 74
|
|
Top = 17
|
|
Width = 57
|
|
Height = 17
|
|
Caption = 'Bottom'
|
|
TabOrder = 1
|
|
end
|
|
object radBoth: TRadioButton
|
|
Left = 141
|
|
Top = 17
|
|
Width = 57
|
|
Height = 17
|
|
Caption = 'Both'
|
|
TabOrder = 2
|
|
end
|
|
object radNeither: TRadioButton
|
|
Left = 208
|
|
Top = 17
|
|
Width = 81
|
|
Height = 17
|
|
Caption = 'No Change'
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object btnAdd: TButton [17]
|
|
Left = 280
|
|
Top = 125
|
|
Width = 21
|
|
Height = 21
|
|
Caption = '>'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 4
|
|
OnClick = cboAllItemsClick
|
|
end
|
|
object btnAddAll: TButton [18]
|
|
Left = 280
|
|
Top = 93
|
|
Width = 21
|
|
Height = 21
|
|
Caption = '>>'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 3
|
|
OnClick = cboAllItemsClick
|
|
end
|
|
object btnRename: TButton [19]
|
|
Left = 195
|
|
Top = 312
|
|
Width = 85
|
|
Height = 21
|
|
Caption = 'Rename...'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 9
|
|
OnClick = btnRenameClick
|
|
end
|
|
object btnSavePublic: TButton [20]
|
|
Left = 379
|
|
Top = 312
|
|
Width = 85
|
|
Height = 21
|
|
Caption = 'Save Public...'
|
|
Enabled = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 12
|
|
OnClick = btnSaveClick
|
|
end
|
|
object cboAllItems: TORComboBox [21]
|
|
Left = 142
|
|
Top = 44
|
|
Width = 124
|
|
Height = 228
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentShowHint = False
|
|
Pieces = '3'
|
|
ShowHint = False
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
OnChange = cboAllItemsChange
|
|
OnDblClick = cboAllItemsClick
|
|
OnNeedData = cboAllItemsNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object btnClose: TButton [22]
|
|
Left = 371
|
|
Top = 353
|
|
Width = 97
|
|
Height = 21
|
|
Cancel = True
|
|
Caption = 'Close'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 15
|
|
OnClick = btnCloseClick
|
|
end
|
|
object pnlAllSources: TPanel [23]
|
|
Left = 8
|
|
Top = 30
|
|
Width = 128
|
|
Height = 245
|
|
BevelOuter = bvNone
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 16
|
|
object splViews: TSplitter
|
|
Left = 0
|
|
Top = 122
|
|
Width = 128
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 125
|
|
end
|
|
object pnlSources: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 128
|
|
Height = 122
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblSource: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 128
|
|
Height = 13
|
|
Hint = 'These are the different types of data for graphing.'
|
|
Align = alTop
|
|
Caption = 'Sources:'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
ExplicitWidth = 42
|
|
end
|
|
object lstSources: TORListBox
|
|
Left = 0
|
|
Top = 13
|
|
Width = 128
|
|
Height = 109
|
|
Align = alClient
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 0
|
|
OnDblClick = lstSourcesDblClick
|
|
OnEnter = lstSourcesEnter
|
|
OnExit = lstSourcesExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstSourcesChange
|
|
end
|
|
end
|
|
object pnlOtherSources: TPanel
|
|
Left = 0
|
|
Top = 125
|
|
Width = 128
|
|
Height = 120
|
|
Align = alBottom
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
BorderWidth = 1
|
|
TabOrder = 1
|
|
object pnlOtherSourcesUser: TPanel
|
|
Left = 3
|
|
Top = 76
|
|
Width = 122
|
|
Height = 41
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblOtherPersons: TLabel
|
|
Left = 0
|
|
Top = 7
|
|
Width = 122
|
|
Height = 13
|
|
Align = alBottom
|
|
Caption = 'Select Person:'
|
|
ExplicitWidth = 69
|
|
end
|
|
object cboUser: TORComboBox
|
|
Left = 0
|
|
Top = 20
|
|
Width = 122
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
Align = alBottom
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 6
|
|
Items.Strings = (
|
|
'')
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = cboUserClick
|
|
OnNeedData = cboUserNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
object pnlOtherSourcesBottom: TPanel
|
|
Left = 3
|
|
Top = 3
|
|
Width = 122
|
|
Height = 73
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object lstOtherSources: TORListBox
|
|
Left = 0
|
|
Top = 30
|
|
Width = 122
|
|
Height = 43
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 0
|
|
OnDblClick = lstSourcesDblClick
|
|
OnEnter = lstOtherSourcesEnter
|
|
OnExit = lstOtherSourcesExit
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstOtherSourcesChange
|
|
end
|
|
object pnlOtherViews: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 122
|
|
Height = 30
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object lblOtherViews: TLabel
|
|
Left = 0
|
|
Top = 17
|
|
Width = 122
|
|
Height = 13
|
|
Align = alBottom
|
|
Caption = 'Other Views:'
|
|
ExplicitWidth = 60
|
|
end
|
|
object lblSelectOthers: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 122
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'Select Views from others'
|
|
ExplicitWidth = 116
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object btnViews: TButton [24]
|
|
Left = 8
|
|
Top = 5
|
|
Width = 120
|
|
Height = 21
|
|
Caption = 'Show Other Views'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 17
|
|
Visible = False
|
|
OnClick = btnViewsClick
|
|
end
|
|
object pnlTempData: TPanel [25]
|
|
Left = 264
|
|
Top = 232
|
|
Width = 425
|
|
Height = 49
|
|
TabOrder = 13
|
|
Visible = False
|
|
object lblSave: TLabel
|
|
Left = 184
|
|
Top = 16
|
|
Width = 3
|
|
Height = 13
|
|
Visible = False
|
|
end
|
|
object lblClose: TLabel
|
|
Left = 192
|
|
Top = 0
|
|
Width = 3
|
|
Height = 13
|
|
Visible = False
|
|
end
|
|
object lstActualItems: TORListBox
|
|
Left = 8
|
|
Top = 5
|
|
Width = 97
|
|
Height = 41
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
end
|
|
object lstDrugClass: TListBox
|
|
Left = 112
|
|
Top = 5
|
|
Width = 97
|
|
Height = 41
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
end
|
|
object lstScratch: TListBox
|
|
Left = 216
|
|
Top = 5
|
|
Width = 97
|
|
Height = 41
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
end
|
|
object lstTests: TListBox
|
|
Left = 320
|
|
Top = 5
|
|
Width = 97
|
|
Height = 41
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object btnDefinitions: TButton [26]
|
|
Left = 8
|
|
Top = 281
|
|
Width = 120
|
|
Height = 21
|
|
Caption = 'View Definitions...'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 18
|
|
OnClick = btnDefinitionsClick
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Left = 448
|
|
Top = 280
|
|
Data = (
|
|
(
|
|
'Component = btnClear'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnSave'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnDelete'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRemoveOne'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRemoveAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstItemsDisplayed'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlSource'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radSourcePat'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radSourceAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstItemsSelection'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlTempData'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstActualItems'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstDrugClass'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstScratch'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstTests'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlApply'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radTop'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radBoth'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radNeither'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnAdd'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnAddAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRename'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnSavePublic'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboAllItems'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnClose'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmGraphProfiles'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlAllSources'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlSources'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstSources'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlOtherSources'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlOtherSourcesUser'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboUser'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlOtherSourcesBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstOtherSources'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnViews'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnDefinitions'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlOtherViews'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|