source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsLists.dfm@ 619

Last change on this file since 619 was 453, checked in by Kevin Toppenberg, 17 years ago

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