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

Last change on this file since 1742 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28

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