source: cprs/trunk/CPRS-Chart/Options/fOptionsLists.dfm@ 1166

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

Upgrade to version 27

File size: 9.3 KB
Line 
1inherited frmOptionsLists: TfrmOptionsLists
2 Left = 354
3 Top = 178
4 HelpContext = 9070
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsSingle
7 Caption = 'Personal Lists'
8 ClientHeight = 442
9 ClientWidth = 407
10 HelpFile = 'CPRSWT.HLP'
11 Position = poScreenCenter
12 OnCreate = FormCreate
13 OnShow = FormShow
14 ExplicitLeft = 354
15 ExplicitTop = 178
16 ExplicitWidth = 415
17 ExplicitHeight = 469
18 PixelsPerInch = 96
19 TextHeight = 13
20 object lblAddby: TLabel [0]
21 Left = 7
22 Top = 97
23 Width = 42
24 Height = 13
25 Caption = 'Provider:'
26 end
27 object lblPatientsAdd: TLabel [1]
28 Left = 7
29 Top = 200
30 Width = 74
31 Height = 13
32 Caption = 'Patients to add:'
33 end
34 object lblPersonalPatientList: TLabel [2]
35 Left = 248
36 Top = 200
37 Width = 114
38 Height = 13
39 Caption = 'Patients on personal list:'
40 end
41 object lblPersonalLists: TLabel [3]
42 Left = 248
43 Top = 97
44 Width = 68
45 Height = 13
46 Caption = 'Personal Lists:'
47 end
48 object lblInfo: TMemo [4]
49 Left = 199
50 Top = 24
51 Width = 186
52 Height = 65
53 TabStop = False
54 BorderStyle = bsNone
55 Color = clBtnFace
56 Lines.Strings = (
57 'You can change your personal lists by '
58 'adding or removing patients.')
59 ReadOnly = True
60 TabOrder = 14
61 end
62 object pnlBottom: TPanel [5]
63 Left = 0
64 Top = 409
65 Width = 407
66 Height = 33
67 HelpContext = 9070
68 Align = alBottom
69 BevelOuter = bvNone
70 ParentColor = True
71 TabOrder = 13
72 object bvlBottom: TBevel
73 Left = 0
74 Top = 0
75 Width = 407
76 Height = 2
77 Align = alTop
78 end
79 object btnOK: TButton
80 Left = 245
81 Top = 8
82 Width = 75
83 Height = 22
84 HelpContext = 9996
85 Caption = 'OK'
86 Default = True
87 ModalResult = 1
88 TabOrder = 0
89 OnClick = btnOKClick
90 end
91 object btnCancel: TButton
92 Left = 325
93 Top = 8
94 Width = 75
95 Height = 22
96 HelpContext = 9997
97 Cancel = True
98 Caption = 'Cancel'
99 ModalResult = 2
100 TabOrder = 1
101 end
102 end
103 object lstAddBy: TORComboBox [6]
104 Left = 7
105 Top = 112
106 Width = 153
107 Height = 81
108 HelpContext = 9072
109 Style = orcsSimple
110 AutoSelect = True
111 Caption = 'Provider:'
112 Color = clWindow
113 DropDownCount = 8
114 ItemHeight = 13
115 ItemTipColor = clWindow
116 ItemTipEnable = True
117 ListItemsOnly = False
118 LongList = True
119 LookupPiece = 0
120 MaxLength = 0
121 Pieces = '2'
122 Sorted = False
123 SynonymChars = '<>'
124 TabOrder = 1
125 OnClick = lstAddByClick
126 OnKeyPress = lstAddByKeyPress
127 OnNeedData = lstAddByNeedData
128 CharsNeedMatch = 1
129 end
130 object btnPersonalPatientRA: TButton [7]
131 Left = 166
132 Top = 296
133 Width = 75
134 Height = 22
135 HelpContext = 9079
136 Caption = 'Remove All'
137 Enabled = False
138 Font.Charset = DEFAULT_CHARSET
139 Font.Color = clWindowText
140 Font.Height = -11
141 Font.Name = 'MS Sans Serif'
142 Font.Style = []
143 ParentFont = False
144 TabOrder = 9
145 OnClick = btnPersonalPatientRAClick
146 end
147 object btnPersonalPatientR: TButton [8]
148 Left = 166
149 Top = 271
150 Width = 75
151 Height = 22
152 HelpContext = 9078
153 Caption = 'Remove'
154 Enabled = False
155 Font.Charset = DEFAULT_CHARSET
156 Font.Color = clWindowText
157 Font.Height = -11
158 Font.Name = 'MS Sans Serif'
159 Font.Style = []
160 ParentFont = False
161 TabOrder = 8
162 OnClick = btnPersonalPatientRClick
163 end
164 object lstListPats: TORListBox [9]
165 Left = 7
166 Top = 215
167 Width = 153
168 Height = 134
169 HelpContext = 9073
170 ItemHeight = 13
171 MultiSelect = True
172 ParentShowHint = False
173 PopupMenu = mnuPopPatient
174 ShowHint = True
175 Sorted = True
176 TabOrder = 5
177 OnClick = lstListPatsChange
178 OnDblClick = btnListAddClick
179 OnMouseDown = lstListPatsMouseDown
180 Caption = 'Patients to add:'
181 ItemTipColor = clWindow
182 LongList = False
183 Pieces = '2'
184 OnChange = lstListPatsChange
185 end
186 object lstPersonalPatients: TORListBox [10]
187 Left = 248
188 Top = 215
189 Width = 153
190 Height = 134
191 HelpContext = 9075
192 ItemHeight = 13
193 MultiSelect = True
194 ParentShowHint = False
195 PopupMenu = mnuPopPatient
196 ShowHint = True
197 Sorted = True
198 TabOrder = 11
199 OnClick = lstPersonalPatientsChange
200 OnDblClick = btnPersonalPatientRClick
201 OnMouseDown = lstPersonalPatientsMouseDown
202 Caption = 'Patients on personal list:'
203 ItemTipColor = clWindow
204 LongList = False
205 Pieces = '2'
206 OnChange = lstPersonalPatientsChange
207 end
208 object btnListAddAll: TButton [11]
209 Left = 166
210 Top = 241
211 Width = 75
212 Height = 22
213 HelpContext = 9077
214 Caption = 'Add All'
215 Enabled = False
216 Font.Charset = DEFAULT_CHARSET
217 Font.Color = clWindowText
218 Font.Height = -11
219 Font.Name = 'MS Sans Serif'
220 Font.Style = []
221 ParentFont = False
222 TabOrder = 7
223 OnClick = btnListAddAllClick
224 end
225 object btnNewList: TButton [12]
226 Left = 166
227 Top = 113
228 Width = 75
229 Height = 22
230 HelpContext = 9081
231 Caption = 'New List...'
232 Font.Charset = DEFAULT_CHARSET
233 Font.Color = clWindowText
234 Font.Height = -11
235 Font.Name = 'MS Sans Serif'
236 Font.Style = []
237 ParentFont = False
238 TabOrder = 2
239 OnClick = btnNewListClick
240 end
241 object btnDeleteList: TButton [13]
242 Left = 165
243 Top = 171
244 Width = 75
245 Height = 22
246 HelpContext = 9082
247 Caption = 'Delete List'
248 Enabled = False
249 Font.Charset = DEFAULT_CHARSET
250 Font.Color = clWindowText
251 Font.Height = -11
252 Font.Name = 'MS Sans Serif'
253 Font.Style = []
254 ParentFont = False
255 TabOrder = 3
256 OnClick = btnDeleteListClick
257 end
258 object lstPersonalLists: TORListBox [14]
259 Left = 248
260 Top = 112
261 Width = 153
262 Height = 81
263 HelpContext = 9074
264 ItemHeight = 13
265 ParentShowHint = False
266 ShowHint = True
267 Sorted = True
268 TabOrder = 4
269 Caption = 'Personal Lists:'
270 ItemTipColor = clWindow
271 LongList = False
272 Pieces = '2'
273 OnChange = lstPersonalListsChange
274 end
275 object radAddByType: TRadioGroup [15]
276 Left = 7
277 Top = 8
278 Width = 153
279 Height = 86
280 HelpContext = 9071
281 Caption = 'Select patients by '
282 Columns = 2
283 ItemIndex = 0
284 Items.Strings = (
285 'P&atient'
286 '&Ward'
287 '&Clinic'
288 '&Provider'
289 '&Specialty'
290 '&List')
291 TabOrder = 0
292 OnClick = radAddByTypeClick
293 end
294 object btnListSaveChanges: TButton [16]
295 Left = 166
296 Top = 328
297 Width = 75
298 Height = 22
299 HelpContext = 9080
300 Caption = 'Save Changes'
301 Enabled = False
302 Font.Charset = DEFAULT_CHARSET
303 Font.Color = clWindowText
304 Font.Height = -11
305 Font.Name = 'MS Sans Serif'
306 Font.Style = []
307 ParentFont = False
308 TabOrder = 10
309 OnClick = btnListSaveChangesClick
310 end
311 object btnListAdd: TButton [17]
312 Left = 166
313 Top = 216
314 Width = 75
315 Height = 22
316 HelpContext = 9076
317 Caption = 'Add'
318 Enabled = False
319 Font.Charset = DEFAULT_CHARSET
320 Font.Color = clWindowText
321 Font.Height = -11
322 Font.Name = 'MS Sans Serif'
323 Font.Style = []
324 ParentFont = False
325 TabOrder = 6
326 OnClick = btnListAddClick
327 end
328 object grpVisibility: TRadioGroup [18]
329 Left = 8
330 Top = 356
331 Width = 391
332 Height = 45
333 Caption = 'Who should be able to see and use the selected list?'
334 Columns = 3
335 ItemIndex = 1
336 Items.Strings = (
337 '&Myself only'
338 '&All CPRS users')
339 TabOrder = 12
340 OnClick = grpVisibilityClick
341 end
342 inherited amgrMain: TVA508AccessibilityManager
343 Data = (
344 (
345 'Component = lblInfo'
346 'Status = stsDefault')
347 (
348 'Component = pnlBottom'
349 'Status = stsDefault')
350 (
351 'Component = btnOK'
352 'Status = stsDefault')
353 (
354 'Component = btnCancel'
355 'Status = stsDefault')
356 (
357 'Component = lstAddBy'
358 'Status = stsDefault')
359 (
360 'Component = btnPersonalPatientRA'
361 'Status = stsDefault')
362 (
363 'Component = btnPersonalPatientR'
364 'Status = stsDefault')
365 (
366 'Component = lstListPats'
367 'Status = stsDefault')
368 (
369 'Component = lstPersonalPatients'
370 'Status = stsDefault')
371 (
372 'Component = btnListAddAll'
373 'Status = stsDefault')
374 (
375 'Component = btnNewList'
376 'Status = stsDefault')
377 (
378 'Component = btnDeleteList'
379 'Status = stsDefault')
380 (
381 'Component = lstPersonalLists'
382 'Status = stsDefault')
383 (
384 'Component = radAddByType'
385 'Status = stsDefault')
386 (
387 'Component = btnListSaveChanges'
388 'Status = stsDefault')
389 (
390 'Component = btnListAdd'
391 'Status = stsDefault')
392 (
393 'Component = grpVisibility'
394 'Status = stsDefault')
395 (
396 'Component = frmOptionsLists'
397 'Status = stsDefault'))
398 end
399 object mnuPopPatient: TPopupMenu
400 Left = 8
401 Top = 408
402 object mnuPatientID: TMenuItem
403 Caption = 'Patient ID...'
404 OnClick = mnuPatientIDClick
405 end
406 end
407end
Note: See TracBrowser for help on using the repository browser.