source: cprs/trunk/CPRS-Chart/Options/fOptionsTeams.dfm@ 1138

Last change on this file since 1138 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 5.5 KB
Line 
1inherited frmOptionsTeams: TfrmOptionsTeams
2 Left = 730
3 Top = 96
4 HelpContext = 9090
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsDialog
7 Caption = 'Team Information'
8 ClientHeight = 369
9 ClientWidth = 384
10 HelpFile = 'CPRSWT.HLP'
11 Position = poScreenCenter
12 OnCreate = FormCreate
13 PixelsPerInch = 96
14 TextHeight = 13
15 object lblTeams: TLabel [0]
16 Left = 10
17 Top = 70
18 Width = 115
19 Height = 13
20 Caption = 'You are on these teams:'
21 end
22 object lblPatients: TLabel [1]
23 Left = 200
24 Top = 70
25 Width = 130
26 Height = 13
27 Caption = 'Patients on selected teams:'
28 end
29 object lblTeamMembers: TLabel [2]
30 Left = 200
31 Top = 214
32 Width = 75
33 Height = 13
34 Caption = 'Team members:'
35 end
36 object lblSubscribe: TLabel [3]
37 Left = 8
38 Top = 270
39 Width = 97
40 Height = 13
41 Caption = 'Subscribe to a team:'
42 end
43 object lblInfo: TMemo [4]
44 Left = 8
45 Top = 8
46 Width = 369
47 Height = 33
48 TabStop = False
49 BorderStyle = bsNone
50 Color = clBtnFace
51 Lines.Strings = (
52
53 'View team information by selecting teams. You can subscribe or r' +
54 'emove '
55 'yourself from teams.')
56 ReadOnly = True
57 TabOrder = 8
58 end
59 object pnlBottom: TPanel [5]
60 Left = 0
61 Top = 336
62 Width = 384
63 Height = 33
64 HelpContext = 9090
65 Align = alBottom
66 BevelOuter = bvNone
67 ParentColor = True
68 TabOrder = 7
69 object bvlBottom: TBevel
70 Left = 0
71 Top = 0
72 Width = 384
73 Height = 2
74 Align = alTop
75 end
76 object btnClose: TButton
77 Left = 301
78 Top = 8
79 Width = 75
80 Height = 22
81 HelpContext = 9998
82 Cancel = True
83 Caption = 'Close'
84 ModalResult = 2
85 TabOrder = 0
86 end
87 end
88 object lstPatients: TORListBox [6]
89 Left = 200
90 Top = 86
91 Width = 175
92 Height = 121
93 HelpContext = 9091
94 ItemHeight = 13
95 ParentShowHint = False
96 PopupMenu = mnuPopPatient
97 ShowHint = True
98 Sorted = True
99 TabOrder = 5
100 OnMouseDown = lstPatientsMouseDown
101 Caption = 'Patients on selected teams'
102 ItemTipColor = clWindow
103 LongList = False
104 Pieces = '2'
105 end
106 object lstTeams: TORListBox [7]
107 Left = 10
108 Top = 86
109 Width = 175
110 Height = 145
111 HelpContext = 9092
112 ItemHeight = 13
113 MultiSelect = True
114 ParentShowHint = False
115 ShowHint = True
116 Sorted = True
117 TabOrder = 2
118 OnClick = lstTeamsClick
119 Caption = 'You are on these teams'
120 ItemTipColor = clWindow
121 LongList = False
122 Pieces = '2'
123 end
124 object lstUsers: TORListBox [8]
125 Left = 200
126 Top = 230
127 Width = 175
128 Height = 97
129 HelpContext = 9093
130 ItemHeight = 13
131 ParentShowHint = False
132 ShowHint = True
133 Sorted = True
134 TabOrder = 6
135 Caption = 'Team members'
136 ItemTipColor = clWindow
137 LongList = False
138 Pieces = '2'
139 end
140 object btnRemove: TButton [9]
141 Left = 10
142 Top = 241
143 Width = 175
144 Height = 22
145 HelpContext = 9094
146 Caption = 'Remove yourself from this team'
147 Enabled = False
148 Font.Charset = DEFAULT_CHARSET
149 Font.Color = clWindowText
150 Font.Height = -11
151 Font.Name = 'MS Sans Serif'
152 Font.Style = []
153 ParentFont = False
154 TabOrder = 3
155 OnClick = btnRemoveClick
156 end
157 object chkPersonal: TCheckBox [10]
158 Left = 10
159 Top = 40
160 Width = 175
161 Height = 17
162 HelpContext = 9096
163 Caption = 'Include personal lists'
164 TabOrder = 0
165 OnClick = chkPersonalClick
166 end
167 object chkRestrict: TCheckBox [11]
168 Left = 200
169 Top = 40
170 Width = 185
171 Height = 17
172 HelpContext = 9097
173 Caption = 'View only common members'
174 Enabled = False
175 TabOrder = 1
176 Visible = False
177 OnClick = chkRestrictClick
178 end
179 object cboSubscribe: TORComboBox [12]
180 Left = 12
181 Top = 287
182 Width = 175
183 Height = 21
184 HelpContext = 9095
185 Style = orcsDropDown
186 AutoSelect = True
187 Caption = 'Subscribe to a team'
188 Color = clWindow
189 DropDownCount = 8
190 ItemHeight = 13
191 ItemTipColor = clWindow
192 ItemTipEnable = True
193 ListItemsOnly = False
194 LongList = False
195 LookupPiece = 0
196 MaxLength = 0
197 Pieces = '2'
198 Sorted = True
199 SynonymChars = '<>'
200 TabOrder = 4
201 OnClick = cboSubscribeClick
202 OnKeyDown = cboSubscribeKeyDown
203 OnMouseClick = cboSubscribeMouseClick
204 CharsNeedMatch = 1
205 end
206 inherited amgrMain: TVA508AccessibilityManager
207 Data = (
208 (
209 'Component = lblInfo'
210 'Status = stsDefault')
211 (
212 'Component = pnlBottom'
213 'Status = stsDefault')
214 (
215 'Component = btnClose'
216 'Status = stsDefault')
217 (
218 'Component = lstPatients'
219 'Status = stsDefault')
220 (
221 'Component = lstTeams'
222 'Status = stsDefault')
223 (
224 'Component = lstUsers'
225 'Status = stsDefault')
226 (
227 'Component = btnRemove'
228 'Status = stsDefault')
229 (
230 'Component = chkPersonal'
231 'Status = stsDefault')
232 (
233 'Component = chkRestrict'
234 'Status = stsDefault')
235 (
236 'Component = cboSubscribe'
237 'Status = stsDefault')
238 (
239 'Component = frmOptionsTeams'
240 'Status = stsDefault'))
241 end
242 object mnuPopPatient: TPopupMenu
243 Top = 336
244 object mnuPatientID: TMenuItem
245 Caption = 'Patient ID...'
246 OnClick = mnuPatientIDClick
247 end
248 end
249end
Note: See TracBrowser for help on using the repository browser.