- Timestamp:
- Oct 15, 2008, 9:11:42 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm
r473 r495 1 1 object frmPtDemoEdit: TfrmPtDemoEdit 2 Left = 2863 Top = 1 504 Width = 5945 Height = 5022 Left = 196 3 Top = 145 4 Width = 684 5 Height = 498 6 6 Caption = 'Edit Patient Demographics' 7 7 Color = clBtnFace … … 17 17 OnShow = FormShow 18 18 DesignSize = ( 19 58620 46 8)19 676 20 464) 21 21 PixelsPerInch = 96 22 22 TextHeight = 13 23 23 object OKBtn: TButton 24 Left = 29625 Top = 43 524 Left = 386 25 Top = 431 26 26 Width = 75 27 27 Height = 25 … … 33 33 end 34 34 object CancelBtn: TButton 35 Left = 48836 Top = 43 535 Left = 578 36 Top = 431 37 37 Width = 75 38 38 Height = 25 … … 43 43 end 44 44 object ApplyBtn: TButton 45 Left = 37646 Top = 43 545 Left = 466 46 Top = 431 47 47 Width = 107 48 48 Height = 25 … … 56 56 Left = 0 57 57 Top = 0 58 Width = 58659 Height = 42 858 Width = 676 59 Height = 424 60 60 ActivePage = DemoTabSheet 61 61 Align = alTop … … 65 65 Caption = 'Demographics' 66 66 DesignSize = ( 67 57868 400)67 668 68 396) 69 69 object LNameLabel: TLabel 70 70 Left = 27 … … 96 96 end 97 97 object PrefixLabel: TLabel 98 Left = 28998 Left = 379 99 99 Top = 136 100 100 Width = 26 … … 105 105 end 106 106 object SuffixLabel: TLabel 107 Left = 58107 Left = 148 108 108 Top = 104 109 109 Width = 26 … … 113 113 end 114 114 object DOBLabel: TLabel 115 Left = 25115 Left = 115 116 116 Top = 128 117 117 Width = 59 … … 121 121 end 122 122 object SSNumLabel: TLabel 123 Left = 5123 Left = 95 124 124 Top = 152 125 125 Width = 79 … … 136 136 end 137 137 object DegreeLabel: TLabel 138 Left = 288138 Left = 378 139 139 Top = 160 140 140 Width = 35 … … 147 147 Left = 95 148 148 Top = 8 149 Width = 165149 Width = 255 150 150 Height = 21 151 151 Anchors = [akLeft, akTop, akRight] … … 156 156 Left = 95 157 157 Top = 32 158 Width = 165158 Width = 255 159 159 Height = 21 160 160 Anchors = [akLeft, akTop, akRight] … … 165 165 Left = 95 166 166 Top = 56 167 Width = 165167 Width = 255 168 168 Height = 21 169 169 Anchors = [akLeft, akTop, akRight] … … 174 174 Left = 95 175 175 Top = 80 176 Width = 165176 Width = 255 177 177 Height = 21 178 178 Anchors = [akLeft, akTop, akRight] … … 181 181 end 182 182 object PrefixEdit: TEdit 183 Left = 325183 Left = 415 184 184 Top = 136 185 185 Width = 135 … … 191 191 end 192 192 object SuffixEdit: TEdit 193 Left = 95193 Left = 185 194 194 Top = 104 195 195 Width = 165 … … 202 202 Left = 95 203 203 Top = 128 204 Width = 165204 Width = 255 205 205 Height = 21 206 206 Anchors = [akLeft, akTop, akRight] … … 211 211 Left = 95 212 212 Top = 152 213 Width = 165213 Width = 255 214 214 Height = 21 215 215 Anchors = [akLeft, akTop, akRight] … … 218 218 end 219 219 object AliasGroupBox: TGroupBox 220 Left = 272220 Left = 362 221 221 Top = 8 222 222 Width = 297 … … 294 294 object AddressGroupBox: TGroupBox 295 295 Left = 8 296 Top = 20 8297 Width = 569296 Top = 204 297 Width = 482 298 298 Height = 185 299 Anchors = [akLeft, akRight, akBottom] 299 300 Caption = 'Address' 300 301 TabOrder = 11 302 DesignSize = ( 303 482 304 185) 301 305 object CityLabel: TLabel 302 306 Left = 172 … … 322 326 end 323 327 object EndingDateLabel: TLabel 324 Left = 3 28328 Left = 336 325 329 Top = 152 326 Width = 59327 Height = 13330 Width = 33 331 Height = 26 328 332 Caption = 'Ending Date' 329 333 Visible = False 334 WordWrap = True 330 335 end 331 336 object AddressRGrp: TRadioGroup … … 463 468 OnClick = TempActiveCBClick 464 469 end 465 object PhoneNumGrp: TRadioGroup466 Left = 416467 Top = 16468 Width = 137469 Height = 89470 Caption = 'Phone Number'471 ItemIndex = 0472 Items.Strings = (473 'Residence'474 'Work'475 'Cell'476 'Temporary')477 TabOrder = 9478 OnClick = PhoneNumGrpClick479 end480 object PhoneNumEdit: TEdit481 Left = 416482 Top = 120483 Width = 137484 Height = 21485 TabOrder = 10486 Text = '<Phone Number>'487 OnChange = PhoneNumEditChange488 end489 470 object StartingDateEdit: TEdit 490 471 Left = 176 … … 492 473 Width = 145 493 474 Height = 21 494 TabOrder = 11475 TabOrder = 9 495 476 Visible = False 496 477 OnChange = StartingDateEditChange 497 478 end 498 479 object EndingDateEdit: TEdit 499 Left = 408480 Left = 376 500 481 Top = 152 501 Width = 145 502 Height = 21 503 TabOrder = 12 482 Width = 98 483 Height = 21 484 Anchors = [akLeft, akRight] 485 TabOrder = 10 504 486 Visible = False 505 487 OnChange = EndingDateEditChange … … 511 493 Height = 17 512 494 Caption = 'Confidential Active' 513 TabOrder = 1 3495 TabOrder = 11 514 496 Visible = False 515 497 OnClick = ConfActiveCBClick … … 519 501 Left = 95 520 502 Top = 176 521 Width = 165503 Width = 255 522 504 Height = 21 523 505 Anchors = [akLeft, akTop, akRight] … … 531 513 end 532 514 object DegreeEdit: TEdit 533 Left = 325515 Left = 415 534 516 Top = 160 535 517 Width = 136 … … 539 521 Visible = False 540 522 OnChange = DegreeEditChange 523 end 524 object GroupBox1: TGroupBox 525 Left = 495 526 Top = 204 527 Width = 170 528 Height = 185 529 Anchors = [akRight, akBottom] 530 Caption = 'Phone Numbers' 531 TabOrder = 12 532 object PhoneNumGrp: TRadioGroup 533 Left = 8 534 Top = 16 535 Width = 137 536 Height = 89 537 ItemIndex = 0 538 Items.Strings = ( 539 'Residence' 540 'Work' 541 'Cell' 542 'Temporary') 543 TabOrder = 0 544 OnClick = PhoneNumGrpClick 545 end 546 object PhoneNumEdit: TEdit 547 Left = 8 548 Top = 120 549 Width = 137 550 Height = 21 551 TabOrder = 1 552 Text = '<Phone Number>' 553 OnChange = PhoneNumEditChange 554 end 541 555 end 542 556 end … … 547 561 LangData = { 548 562 0D0066726D507444656D6F45646974010100000001000000070043617074696F 549 6E013 400000005004F4B42746E010100000002000000070043617074696F6E00563 6E013500000005004F4B42746E010100000002000000070043617074696F6E00 550 564 090043616E63656C42746E010100000003000000070043617074696F6E000800 551 565 4170706C7942746E010100000004000000070043617074696F6E000B00506167 … … 584 598 0400546578740008005A6970344564697400000C004261644164647265737343 585 599 4201010000001F000000070043617074696F6E000C0054656D70416374697665 586 4342010100000020000000070043617074696F6E000B0050686F6E654E756D47 587 7270010200000021000000070043617074696F6E2200000005004974656D7300 588 0C0050686F6E654E756D45646974010100000023000000040054657874001000 589 5374617274696E67446174654564697400000E00456E64696E67446174654564 590 697400000C00436F6E6641637469766543420101000000240000000700436170 591 74696F6E000B00536578436F6D626F426F780102000000260000000500497465 592 6D7325000000040054657874000A00446567726565456469740000} 600 4342010100000020000000070043617074696F6E0010005374617274696E6744 601 6174654564697400000E00456E64696E67446174654564697400000C00436F6E 602 664163746976654342010100000024000000070043617074696F6E000B005365 603 78436F6D626F426F7801020000002600000005004974656D7325000000040054 604 657874000A00446567726565456469740000090047726F7570426F7831010100 605 000027000000070043617074696F6E000B0050686F6E654E756D477270010100 606 00002800000005004974656D73000C0050686F6E654E756D4564697401010000 607 002900000004005465787400} 593 608 end 594 609 end
Note:
See TracChangeset
for help on using the changeset viewer.
