406 lines
9.2 KiB
Plaintext
406 lines
9.2 KiB
Plaintext
inherited frmOptionsLists: TfrmOptionsLists
|
|
Left = 354
|
|
Top = 178
|
|
HelpContext = 9070
|
|
BorderIcons = [biSystemMenu, biHelp]
|
|
BorderStyle = bsSingle
|
|
Caption = 'Personal Lists'
|
|
ClientHeight = 442
|
|
ClientWidth = 407
|
|
HelpFile = 'CPRSWT.HLP'
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
ExplicitWidth = 413
|
|
ExplicitHeight = 474
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblAddby: TLabel [0]
|
|
Left = 7
|
|
Top = 97
|
|
Width = 42
|
|
Height = 13
|
|
Caption = 'Provider:'
|
|
end
|
|
object lblPatientsAdd: TLabel [1]
|
|
Left = 7
|
|
Top = 200
|
|
Width = 74
|
|
Height = 13
|
|
Caption = 'Patients to add:'
|
|
end
|
|
object lblPersonalPatientList: TLabel [2]
|
|
Left = 248
|
|
Top = 200
|
|
Width = 114
|
|
Height = 13
|
|
Caption = 'Patients on personal list:'
|
|
end
|
|
object lblPersonalLists: TLabel [3]
|
|
Left = 248
|
|
Top = 97
|
|
Width = 68
|
|
Height = 13
|
|
Caption = 'Personal Lists:'
|
|
end
|
|
object lblInfo: TMemo [4]
|
|
Left = 199
|
|
Top = 24
|
|
Width = 186
|
|
Height = 65
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
'You can change your personal lists by '
|
|
'adding or removing patients.')
|
|
ReadOnly = True
|
|
TabOrder = 14
|
|
end
|
|
object pnlBottom: TPanel [5]
|
|
Left = 0
|
|
Top = 409
|
|
Width = 407
|
|
Height = 33
|
|
HelpContext = 9070
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 13
|
|
object bvlBottom: TBevel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 407
|
|
Height = 2
|
|
Align = alTop
|
|
end
|
|
object btnOK: TButton
|
|
Left = 245
|
|
Top = 8
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9996
|
|
Caption = 'OK'
|
|
Default = True
|
|
ModalResult = 1
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 325
|
|
Top = 8
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9997
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object lstAddBy: TORComboBox [6]
|
|
Left = 7
|
|
Top = 112
|
|
Width = 153
|
|
Height = 81
|
|
HelpContext = 9072
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Provider:'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnChange = lstAddByChange
|
|
OnClick = lstAddByClick
|
|
OnNeedData = lstAddByNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object btnPersonalPatientRA: TButton [7]
|
|
Left = 166
|
|
Top = 296
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9079
|
|
Caption = 'Remove All'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
OnClick = btnPersonalPatientRAClick
|
|
end
|
|
object btnPersonalPatientR: TButton [8]
|
|
Left = 166
|
|
Top = 271
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9078
|
|
Caption = 'Remove'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
OnClick = btnPersonalPatientRClick
|
|
end
|
|
object lstListPats: TORListBox [9]
|
|
Left = 7
|
|
Top = 215
|
|
Width = 153
|
|
Height = 134
|
|
HelpContext = 9073
|
|
ItemHeight = 13
|
|
MultiSelect = True
|
|
ParentShowHint = False
|
|
PopupMenu = mnuPopPatient
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 5
|
|
OnClick = lstListPatsChange
|
|
OnDblClick = btnListAddClick
|
|
OnMouseDown = lstListPatsMouseDown
|
|
Caption = 'Patients to add:'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstListPatsChange
|
|
end
|
|
object lstPersonalPatients: TORListBox [10]
|
|
Left = 248
|
|
Top = 215
|
|
Width = 153
|
|
Height = 134
|
|
HelpContext = 9075
|
|
ItemHeight = 13
|
|
MultiSelect = True
|
|
ParentShowHint = False
|
|
PopupMenu = mnuPopPatient
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 11
|
|
OnClick = lstPersonalPatientsChange
|
|
OnDblClick = btnPersonalPatientRClick
|
|
OnMouseDown = lstPersonalPatientsMouseDown
|
|
Caption = 'Patients on personal list:'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstPersonalPatientsChange
|
|
end
|
|
object btnListAddAll: TButton [11]
|
|
Left = 166
|
|
Top = 241
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9077
|
|
Caption = 'Add All'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
OnClick = btnListAddAllClick
|
|
end
|
|
object btnNewList: TButton [12]
|
|
Left = 166
|
|
Top = 113
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9081
|
|
Caption = 'New List...'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = btnNewListClick
|
|
end
|
|
object btnDeleteList: TButton [13]
|
|
Left = 165
|
|
Top = 171
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9082
|
|
Caption = 'Delete List'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnClick = btnDeleteListClick
|
|
end
|
|
object lstPersonalLists: TORListBox [14]
|
|
Left = 248
|
|
Top = 112
|
|
Width = 153
|
|
Height = 81
|
|
HelpContext = 9074
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 4
|
|
Caption = 'Personal Lists:'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
OnChange = lstPersonalListsChange
|
|
end
|
|
object radAddByType: TRadioGroup [15]
|
|
Left = 7
|
|
Top = 8
|
|
Width = 153
|
|
Height = 86
|
|
HelpContext = 9071
|
|
Caption = 'Select patients by '
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'P&atient'
|
|
'&Ward'
|
|
'&Clinic'
|
|
'&Provider'
|
|
'&Specialty'
|
|
'&List')
|
|
TabOrder = 0
|
|
OnClick = radAddByTypeClick
|
|
end
|
|
object btnListSaveChanges: TButton [16]
|
|
Left = 166
|
|
Top = 328
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9080
|
|
Caption = 'Save Changes'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
OnClick = btnListSaveChangesClick
|
|
end
|
|
object btnListAdd: TButton [17]
|
|
Left = 166
|
|
Top = 216
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9076
|
|
Caption = 'Add'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
OnClick = btnListAddClick
|
|
end
|
|
object grpVisibility: TRadioGroup [18]
|
|
Left = 8
|
|
Top = 356
|
|
Width = 391
|
|
Height = 45
|
|
Caption = 'Who should be able to see and use the selected list?'
|
|
Columns = 3
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'&Myself only'
|
|
'&All CPRS users')
|
|
TabOrder = 12
|
|
OnClick = grpVisibilityClick
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = lblInfo'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstAddBy'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnPersonalPatientRA'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnPersonalPatientR'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstListPats'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstPersonalPatients'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnListAddAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnNewList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnDeleteList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstPersonalLists'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radAddByType'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnListSaveChanges'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnListAdd'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = grpVisibility'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmOptionsLists'
|
|
'Status = stsDefault'))
|
|
end
|
|
object mnuPopPatient: TPopupMenu
|
|
Left = 8
|
|
Top = 408
|
|
object mnuPatientID: TMenuItem
|
|
Caption = 'Patient ID...'
|
|
OnClick = mnuPatientIDClick
|
|
end
|
|
end
|
|
end
|