221 lines
4.8 KiB
Plaintext
221 lines
4.8 KiB
Plaintext
object frmOptionsTeams: TfrmOptionsTeams
|
|
Left = 730
|
|
Top = 96
|
|
HelpContext = 9090
|
|
BorderIcons = [biSystemMenu, biHelp]
|
|
BorderStyle = bsDialog
|
|
Caption = 'Team Information'
|
|
ClientHeight = 369
|
|
ClientWidth = 384
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
HelpFile = 'CPRSWT.HLP'
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblTeams: TLabel
|
|
Left = 10
|
|
Top = 70
|
|
Width = 115
|
|
Height = 13
|
|
Caption = 'You are on these teams:'
|
|
end
|
|
object lblPatients: TLabel
|
|
Left = 200
|
|
Top = 70
|
|
Width = 130
|
|
Height = 13
|
|
Caption = 'Patients on selected teams:'
|
|
end
|
|
object lblTeamMembers: TLabel
|
|
Left = 200
|
|
Top = 214
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'Team members:'
|
|
end
|
|
object lblSubscribe: TLabel
|
|
Left = 8
|
|
Top = 270
|
|
Width = 97
|
|
Height = 13
|
|
Caption = 'Subscribe to a team:'
|
|
end
|
|
object lblInfo: TMemo
|
|
Left = 8
|
|
Top = 8
|
|
Width = 369
|
|
Height = 33
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
|
|
'View team information by selecting teams. You can subscribe or r' +
|
|
'emove '
|
|
'yourself from teams.')
|
|
ReadOnly = True
|
|
TabOrder = 8
|
|
end
|
|
object pnlBottom: TPanel
|
|
Left = 0
|
|
Top = 336
|
|
Width = 384
|
|
Height = 33
|
|
HelpContext = 9090
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 7
|
|
object bvlBottom: TBevel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 384
|
|
Height = 2
|
|
Align = alTop
|
|
end
|
|
object btnClose: TButton
|
|
Left = 301
|
|
Top = 8
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9998
|
|
Cancel = True
|
|
Caption = 'Close'
|
|
ModalResult = 2
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object lstPatients: TORListBox
|
|
Left = 200
|
|
Top = 86
|
|
Width = 175
|
|
Height = 121
|
|
HelpContext = 9091
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
PopupMenu = mnuPopPatient
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 5
|
|
OnMouseDown = lstPatientsMouseDown
|
|
Caption = 'Patients on selected teams'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object lstTeams: TORListBox
|
|
Left = 10
|
|
Top = 86
|
|
Width = 175
|
|
Height = 145
|
|
HelpContext = 9092
|
|
ItemHeight = 13
|
|
MultiSelect = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 2
|
|
OnClick = lstTeamsClick
|
|
Caption = 'You are on these teams'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object lstUsers: TORListBox
|
|
Left = 200
|
|
Top = 230
|
|
Width = 175
|
|
Height = 97
|
|
HelpContext = 9093
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Sorted = True
|
|
TabOrder = 6
|
|
Caption = 'Team members'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object btnRemove: TButton
|
|
Left = 10
|
|
Top = 241
|
|
Width = 175
|
|
Height = 22
|
|
HelpContext = 9094
|
|
Caption = 'Remove yourself from this team'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnClick = btnRemoveClick
|
|
end
|
|
object chkPersonal: TCheckBox
|
|
Left = 10
|
|
Top = 40
|
|
Width = 175
|
|
Height = 17
|
|
HelpContext = 9096
|
|
Caption = 'Include personal lists'
|
|
TabOrder = 0
|
|
OnClick = chkPersonalClick
|
|
end
|
|
object chkRestrict: TCheckBox
|
|
Left = 200
|
|
Top = 40
|
|
Width = 185
|
|
Height = 17
|
|
HelpContext = 9097
|
|
Caption = 'View only common members'
|
|
Enabled = False
|
|
TabOrder = 1
|
|
Visible = False
|
|
OnClick = chkRestrictClick
|
|
end
|
|
object cboSubscribe: TORComboBox
|
|
Left = 12
|
|
Top = 287
|
|
Width = 175
|
|
Height = 21
|
|
HelpContext = 9095
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Subscribe to a team'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = True
|
|
SynonymChars = '<>'
|
|
TabOrder = 4
|
|
OnClick = cboSubscribeClick
|
|
OnKeyDown = cboSubscribeKeyDown
|
|
OnMouseClick = cboSubscribeMouseClick
|
|
CharsNeedMatch = 1
|
|
end
|
|
object mnuPopPatient: TPopupMenu
|
|
Top = 336
|
|
object mnuPatientID: TMenuItem
|
|
Caption = 'Patient ID...'
|
|
OnClick = mnuPatientIDClick
|
|
end
|
|
end
|
|
end
|