source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm@ 491

Last change on this file since 491 was 473, checked in by Kevin Toppenberg, 16 years ago

Added Colorful Tabs, Changable Tab positions, Demographics translation enabled

File size: 16.0 KB
Line 
1object frmPtDemoEdit: TfrmPtDemoEdit
2 Left = 286
3 Top = 150
4 Width = 594
5 Height = 502
6 Caption = 'Edit Patient Demographics'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 OldCreateOrder = False
14 Position = poScreenCenter
15 OnCreate = FormCreate
16 OnDestroy = FormDestroy
17 OnShow = FormShow
18 DesignSize = (
19 586
20 468)
21 PixelsPerInch = 96
22 TextHeight = 13
23 object OKBtn: TButton
24 Left = 296
25 Top = 435
26 Width = 75
27 Height = 25
28 Anchors = [akRight, akBottom]
29 Caption = '&OK'
30 ModalResult = 1
31 TabOrder = 0
32 OnClick = OKBtnClick
33 end
34 object CancelBtn: TButton
35 Left = 488
36 Top = 435
37 Width = 75
38 Height = 25
39 Anchors = [akRight, akBottom]
40 Caption = '&Cancel'
41 TabOrder = 2
42 OnClick = CancelBtnClick
43 end
44 object ApplyBtn: TButton
45 Left = 376
46 Top = 435
47 Width = 107
48 Height = 25
49 Anchors = [akRight, akBottom]
50 Caption = '&Apply Changes'
51 Enabled = False
52 TabOrder = 1
53 OnClick = ApplyBtnClick
54 end
55 object PageControl: TPageControl
56 Left = 0
57 Top = 0
58 Width = 586
59 Height = 428
60 ActivePage = DemoTabSheet
61 Align = alTop
62 Anchors = [akLeft, akTop, akRight, akBottom]
63 TabOrder = 3
64 object DemoTabSheet: TTabSheet
65 Caption = 'Demographics'
66 DesignSize = (
67 578
68 400)
69 object LNameLabel: TLabel
70 Left = 27
71 Top = 32
72 Width = 57
73 Height = 13
74 Caption = 'Family/Last:'
75 end
76 object FNameLabel: TLabel
77 Left = 29
78 Top = 56
79 Width = 55
80 Height = 13
81 Caption = 'Given/First:'
82 end
83 object MNameLabel: TLabel
84 Left = 50
85 Top = 80
86 Width = 34
87 Height = 13
88 Caption = 'Middle:'
89 end
90 object CombinedNameLabel: TLabel
91 Left = 56
92 Top = 8
93 Width = 28
94 Height = 13
95 Caption = 'Name'
96 end
97 object PrefixLabel: TLabel
98 Left = 289
99 Top = 136
100 Width = 26
101 Height = 13
102 Anchors = [akTop, akRight]
103 Caption = 'Prefix'
104 Visible = False
105 end
106 object SuffixLabel: TLabel
107 Left = 58
108 Top = 104
109 Width = 26
110 Height = 13
111 Anchors = [akTop, akRight]
112 Caption = 'Suffix'
113 end
114 object DOBLabel: TLabel
115 Left = 25
116 Top = 128
117 Width = 59
118 Height = 13
119 Anchors = [akTop, akRight]
120 Caption = 'Date of Birth'
121 end
122 object SSNumLabel: TLabel
123 Left = 5
124 Top = 152
125 Width = 79
126 Height = 13
127 Anchors = [akTop, akRight]
128 Caption = 'Social Sec Num.'
129 end
130 object SexLabel: TLabel
131 Left = 66
132 Top = 176
133 Width = 18
134 Height = 13
135 Caption = 'Sex'
136 end
137 object DegreeLabel: TLabel
138 Left = 288
139 Top = 160
140 Width = 35
141 Height = 13
142 Anchors = [akTop, akRight]
143 Caption = 'Degree'
144 Visible = False
145 end
146 object CombinedNameEdit: TEdit
147 Left = 95
148 Top = 8
149 Width = 165
150 Height = 21
151 Anchors = [akLeft, akTop, akRight]
152 TabOrder = 0
153 OnChange = CombinedNameEditChange
154 end
155 object LNameEdit: TEdit
156 Left = 95
157 Top = 32
158 Width = 165
159 Height = 21
160 Anchors = [akLeft, akTop, akRight]
161 TabOrder = 1
162 OnChange = LNameEditChange
163 end
164 object FNameEdit: TEdit
165 Left = 95
166 Top = 56
167 Width = 165
168 Height = 21
169 Anchors = [akLeft, akTop, akRight]
170 TabOrder = 2
171 OnChange = FNameEditChange
172 end
173 object MNameEdit: TEdit
174 Left = 95
175 Top = 80
176 Width = 165
177 Height = 21
178 Anchors = [akLeft, akTop, akRight]
179 TabOrder = 3
180 OnChange = MNameEditChange
181 end
182 object PrefixEdit: TEdit
183 Left = 325
184 Top = 136
185 Width = 135
186 Height = 21
187 Anchors = [akTop, akRight]
188 TabOrder = 8
189 Visible = False
190 OnChange = PrefixEditChange
191 end
192 object SuffixEdit: TEdit
193 Left = 95
194 Top = 104
195 Width = 165
196 Height = 21
197 Anchors = [akTop, akRight]
198 TabOrder = 4
199 OnChange = SuffixEditChange
200 end
201 object DOBEdit: TEdit
202 Left = 95
203 Top = 128
204 Width = 165
205 Height = 21
206 Anchors = [akLeft, akTop, akRight]
207 TabOrder = 5
208 OnChange = DOBEditChange
209 end
210 object SSNumEdit: TEdit
211 Left = 95
212 Top = 152
213 Width = 165
214 Height = 21
215 Anchors = [akLeft, akTop, akRight]
216 TabOrder = 6
217 OnChange = SSNumEditChange
218 end
219 object AliasGroupBox: TGroupBox
220 Left = 272
221 Top = 8
222 Width = 297
223 Height = 121
224 Anchors = [akTop, akRight]
225 Caption = 'Alias'
226 TabOrder = 10
227 TabStop = True
228 object AliasNameLabel: TLabel
229 Left = 16
230 Top = 48
231 Width = 53
232 Height = 13
233 Caption = 'Alias Name'
234 end
235 object AliasSSNumLabel: TLabel
236 Left = 8
237 Top = 80
238 Width = 64
239 Height = 13
240 Caption = 'Alias SS Num'
241 end
242 object AliasComboBox: TComboBox
243 Left = 8
244 Top = 16
245 Width = 161
246 Height = 21
247 Style = csDropDownList
248 ItemHeight = 13
249 TabOrder = 0
250 OnChange = AliasComboBoxChange
251 Items.Strings = (
252 'Stuff here...'
253 '<Add New Alias>')
254 end
255 object AliasNameEdit: TEdit
256 Left = 80
257 Top = 48
258 Width = 201
259 Height = 21
260 Color = clInactiveBorder
261 Enabled = False
262 TabOrder = 1
263 OnChange = AliasNameEditChange
264 end
265 object AliasSSNEdit: TEdit
266 Left = 80
267 Top = 80
268 Width = 201
269 Height = 21
270 Color = clInactiveBorder
271 Enabled = False
272 TabOrder = 2
273 OnChange = AliasSSNEditChange
274 end
275 object DelAliasBtn: TButton
276 Left = 227
277 Top = 16
278 Width = 54
279 Height = 22
280 Caption = 'Delete'
281 TabOrder = 3
282 OnClick = DelAliasBtnClick
283 end
284 object AddAliasBtn: TButton
285 Left = 176
286 Top = 16
287 Width = 41
288 Height = 22
289 Caption = 'Add'
290 TabOrder = 4
291 OnClick = AddAliasBtnClick
292 end
293 end
294 object AddressGroupBox: TGroupBox
295 Left = 8
296 Top = 208
297 Width = 569
298 Height = 185
299 Caption = 'Address'
300 TabOrder = 11
301 object CityLabel: TLabel
302 Left = 172
303 Top = 96
304 Width = 17
305 Height = 13
306 Caption = 'City'
307 end
308 object Zip4Label: TLabel
309 Left = 162
310 Top = 120
311 Width = 27
312 Height = 13
313 Caption = 'Zip+4'
314 end
315 object StartingDateLabel: TLabel
316 Left = 104
317 Top = 152
318 Width = 62
319 Height = 13
320 Caption = 'Starting Date'
321 Visible = False
322 end
323 object EndingDateLabel: TLabel
324 Left = 328
325 Top = 152
326 Width = 59
327 Height = 13
328 Caption = 'Ending Date'
329 Visible = False
330 end
331 object AddressRGrp: TRadioGroup
332 Left = 8
333 Top = 24
334 Width = 153
335 Height = 81
336 Caption = 'Address to Edit'
337 ItemIndex = 0
338 Items.Strings = (
339 'Permanent Address'
340 'Temporary Address'
341 'Confidential Address')
342 TabOrder = 0
343 OnClick = AddressRGrpClick
344 end
345 object AddressLine1Edit: TEdit
346 Left = 176
347 Top = 16
348 Width = 225
349 Height = 21
350 TabOrder = 1
351 OnChange = AddressLine1EditChange
352 end
353 object AddressLine2Edit: TEdit
354 Left = 176
355 Top = 38
356 Width = 225
357 Height = 21
358 TabOrder = 2
359 OnChange = AddressLine2EditChange
360 end
361 object AddressLine3Edit: TEdit
362 Left = 176
363 Top = 60
364 Width = 225
365 Height = 21
366 TabOrder = 3
367 OnChange = AddressLine3EditChange
368 end
369 object CityEdit: TEdit
370 Left = 200
371 Top = 96
372 Width = 121
373 Height = 21
374 TabOrder = 4
375 OnChange = CityEditChange
376 end
377 object StateComboBox: TComboBox
378 Left = 328
379 Top = 96
380 Width = 73
381 Height = 21
382 ItemHeight = 13
383 TabOrder = 6
384 Text = '<State>'
385 OnChange = StateComboBoxChange
386 Items.Strings = (
387 'AK'
388 'AL'
389 'AR'
390 'AZ'
391 'CA'
392 'CO'
393 'CT'
394 'DC'
395 'DE'
396 'FL'
397 'GA'
398 'HI'
399 'IA'
400 'ID'
401 'IL'
402 'IN'
403 'KS'
404 'KY'
405 'LA'
406 'MA'
407 'MD'
408 'ME'
409 'MI'
410 'MN'
411 'MO'
412 'MS'
413 'MT'
414 'NC'
415 'ND'
416 'NE'
417 'NH'
418 'NJ'
419 'NM'
420 'NV'
421 'NY'
422 'OH'
423 'OK'
424 'OR'
425 'PA'
426 'RI'
427 'SC'
428 'SD'
429 'TN'
430 'TX'
431 'UT'
432 'VA'
433 'VT'
434 'WA'
435 'WI'
436 'WV'
437 'WY')
438 end
439 object Zip4Edit: TEdit
440 Left = 200
441 Top = 120
442 Width = 121
443 Height = 21
444 TabOrder = 5
445 OnChange = Zip4EditChange
446 end
447 object BadAddressCB: TCheckBox
448 Left = 16
449 Top = 151
450 Width = 89
451 Height = 17
452 Caption = 'Bad Address'
453 TabOrder = 7
454 OnClick = BadAddressCBClick
455 end
456 object TempActiveCB: TCheckBox
457 Left = 16
458 Top = 106
459 Width = 129
460 Height = 17
461 Caption = 'Temp Address Active'
462 TabOrder = 8
463 OnClick = TempActiveCBClick
464 end
465 object PhoneNumGrp: TRadioGroup
466 Left = 416
467 Top = 16
468 Width = 137
469 Height = 89
470 Caption = 'Phone Number'
471 ItemIndex = 0
472 Items.Strings = (
473 'Residence'
474 'Work'
475 'Cell'
476 'Temporary')
477 TabOrder = 9
478 OnClick = PhoneNumGrpClick
479 end
480 object PhoneNumEdit: TEdit
481 Left = 416
482 Top = 120
483 Width = 137
484 Height = 21
485 TabOrder = 10
486 Text = '<Phone Number>'
487 OnChange = PhoneNumEditChange
488 end
489 object StartingDateEdit: TEdit
490 Left = 176
491 Top = 152
492 Width = 145
493 Height = 21
494 TabOrder = 11
495 Visible = False
496 OnChange = StartingDateEditChange
497 end
498 object EndingDateEdit: TEdit
499 Left = 408
500 Top = 152
501 Width = 145
502 Height = 21
503 TabOrder = 12
504 Visible = False
505 OnChange = EndingDateEditChange
506 end
507 object ConfActiveCB: TCheckBox
508 Left = 16
509 Top = 129
510 Width = 129
511 Height = 17
512 Caption = 'Confidential Active'
513 TabOrder = 13
514 Visible = False
515 OnClick = ConfActiveCBClick
516 end
517 end
518 object SexComboBox: TComboBox
519 Left = 95
520 Top = 176
521 Width = 165
522 Height = 21
523 Anchors = [akLeft, akTop, akRight]
524 ItemHeight = 13
525 TabOrder = 7
526 Text = '<Sex>'
527 OnChange = SexComboBoxChange
528 Items.Strings = (
529 'MALE'
530 'FEMALE')
531 end
532 object DegreeEdit: TEdit
533 Left = 325
534 Top = 160
535 Width = 136
536 Height = 21
537 Anchors = [akTop, akRight]
538 TabOrder = 9
539 Visible = False
540 OnChange = DegreeEditChange
541 end
542 end
543 end
544 object DKLanguageController1: TDKLanguageController
545 Left = 257
546 Top = 10
547 LangData = {
548 0D0066726D507444656D6F45646974010100000001000000070043617074696F
549 6E013400000005004F4B42746E010100000002000000070043617074696F6E00
550 090043616E63656C42746E010100000003000000070043617074696F6E000800
551 4170706C7942746E010100000004000000070043617074696F6E000B00506167
552 65436F6E74726F6C00000C0044656D6F54616253686565740101000000050000
553 00070043617074696F6E000A004C4E616D654C6162656C010100000006000000
554 070043617074696F6E000A00464E616D654C6162656C01010000000700000007
555 0043617074696F6E000A004D4E616D654C6162656C0101000000080000000700
556 43617074696F6E001100436F6D62696E65644E616D654C6162656C0101000000
557 09000000070043617074696F6E000B005072656669784C6162656C0101000000
558 0A000000070043617074696F6E000B005375666669784C6162656C0101000000
559 0B000000070043617074696F6E000800444F424C6162656C01010000000C0000
560 00070043617074696F6E000A0053534E756D4C6162656C01010000000D000000
561 070043617074696F6E0008005365784C6162656C01010000000E000000070043
562 617074696F6E000B004465677265654C6162656C01010000000F000000070043
563 617074696F6E001000436F6D62696E65644E616D6545646974000009004C4E61
564 6D654564697400000900464E616D6545646974000009004D4E616D6545646974
565 00000A005072656669784564697400000A005375666669784564697400000700
566 444F42456469740000090053534E756D4564697400000D00416C69617347726F
567 7570426F78010100000010000000070043617074696F6E000E00416C6961734E
568 616D654C6162656C010100000011000000070043617074696F6E000F00416C69
569 617353534E756D4C6162656C010100000012000000070043617074696F6E000D
570 00416C696173436F6D626F426F7801010000001300000005004974656D73000D
571 00416C6961734E616D654564697400000C00416C69617353534E456469740000
572 0B0044656C416C69617342746E010100000014000000070043617074696F6E00
573 0B00416464416C69617342746E010100000015000000070043617074696F6E00
574 0F004164647265737347726F7570426F78010100000016000000070043617074
575 696F6E000900436974794C6162656C010100000017000000070043617074696F
576 6E0009005A6970344C6162656C010100000018000000070043617074696F6E00
577 11005374617274696E67446174654C6162656C01010000001900000007004361
578 7074696F6E000F00456E64696E67446174654C6162656C01010000001A000000
579 070043617074696F6E000B00416464726573735247727001020000001B000000
580 070043617074696F6E1C00000005004974656D73001000416464726573734C69
581 6E65314564697400001000416464726573734C696E6532456469740000100041
582 6464726573734C696E65334564697400000800436974794564697400000D0053
583 74617465436F6D626F426F7801020000001E00000005004974656D731D000000
584 0400546578740008005A6970344564697400000C004261644164647265737343
585 4201010000001F000000070043617074696F6E000C0054656D70416374697665
586 4342010100000020000000070043617074696F6E000B0050686F6E654E756D47
587 7270010200000021000000070043617074696F6E2200000005004974656D7300
588 0C0050686F6E654E756D45646974010100000023000000040054657874001000
589 5374617274696E67446174654564697400000E00456E64696E67446174654564
590 697400000C00436F6E6641637469766543420101000000240000000700436170
591 74696F6E000B00536578436F6D626F426F780102000000260000000500497465
592 6D7325000000040054657874000A00446567726565456469740000}
593 end
594end
Note: See TracBrowser for help on using the repository browser.