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