Changeset 40
- Timestamp:
- Dec 1, 2021, 11:41:48 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 6 edited
-
Forms/UFormContact.lfm (modified) (23 diffs)
-
Forms/UFormContact.lrj (modified) (2 diffs)
-
Forms/UFormContact.pas (modified) (11 diffs)
-
Languages/vCardStudio.cs.po (modified) (17 diffs)
-
Languages/vCardStudio.po (modified) (17 diffs)
-
UContact.pas (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r39 r40 1 1 object FormContact: TFormContact 2 2 Left = 604 3 Height = 8 654 Top = 3 615 Width = 9 153 Height = 856 4 Top = 370 5 Width = 961 6 6 Caption = 'Contact' 7 ClientHeight = 8 658 ClientWidth = 9 157 ClientHeight = 856 8 ClientWidth = 961 9 9 DesignTimePPI = 144 10 10 OnClose = FormClose … … 15 15 object PageControlContact: TPageControl 16 16 Left = 8 17 Height = 78 517 Height = 782 18 18 Top = 8 19 Width = 89320 ActivePage = TabSheet Work19 Width = 939 20 ActivePage = TabSheetGeneral 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 223 TabIndex = 0 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet 26 26 Caption = 'General' 27 ClientHeight = 74 528 ClientWidth = 88327 ClientHeight = 742 28 ClientWidth = 929 29 29 OnShow = TabSheetGeneralShow 30 30 ParentFont = False … … 49 49 Left = 16 50 50 Height = 24 51 Top = 17052 Width = 9553 Caption = ' Cell phone:'54 ParentColor = False 55 ParentFont = False 56 end 57 object Edit CellPhone: TEdit51 Top = 226 52 Width = 63 53 Caption = 'Mobile:' 54 ParentColor = False 55 ParentFont = False 56 end 57 object EditMobile: TEdit 58 58 Left = 144 59 59 Height = 42 60 Top = 16060 Top = 216 61 61 Width = 254 62 62 ParentFont = False … … 66 66 Left = 144 67 67 Height = 42 68 Top = 2 0668 Top = 262 69 69 Width = 254 70 70 ParentFont = False … … 74 74 Left = 16 75 75 Height = 24 76 Top = 2 1076 Top = 266 77 77 Width = 59 78 78 Caption = 'Phone:' … … 81 81 end 82 82 object EditEmail: TEdit 83 Left = 57584 Height = 42 85 Top = 16083 Left = 144 84 Height = 42 85 Top = 304 86 86 Width = 254 87 87 ParentFont = False … … 89 89 end 90 90 object Label4: TLabel 91 Left = 43292 Height = 24 93 Top = 17091 Left = 16 92 Height = 24 93 Top = 312 94 94 Width = 58 95 95 Caption = 'E-mail:' … … 114 114 ParentFont = False 115 115 end 116 object MemoNotes: TMemo117 Left = 240118 Height = 176119 Top = 336120 Width = 623121 Anchors = [akTop, akLeft, akRight, akBottom]122 ParentFont = False123 ParentShowHint = False124 ScrollBars = ssAutoBoth125 TabOrder = 5126 end127 object Label6: TLabel128 Left = 240129 Height = 24130 Top = 304131 Width = 55132 Caption = 'Notes:'133 ParentColor = False134 ParentFont = False135 end136 object EditEmailHome: TEdit137 Left = 575138 Height = 42139 Top = 206140 Width = 254141 ParentFont = False142 TabOrder = 6143 end144 object Label20: TLabel145 Left = 432146 Height = 24147 Top = 210148 Width = 124149 Caption = 'E-mail (Home):'150 ParentColor = False151 ParentFont = False152 end153 object EditEmailWork: TEdit154 Left = 575155 Height = 42156 Top = 250157 Width = 254158 ParentFont = False159 TabOrder = 7160 end161 object Label21: TLabel162 Left = 432163 Height = 24164 Top = 258165 Width = 117166 Caption = 'E-mail (Work):'167 ParentColor = False168 ParentFont = False169 end170 116 object EditBirthday: TEdit 171 117 Left = 144 172 118 Height = 42 173 Top = 250174 Width = 254 175 ParentFont = False 176 TabOrder = 8119 Top = 400 120 Width = 254 121 ParentFont = False 122 TabOrder = 5 177 123 end 178 124 object Label22: TLabel 179 125 Left = 16 180 126 Height = 24 181 Top = 258127 Top = 408 182 128 Width = 76 183 129 Caption = 'Birthday:' … … 186 132 end 187 133 object ImagePhoto: TImage 188 Left = 20189 Height = 2 08190 Top = 344134 Left = 16 135 Height = 210 136 Top = 496 191 137 Width = 207 192 138 Proportional = True … … 194 140 end 195 141 object Label23: TLabel 196 Left = 20197 Height = 24 198 Top = 304142 Left = 16 143 Height = 24 144 Top = 456 199 145 Width = 55 200 146 Caption = 'Photo:' … … 217 163 Width = 254 218 164 ParentFont = False 219 TabOrder = 9165 TabOrder = 6 220 166 end 221 167 object Label25: TLabel … … 234 180 Width = 254 235 181 ParentFont = False 236 TabOrder = 10182 TabOrder = 7 237 183 end 238 184 object Label26: TLabel … … 251 197 Width = 254 252 198 ParentFont = False 253 TabOrder = 11199 TabOrder = 8 254 200 end 255 201 object Label27: TLabel … … 268 214 Width = 254 269 215 ParentFont = False 216 TabOrder = 9 217 end 218 object Label44: TLabel 219 Left = 16 220 Height = 24 221 Top = 168 222 Width = 91 223 Caption = 'Nickname:' 224 ParentColor = False 225 ParentFont = False 226 end 227 object EditNickName: TEdit 228 Left = 144 229 Height = 42 230 Top = 160 231 Width = 254 232 ParentFont = False 233 TabOrder = 10 234 end 235 object Label45: TLabel 236 Left = 432 237 Height = 24 238 Top = 408 239 Width = 105 240 Caption = 'Anniversary:' 241 ParentColor = False 242 ParentFont = False 243 end 244 object EditAniversary: TEdit 245 Left = 575 246 Height = 42 247 Top = 400 248 Width = 254 249 ParentFont = False 250 TabOrder = 11 251 end 252 object Label9: TLabel 253 Left = 432 254 Height = 24 255 Top = 224 256 Width = 34 257 Caption = 'Fax:' 258 ParentColor = False 259 ParentFont = False 260 end 261 object EditFax: TEdit 262 Left = 575 263 Height = 42 264 Top = 216 265 Width = 254 266 ParentFont = False 270 267 TabOrder = 12 271 268 end 269 object EditPager: TEdit 270 Left = 575 271 Height = 42 272 Top = 262 273 Width = 254 274 ParentFont = False 275 TabOrder = 13 276 end 277 object Label10: TLabel 278 Left = 432 279 Height = 24 280 Top = 266 281 Width = 54 282 Caption = 'Pager:' 283 ParentColor = False 284 ParentFont = False 285 end 286 object Label46: TLabel 287 Left = 16 288 Height = 24 289 Top = 360 290 Width = 114 291 Caption = 'Web address:' 292 ParentColor = False 293 ParentFont = False 294 end 295 object EditWeb: TEdit 296 Left = 144 297 Height = 42 298 Top = 352 299 Width = 683 300 ParentFont = False 301 TabOrder = 14 302 end 272 303 end 273 object TabSheet Private: TTabSheet274 Caption = ' Private'275 ClientHeight = 74 5276 ClientWidth = 883304 object TabSheetHome: TTabSheet 305 Caption = 'Home' 306 ClientHeight = 742 307 ClientWidth = 929 277 308 OnShow = TabSheetGeneralShow 278 309 ParentFont = False 279 310 object Label7: TLabel 280 Left = 10 311 Left = 16 312 Height = 24 313 Top = 114 314 Width = 58 315 Caption = 'E-mail:' 316 ParentColor = False 317 ParentFont = False 318 end 319 object EditHomeEmail: TEdit 320 Left = 173 321 Height = 42 322 Top = 112 323 Width = 254 324 ParentFont = False 325 TabOrder = 0 326 end 327 object Label11: TLabel 328 Left = 448 281 329 Height = 24 282 330 Top = 18 283 Width = 125284 Caption = 'Phone (Home):'285 ParentColor = False286 ParentFont = False287 end288 object EditPhoneHome: TEdit289 Left = 173290 Height = 42291 Top = 16292 Width = 254293 ParentFont = False294 TabOrder = 0295 end296 object Label8: TLabel297 Left = 10298 Height = 24299 Top = 64300 Width = 118301 Caption = 'Phone (Work):'302 ParentColor = False303 ParentFont = False304 end305 object EditPhoneWork: TEdit306 Left = 173307 Height = 42308 Top = 62309 Width = 254310 ParentFont = False311 TabOrder = 1312 end313 object Label9: TLabel314 Left = 10315 Height = 24316 Top = 112317 Width = 161318 Caption = 'Cell phone (Home):'319 ParentColor = False320 ParentFont = False321 end322 object EditCellPhoneHome: TEdit323 Left = 173324 Height = 42325 Top = 108326 Width = 254327 ParentFont = False328 TabOrder = 2329 end330 object Label10: TLabel331 Left = 10332 Height = 24333 Top = 160334 Width = 154335 Caption = 'Cell phone (Work):'336 ParentColor = False337 ParentFont = False338 end339 object EditCellPhoneWork: TEdit340 Left = 173341 Height = 42342 Top = 152343 Width = 254344 ParentFont = False345 TabOrder = 3346 end347 object Label11: TLabel348 Left = 451349 Height = 24350 Top = 16351 331 Width = 34 352 332 Caption = 'Fax:' … … 354 334 ParentFont = False 355 335 end 356 object Edit Fax: TEdit357 Left = 60 8336 object EditHomeFax: TEdit 337 Left = 605 358 338 Height = 42 359 339 Top = 16 360 340 Width = 254 361 341 ParentFont = False 362 TabOrder = 4 363 end 364 object Label12: TLabel 365 Left = 451 366 Height = 24 367 Top = 58 368 Width = 100 369 Caption = 'Fax (Home):' 370 ParentColor = False 371 ParentFont = False 372 end 373 object EditFaxHome: TEdit 374 Left = 608 375 Height = 42 376 Top = 62 377 Width = 254 378 ParentFont = False 379 TabOrder = 5 380 end 381 object Label13: TLabel 382 Left = 451 383 Height = 24 384 Top = 106 385 Width = 93 386 Caption = 'Fax (Work):' 387 ParentColor = False 388 ParentFont = False 389 end 390 object EditFaxWork: TEdit 391 Left = 608 392 Height = 42 393 Top = 108 394 Width = 254 395 ParentFont = False 396 TabOrder = 6 342 TabOrder = 1 343 end 344 object EditHomeMobile: TEdit 345 Left = 173 346 Height = 42 347 Top = 60 348 Width = 254 349 ParentFont = False 350 TabOrder = 2 351 end 352 object EditHomePhone: TEdit 353 Left = 173 354 Height = 42 355 Top = 16 356 Width = 254 357 ParentFont = False 358 TabOrder = 3 397 359 end 398 360 object Label14: TLabel 399 Left = 4 51400 Height = 24 401 Top = 144361 Left = 448 362 Height = 24 363 Top = 68 402 364 Width = 54 403 365 Caption = 'Pager:' … … 405 367 ParentFont = False 406 368 end 407 object EditPager: TEdit 408 Left = 608 409 Height = 42 410 Top = 152 411 Width = 254 412 ParentFont = False 413 TabOrder = 7 414 end 415 object EditAddressHomeStreet: TEdit 416 Left = 173 417 Height = 42 418 Top = 200 419 Width = 254 420 ParentFont = False 421 TabOrder = 8 422 end 423 object Label36: TLabel 424 Left = 10 425 Height = 24 426 Top = 210 427 Width = 54 428 Caption = 'Street:' 429 ParentColor = False 430 ParentFont = False 431 end 432 object Label37: TLabel 433 Left = 10 434 Height = 24 435 Top = 258 436 Width = 137 437 Caption = 'Extended street:' 438 ParentColor = False 439 ParentFont = False 440 end 441 object Label38: TLabel 442 Left = 10 443 Height = 24 444 Top = 304 445 Width = 64 446 Caption = 'Region:' 447 ParentColor = False 448 ParentFont = False 449 end 450 object Label39: TLabel 451 Left = 10 452 Height = 24 453 Top = 352 454 Width = 71 455 Caption = 'Country:' 456 ParentColor = False 457 ParentFont = False 369 object EditHomePager: TEdit 370 Left = 605 371 Height = 42 372 Top = 60 373 Width = 254 374 ParentFont = False 375 TabOrder = 4 458 376 end 459 377 object Label40: TLabel 460 Left = 1 0461 Height = 24 462 Top = 400378 Left = 16 379 Height = 24 380 Top = 168 463 381 Width = 114 464 382 Caption = 'Web address:' … … 466 384 ParentFont = False 467 385 end 468 object Edit WebHome: TEdit386 object EditHomeWeb: TEdit 469 387 Left = 173 470 388 Height = 42 471 Top = 392 472 Width = 254 473 ParentFont = False 474 TabOrder = 9 475 end 476 object EditAddressHomeCountry: TEdit 477 Left = 173 478 Height = 42 479 Top = 344 480 Width = 254 481 ParentFont = False 482 TabOrder = 10 483 end 484 object EditAddressHomeRegion: TEdit 485 Left = 173 486 Height = 42 487 Top = 296 488 Width = 254 489 ParentFont = False 490 TabOrder = 11 491 end 492 object Label41: TLabel 493 Left = 451 494 Height = 24 495 Top = 342 496 Width = 103 497 Caption = 'Postal code:' 498 ParentColor = False 499 ParentFont = False 500 end 501 object EditAddressHomePostalCode: TEdit 502 Left = 608 503 Height = 42 504 Top = 334 505 Width = 254 506 ParentFont = False 507 TabOrder = 12 508 end 509 object EditAddressHomeCity: TEdit 510 Left = 608 511 Height = 42 512 Top = 248 513 Width = 254 514 ParentFont = False 515 TabOrder = 13 516 end 517 object Label42: TLabel 518 Left = 451 519 Height = 24 520 Top = 256 521 Width = 36 522 Caption = 'City:' 523 ParentColor = False 524 ParentFont = False 525 end 526 object Label43: TLabel 527 Left = 451 528 Height = 24 529 Top = 208 530 Width = 131 531 Caption = 'Post office box:' 532 ParentColor = False 533 ParentFont = False 534 end 535 object EditAddressHomePostOfficeBox: TEdit 536 Left = 608 537 Height = 42 538 Top = 200 539 Width = 254 540 ParentFont = False 541 TabOrder = 14 542 end 543 object EditAddressHomeStreetExtended: TEdit 544 Left = 173 545 Height = 42 546 Top = 248 547 Width = 254 548 ParentFont = False 549 TabOrder = 15 389 Top = 160 390 Width = 683 391 ParentFont = False 392 TabOrder = 5 393 end 394 object GroupBox1: TGroupBox 395 Left = 10 396 Height = 242 397 Top = 216 398 Width = 890 399 Anchors = [akTop, akLeft, akRight] 400 Caption = 'Address' 401 ClientHeight = 215 402 ClientWidth = 888 403 TabOrder = 6 404 object Label36: TLabel 405 Left = 8 406 Height = 24 407 Top = 18 408 Width = 54 409 Caption = 'Street:' 410 ParentColor = False 411 ParentFont = False 412 end 413 object Label37: TLabel 414 Left = 10 415 Height = 24 416 Top = 66 417 Width = 137 418 Caption = 'Extended street:' 419 ParentColor = False 420 ParentFont = False 421 end 422 object EditHomeAddressStreetExtended: TEdit 423 Left = 173 424 Height = 42 425 Top = 56 426 Width = 254 427 ParentFont = False 428 TabOrder = 0 429 end 430 object EditHomeAddressStreet: TEdit 431 Left = 173 432 Height = 42 433 Top = 8 434 Width = 254 435 ParentFont = False 436 TabOrder = 1 437 end 438 object Label38: TLabel 439 Left = 10 440 Height = 24 441 Top = 112 442 Width = 64 443 Caption = 'Region:' 444 ParentColor = False 445 ParentFont = False 446 end 447 object EditHomeAddressRegion: TEdit 448 Left = 173 449 Height = 42 450 Top = 104 451 Width = 254 452 ParentFont = False 453 TabOrder = 2 454 end 455 object EditHomeAddressCountry: TEdit 456 Left = 173 457 Height = 42 458 Top = 152 459 Width = 254 460 ParentFont = False 461 TabOrder = 3 462 end 463 object Label39: TLabel 464 Left = 10 465 Height = 24 466 Top = 160 467 Width = 71 468 Caption = 'Country:' 469 ParentColor = False 470 ParentFont = False 471 end 472 object Label41: TLabel 473 Left = 451 474 Height = 24 475 Top = 150 476 Width = 103 477 Caption = 'Postal code:' 478 ParentColor = False 479 ParentFont = False 480 end 481 object EditHomeAddressPostalCode: TEdit 482 Left = 588 483 Height = 42 484 Top = 142 485 Width = 254 486 ParentFont = False 487 TabOrder = 4 488 end 489 object EditHomeAddressCity: TEdit 490 Left = 588 491 Height = 42 492 Top = 56 493 Width = 254 494 ParentFont = False 495 TabOrder = 5 496 end 497 object Label42: TLabel 498 Left = 451 499 Height = 24 500 Top = 64 501 Width = 36 502 Caption = 'City:' 503 ParentColor = False 504 ParentFont = False 505 end 506 object Label43: TLabel 507 Left = 451 508 Height = 24 509 Top = 16 510 Width = 131 511 Caption = 'Post office box:' 512 ParentColor = False 513 ParentFont = False 514 end 515 object EditHomeAddressPostOfficeBox: TEdit 516 Left = 588 517 Height = 42 518 Top = 8 519 Width = 254 520 ParentFont = False 521 TabOrder = 6 522 end 523 end 524 object Label12: TLabel 525 Left = 16 526 Height = 24 527 Top = 64 528 Width = 63 529 Caption = 'Mobile:' 530 ParentColor = False 531 ParentFont = False 532 end 533 object Label13: TLabel 534 Left = 16 535 Height = 24 536 Top = 20 537 Width = 59 538 Caption = 'Phone:' 539 ParentColor = False 540 ParentFont = False 550 541 end 551 542 end 552 543 object TabSheetWork: TTabSheet 553 544 Caption = 'Work' 554 ClientHeight = 74 5555 ClientWidth = 883545 ClientHeight = 742 546 ClientWidth = 929 556 547 OnShow = TabSheetGeneralShow 557 548 object EditOrganization: TEdit … … 606 597 TabOrder = 2 607 598 end 608 object Label28: TLabel 609 Left = 10 610 Height = 24 611 Top = 122 612 Width = 54 613 Caption = 'Street:' 614 ParentColor = False 615 ParentFont = False 616 end 617 object EditAddressWorkStreet: TEdit 599 object EditWorkWeb: TEdit 618 600 Left = 173 619 601 Height = 42 620 Top = 112621 Width = 254602 Top = 256 603 Width = 683 622 604 ParentFont = False 623 605 TabOrder = 3 624 end625 object Label29: TLabel626 Left = 451627 Height = 24628 Top = 168629 Width = 36630 Caption = 'City:'631 ParentColor = False632 ParentFont = False633 end634 object EditAddressWorkCity: TEdit635 Left = 608636 Height = 42637 Top = 160638 Width = 254639 ParentFont = False640 TabOrder = 4641 end642 object Label30: TLabel643 Left = 10644 Height = 24645 Top = 216646 Width = 64647 Caption = 'Region:'648 ParentColor = False649 ParentFont = False650 end651 object EditAddressWorkRegion: TEdit652 Left = 173653 Height = 42654 Top = 216655 Width = 254656 ParentFont = False657 TabOrder = 5658 end659 object EditAddressWorkCountry: TEdit660 Left = 173661 Height = 42662 Top = 264663 Width = 254664 ParentFont = False665 TabOrder = 6666 end667 object Label31: TLabel668 Left = 10669 Height = 24670 Top = 264671 Width = 71672 Caption = 'Country:'673 ParentColor = False674 ParentFont = False675 end676 object EditWebWork: TEdit677 Left = 173678 Height = 42679 Top = 312680 Width = 254681 ParentFont = False682 TabOrder = 7683 606 end 684 607 object Label32: TLabel 685 608 Left = 10 686 609 Height = 24 687 Top = 312610 Top = 264 688 611 Width = 114 689 612 Caption = 'Web address:' … … 691 614 ParentFont = False 692 615 end 693 object EditAddressWorkPostalCode: TEdit 616 object GroupBox2: TGroupBox 617 Left = 8 618 Height = 247 619 Top = 312 620 Width = 911 621 Caption = 'Address' 622 ClientHeight = 220 623 ClientWidth = 909 624 TabOrder = 4 625 object Label31: TLabel 626 Left = 10 627 Height = 24 628 Top = 160 629 Width = 71 630 Caption = 'Country:' 631 ParentColor = False 632 ParentFont = False 633 end 634 object EditAddressWorkCountry: TEdit 635 Left = 173 636 Height = 42 637 Top = 160 638 Width = 254 639 ParentFont = False 640 TabOrder = 0 641 end 642 object EditAddressWorkRegion: TEdit 643 Left = 173 644 Height = 42 645 Top = 112 646 Width = 254 647 ParentFont = False 648 TabOrder = 1 649 end 650 object Label30: TLabel 651 Left = 10 652 Height = 24 653 Top = 112 654 Width = 64 655 Caption = 'Region:' 656 ParentColor = False 657 ParentFont = False 658 end 659 object Label35: TLabel 660 Left = 10 661 Height = 24 662 Top = 66 663 Width = 137 664 Caption = 'Extended street:' 665 ParentColor = False 666 ParentFont = False 667 end 668 object EditAddressWorkStreetExtended: TEdit 669 Left = 173 670 Height = 42 671 Top = 64 672 Width = 254 673 ParentFont = False 674 TabOrder = 2 675 end 676 object Label28: TLabel 677 Left = 10 678 Height = 24 679 Top = 18 680 Width = 54 681 Caption = 'Street:' 682 ParentColor = False 683 ParentFont = False 684 end 685 object EditAddressWorkStreet: TEdit 686 Left = 173 687 Height = 42 688 Top = 8 689 Width = 254 690 ParentFont = False 691 TabOrder = 3 692 end 693 object Label34: TLabel 694 Left = 451 695 Height = 24 696 Top = 18 697 Width = 131 698 Caption = 'Post office box:' 699 ParentColor = False 700 ParentFont = False 701 end 702 object EditAddressWorkPostOfficeBox: TEdit 703 Left = 608 704 Height = 42 705 Top = 8 706 Width = 254 707 ParentFont = False 708 TabOrder = 4 709 end 710 object EditAddressWorkCity: TEdit 711 Left = 608 712 Height = 42 713 Top = 56 714 Width = 254 715 ParentFont = False 716 TabOrder = 5 717 end 718 object Label29: TLabel 719 Left = 451 720 Height = 24 721 Top = 64 722 Width = 36 723 Caption = 'City:' 724 ParentColor = False 725 ParentFont = False 726 end 727 object EditAddressWorkPostalCode: TEdit 728 Left = 608 729 Height = 42 730 Top = 142 731 Width = 254 732 ParentFont = False 733 TabOrder = 6 734 end 735 object Label33: TLabel 736 Left = 451 737 Height = 24 738 Top = 150 739 Width = 103 740 Caption = 'Postal code:' 741 ParentColor = False 742 ParentFont = False 743 end 744 end 745 object Label15: TLabel 746 Left = 10 747 Height = 24 748 Top = 116 749 Width = 59 750 Caption = 'Phone:' 751 ParentColor = False 752 ParentFont = False 753 end 754 object EditWorkPhone: TEdit 755 Left = 173 756 Height = 42 757 Top = 112 758 Width = 254 759 ParentFont = False 760 TabOrder = 5 761 end 762 object Label16: TLabel 763 Left = 451 764 Height = 24 765 Top = 112 766 Width = 34 767 Caption = 'Fax:' 768 ParentColor = False 769 ParentFont = False 770 end 771 object EditWorkFax: TEdit 694 772 Left = 608 695 773 Height = 42 696 Top = 246 774 Top = 112 775 Width = 254 776 ParentFont = False 777 TabOrder = 6 778 end 779 object EditWorkPager: TEdit 780 Left = 608 781 Height = 42 782 Top = 156 783 Width = 254 784 ParentFont = False 785 TabOrder = 7 786 end 787 object Label17: TLabel 788 Left = 448 789 Height = 24 790 Top = 160 791 Width = 54 792 Caption = 'Pager:' 793 ParentColor = False 794 ParentFont = False 795 end 796 object EditWorkMobile: TEdit 797 Left = 173 798 Height = 42 799 Top = 160 697 800 Width = 254 698 801 ParentFont = False 699 802 TabOrder = 8 700 803 end 701 object Label33: TLabel 702 Left = 451 703 Height = 24 704 Top = 254 705 Width = 103 706 Caption = 'Postal code:' 707 ParentColor = False 708 ParentFont = False 709 end 710 object EditAddressWorkPostOfficeBox: TEdit 711 Left = 608 712 Height = 42 713 Top = 112 804 object Label19: TLabel 805 Left = 10 806 Height = 24 807 Top = 160 808 Width = 63 809 Caption = 'Mobile:' 810 ParentColor = False 811 ParentFont = False 812 end 813 object Label8: TLabel 814 Left = 10 815 Height = 24 816 Top = 210 817 Width = 58 818 Caption = 'E-mail:' 819 ParentColor = False 820 ParentFont = False 821 end 822 object EditWorkEmail: TEdit 823 Left = 173 824 Height = 42 825 Top = 210 714 826 Width = 254 715 827 ParentFont = False 716 828 TabOrder = 9 717 829 end 718 object Label34: TLabel 719 Left = 451 720 Height = 24 721 Top = 122 722 Width = 131 723 Caption = 'Post office box:' 724 ParentColor = False 725 ParentFont = False 726 end 727 object Label35: TLabel 728 Left = 10 729 Height = 24 730 Top = 170 731 Width = 137 732 Caption = 'Extended street:' 733 ParentColor = False 734 ParentFont = False 735 end 736 object EditAddressWorkStreetExtended: TEdit 737 Left = 173 738 Height = 42 739 Top = 168 740 Width = 254 741 ParentFont = False 742 TabOrder = 10 830 end 831 object TabSheetOthers: TTabSheet 832 Caption = 'Others' 833 ClientHeight = 742 834 ClientWidth = 929 835 object MemoNotes: TMemo 836 Left = 16 837 Height = 167 838 Top = 48 839 Width = 893 840 Anchors = [akTop, akLeft, akRight, akBottom] 841 ParentFont = False 842 ParentShowHint = False 843 ScrollBars = ssAutoBoth 844 TabOrder = 0 845 end 846 object Label6: TLabel 847 Left = 16 848 Height = 24 849 Top = 16 850 Width = 55 851 Caption = 'Notes:' 852 ParentColor = False 853 ParentFont = False 743 854 end 744 855 end … … 750 861 end 751 862 object ButtonCancel: TButton 752 Left = 788863 Left = 834 753 864 Height = 37 754 Top = 8 15865 Top = 806 755 866 Width = 115 756 867 Anchors = [akRight, akBottom] … … 761 872 end 762 873 object ButtonOk: TButton 763 Left = 6 53874 Left = 699 764 875 Height = 37 765 Top = 8 15876 Top = 806 766 877 Width = 119 767 878 Anchors = [akRight, akBottom] … … 775 886 Images = Core.ImageList1 776 887 Left = 320 777 Top = 416888 Top = 568 778 889 object AEditField: TAction 779 890 Caption = 'Edit' … … 783 894 Images = Core.ImageList1 784 895 Left = 184 785 Top = 416896 Top = 568 786 897 object MenuItem1: TMenuItem 787 898 Action = AEditField -
trunk/Forms/UFormContact.lrj
r39 r40 3 3 {"hash":231000124,"name":"tformcontact.tabsheetgeneral.caption","sourcebytes":[71,101,110,101,114,97,108],"value":"General"}, 4 4 {"hash":104434218,"name":"tformcontact.label1.caption","sourcebytes":[70,105,114,115,116,32,110,97,109,101,58],"value":"First name:"}, 5 {"hash": 120104554,"name":"tformcontact.label2.caption","sourcebytes":[67,101,108,108,32,112,104,111,110,101,58],"value":"Cell phone:"},5 {"hash":72942298,"name":"tformcontact.label2.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 6 6 {"hash":91186314,"name":"tformcontact.label3.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 7 7 {"hash":138641338,"name":"tformcontact.label4.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 8 8 {"hash":174528181,"name":"tformcontact.label5.caption","sourcebytes":[76,97,115,116,32,110,97,109,101],"value":"Last name"}, 9 {"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"},10 {"hash":149146986,"name":"tformcontact.label20.caption","sourcebytes":[69,45,109,97,105,108,32,40,72,111,109,101,41,58],"value":"E-mail (Home):"},11 {"hash":166819690,"name":"tformcontact.label21.caption","sourcebytes":[69,45,109,97,105,108,32,40,87,111,114,107,41,58],"value":"E-mail (Work):"},12 9 {"hash":162456010,"name":"tformcontact.label22.caption","sourcebytes":[66,105,114,116,104,100,97,121,58],"value":"Birthday:"}, 13 10 {"hash":91188010,"name":"tformcontact.label23.caption","sourcebytes":[80,104,111,116,111,58],"value":"Photo:"}, … … 16 13 {"hash":62410682,"name":"tformcontact.label26.caption","sourcebytes":[84,105,116,108,101,32,98,101,102,111,114,101,58],"value":"Title before:"}, 17 14 {"hash":63774250,"name":"tformcontact.label27.caption","sourcebytes":[84,105,116,108,101,32,97,102,116,101,114,58],"value":"Title after:"}, 18 {"hash":126929141,"name":"tformcontact.tabsheetprivate.caption","sourcebytes":[80,114,105,118,97,116,101],"value":"Private"}, 19 {"hash":170160314,"name":"tformcontact.label7.caption","sourcebytes":[80,104,111,110,101,32,40,72,111,109,101,41,58],"value":"Phone (Home):"}, 20 {"hash":187747002,"name":"tformcontact.label8.caption","sourcebytes":[80,104,111,110,101,32,40,87,111,114,107,41,58],"value":"Phone (Work):"}, 21 {"hash":243293850,"name":"tformcontact.label9.caption","sourcebytes":[67,101,108,108,32,112,104,111,110,101,32,40,72,111,109,101,41,58],"value":"Cell phone (Home):"}, 22 {"hash":258794650,"name":"tformcontact.label10.caption","sourcebytes":[67,101,108,108,32,112,104,111,110,101,32,40,87,111,114,107,41,58],"value":"Cell phone (Work):"}, 15 {"hash":170145658,"name":"tformcontact.label44.caption","sourcebytes":[78,105,99,107,110,97,109,101,58],"value":"Nickname:"}, 16 {"hash":136108298,"name":"tformcontact.label45.caption","sourcebytes":[65,110,110,105,118,101,114,115,97,114,121,58],"value":"Anniversary:"}, 17 {"hash":313530,"name":"tformcontact.label9.caption","sourcebytes":[70,97,120,58],"value":"Fax:"}, 18 {"hash":90692698,"name":"tformcontact.label10.caption","sourcebytes":[80,97,103,101,114,58],"value":"Pager:"}, 19 {"hash":258182170,"name":"tformcontact.label46.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"}, 20 {"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"}, 21 {"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 23 22 {"hash":313530,"name":"tformcontact.label11.caption","sourcebytes":[70,97,120,58],"value":"Fax:"}, 24 {"hash":213564906,"name":"tformcontact.label12.caption","sourcebytes":[70,97,120,32,40,72,111,109,101,41,58],"value":"Fax (Home):"},25 {"hash":229246954,"name":"tformcontact.label13.caption","sourcebytes":[70,97,120,32,40,87,111,114,107,41,58],"value":"Fax (Work):"},26 23 {"hash":90692698,"name":"tformcontact.label14.caption","sourcebytes":[80,97,103,101,114,58],"value":"Pager:"}, 24 {"hash":258182170,"name":"tformcontact.label40.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"}, 25 {"hash":128683235,"name":"tformcontact.groupbox1.caption","sourcebytes":[65,100,100,114,101,115,115],"value":"Address"}, 27 26 {"hash":179878954,"name":"tformcontact.label36.caption","sourcebytes":[83,116,114,101,101,116,58],"value":"Street:"}, 28 27 {"hash":116835754,"name":"tformcontact.label37.caption","sourcebytes":[69,120,116,101,110,100,101,100,32,115,116,114,101,101,116,58],"value":"Extended street:"}, 29 28 {"hash":146671178,"name":"tformcontact.label38.caption","sourcebytes":[82,101,103,105,111,110,58],"value":"Region:"}, 30 29 {"hash":113622378,"name":"tformcontact.label39.caption","sourcebytes":[67,111,117,110,116,114,121,58],"value":"Country:"}, 31 {"hash":258182170,"name":"tformcontact.label40.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"},32 30 {"hash":186708218,"name":"tformcontact.label41.caption","sourcebytes":[80,111,115,116,97,108,32,99,111,100,101,58],"value":"Postal code:"}, 33 31 {"hash":4852682,"name":"tformcontact.label42.caption","sourcebytes":[67,105,116,121,58],"value":"City:"}, 34 32 {"hash":252071146,"name":"tformcontact.label43.caption","sourcebytes":[80,111,115,116,32,111,102,102,105,99,101,32,98,111,120,58],"value":"Post office box:"}, 33 {"hash":72942298,"name":"tformcontact.label12.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 34 {"hash":91186314,"name":"tformcontact.label13.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 35 35 {"hash":386699,"name":"tformcontact.tabsheetwork.caption","sourcebytes":[87,111,114,107],"value":"Work"}, 36 36 {"hash":101155194,"name":"tformcontact.labelorganization.caption","sourcebytes":[79,114,103,97,110,105,122,97,116,105,111,110,58],"value":"Organization:"}, 37 37 {"hash":167347194,"name":"tformcontact.labelorganization1.caption","sourcebytes":[68,101,112,97,114,116,109,101,110,116,58],"value":"Department:"}, 38 38 {"hash":95466122,"name":"tformcontact.label18.caption","sourcebytes":[84,105,116,108,101,58],"value":"Title:"}, 39 {"hash":258182170,"name":"tformcontact.label32.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"}, 40 {"hash":128683235,"name":"tformcontact.groupbox2.caption","sourcebytes":[65,100,100,114,101,115,115],"value":"Address"}, 41 {"hash":113622378,"name":"tformcontact.label31.caption","sourcebytes":[67,111,117,110,116,114,121,58],"value":"Country:"}, 42 {"hash":146671178,"name":"tformcontact.label30.caption","sourcebytes":[82,101,103,105,111,110,58],"value":"Region:"}, 43 {"hash":116835754,"name":"tformcontact.label35.caption","sourcebytes":[69,120,116,101,110,100,101,100,32,115,116,114,101,101,116,58],"value":"Extended street:"}, 39 44 {"hash":179878954,"name":"tformcontact.label28.caption","sourcebytes":[83,116,114,101,101,116,58],"value":"Street:"}, 45 {"hash":252071146,"name":"tformcontact.label34.caption","sourcebytes":[80,111,115,116,32,111,102,102,105,99,101,32,98,111,120,58],"value":"Post office box:"}, 40 46 {"hash":4852682,"name":"tformcontact.label29.caption","sourcebytes":[67,105,116,121,58],"value":"City:"}, 41 {"hash":146671178,"name":"tformcontact.label30.caption","sourcebytes":[82,101,103,105,111,110,58],"value":"Region:"},42 {"hash":113622378,"name":"tformcontact.label31.caption","sourcebytes":[67,111,117,110,116,114,121,58],"value":"Country:"},43 {"hash":258182170,"name":"tformcontact.label32.caption","sourcebytes":[87,101,98,32,97,100,100,114,101,115,115,58],"value":"Web address:"},44 47 {"hash":186708218,"name":"tformcontact.label33.caption","sourcebytes":[80,111,115,116,97,108,32,99,111,100,101,58],"value":"Postal code:"}, 45 {"hash":252071146,"name":"tformcontact.label34.caption","sourcebytes":[80,111,115,116,32,111,102,102,105,99,101,32,98,111,120,58],"value":"Post office box:"}, 46 {"hash":116835754,"name":"tformcontact.label35.caption","sourcebytes":[69,120,116,101,110,100,101,100,32,115,116,114,101,101,116,58],"value":"Extended street:"}, 48 {"hash":91186314,"name":"tformcontact.label15.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 49 {"hash":313530,"name":"tformcontact.label16.caption","sourcebytes":[70,97,120,58],"value":"Fax:"}, 50 {"hash":90692698,"name":"tformcontact.label17.caption","sourcebytes":[80,97,103,101,114,58],"value":"Pager:"}, 51 {"hash":72942298,"name":"tformcontact.label19.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 52 {"hash":138641338,"name":"tformcontact.label8.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 53 {"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"}, 54 {"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"}, 47 55 {"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"}, 48 56 {"hash":77089212,"name":"tformcontact.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, -
trunk/Forms/UFormContact.pas
r39 r40 18 18 ButtonCancel: TButton; 19 19 ButtonOk: TButton; 20 Edit AddressHomeCity: TEdit;21 Edit AddressHomeCountry: TEdit;22 Edit AddressHomePostalCode: TEdit;23 Edit AddressHomePostOfficeBox: TEdit;24 Edit AddressHomeRegion: TEdit;25 Edit AddressHomeStreetExtended: TEdit;26 Edit AddressWorkStreet: TEdit;20 EditHomeAddressCity: TEdit; 21 EditHomeAddressCountry: TEdit; 22 EditHomeAddressPostalCode: TEdit; 23 EditHomeAddressPostOfficeBox: TEdit; 24 EditHomeAddressRegion: TEdit; 25 EditHomeAddressStreet: TEdit; 26 EditHomeAddressStreetExtended: TEdit; 27 27 EditAddressWorkCity: TEdit; 28 EditAddressWorkRegion: TEdit;29 28 EditAddressWorkCountry: TEdit; 30 EditAddressHomeStreet: TEdit;31 EditWebWork: TEdit;32 29 EditAddressWorkPostalCode: TEdit; 33 30 EditAddressWorkPostOfficeBox: TEdit; 31 EditAddressWorkRegion: TEdit; 32 EditAddressWorkStreet: TEdit; 34 33 EditAddressWorkStreetExtended: TEdit; 34 EditAniversary: TEdit; 35 EditWorkEmail: TEdit; 36 EditPager: TEdit; 37 EditFax: TEdit; 38 EditWeb: TEdit; 39 EditHomeFax: TEdit; 40 EditWorkFax: TEdit; 41 EditHomeMobile: TEdit; 42 EditWorkMobile: TEdit; 43 EditWorkPager: TEdit; 44 EditHomePhone: TEdit; 45 EditNickName: TEdit; 46 EditHomePager: TEdit; 47 EditHomeEmail: TEdit; 48 EditHomeWeb: TEdit; 49 EditWorkWeb: TEdit; 35 50 EditDepartment: TEdit; 36 51 EditFullName: TEdit; … … 40 55 EditMiddleName: TEdit; 41 56 EditTitleAfter: TEdit; 42 EditEmailHome: TEdit;43 EditEmailWork: TEdit;44 57 EditBirthday: TEdit; 45 EditPhoneHome: TEdit;46 EditPhoneWork: TEdit;47 EditCellPhoneHome: TEdit;48 EditCellPhoneWork: TEdit;49 EditFax: TEdit;50 EditFaxHome: TEdit;51 EditFaxWork: TEdit;52 EditPager: TEdit;53 58 EditLastName: TEdit; 54 59 EditEmail: TEdit; 55 60 EditPhone: TEdit; 56 61 EditFirstName: TEdit; 57 EditCellPhone: TEdit; 58 EditWebHome: TEdit; 62 EditMobile: TEdit; 63 EditWorkPhone: TEdit; 64 GroupBox1: TGroupBox; 65 GroupBox2: TGroupBox; 59 66 ImagePhoto: TImage; 60 67 Label1: TLabel; … … 64 71 Label13: TLabel; 65 72 Label14: TLabel; 73 Label15: TLabel; 74 Label16: TLabel; 75 Label17: TLabel; 66 76 Label18: TLabel; 77 Label19: TLabel; 67 78 Label2: TLabel; 68 Label20: TLabel;69 Label21: TLabel;70 79 Label22: TLabel; 71 80 Label23: TLabel; … … 92 101 Label42: TLabel; 93 102 Label43: TLabel; 103 Label44: TLabel; 104 Label45: TLabel; 105 Label46: TLabel; 94 106 Label5: TLabel; 95 107 Label6: TLabel; … … 103 115 PageControlContact: TPageControl; 104 116 PopupMenu1: TPopupMenu; 117 TabSheetOthers: TTabSheet; 118 TabSheetHome: TTabSheet; 105 119 TabSheetWork: TTabSheet; 106 120 TabSheetGeneral: TTabSheet; 107 TabSheetPrivate: TTabSheet;108 121 TabSheetAll: TTabSheet; 109 122 procedure ButtonOkClick(Sender: TObject); … … 215 228 FormProperties.Properties := Contact.Properties; 216 229 230 // General 217 231 EditFullName.Text := Contact.Fields[cfFullName]; 218 232 EditFirstName.Text := Contact.Fields[cfFirstName]; … … 221 235 EditTitleAfter.Text := Contact.Fields[cfTitleAfter]; 222 236 EditTitleBefore.Text := Contact.Fields[cfTitleBefore]; 223 EditCellPhone.Text := Contact.Fields[cfTelCell]; 224 EditPhoneHome.Text := Contact.Fields[cfTelHome]; 225 EditPhoneWork.Text := Contact.Fields[cfTelWork]; 237 EditNickName.Text := Contact.Fields[cfNickName]; 226 238 EditEmail.Text := Contact.Fields[cfEmail]; 227 MemoNotes.Lines.Text := Contact.Fields[cfNote]; 239 EditPhone.Text := Contact.Fields[cfTel]; 240 EditMobile.Text := Contact.Fields[cfTelCell]; 241 EditFax.Text := Contact.Fields[cfTelFax]; 242 EditPager.Text := Contact.Fields[cfTelPager]; 243 EditBirthday.Text := Contact.Fields[cfDayOfBirth]; 244 EditAniversary.Text := Contact.Fields[cfAnniversary]; 245 EditWeb.Text := Contact.Fields[cfUrl]; 246 247 // Home 248 EditHomeEmail.Text := Contact.Fields[cfEmailHome]; 249 EditHomePhone.Text := Contact.Fields[cfTelHome]; 250 EditHomeMobile.Text := Contact.Fields[cfTelCellHome]; 251 EditHomeFax.Text := Contact.Fields[cfTelFaxHome]; 252 EditHomePager.Text := Contact.Fields[cfTelPagerHome]; 253 EditHomeAddressPostOfficeBox.Text := Contact.Fields[cfHomeAddressPostOfficeBox]; 254 EditHomeAddressStreet.Text := Contact.Fields[cfHomeAddressStreet]; 255 EditHomeAddressStreetExtended.Text := Contact.Fields[cfHomeAddressStreetExtended]; 256 EditHomeAddressCity.Text := Contact.Fields[cfHomeAddressCity]; 257 EditHomeAddressRegion.Text := Contact.Fields[cfHomeAddressRegion]; 258 EditHomeAddressCountry.Text := Contact.Fields[cfHomeAddressCountry]; 259 EditHomeAddressPostalCode.Text := Contact.Fields[cfHomeAddressPostalCode]; 260 EditHomeWeb.Text := Contact.Fields[cfUrlHome]; 228 261 229 262 // Work 263 EditWorkEmail.Text := Contact.Fields[cfEmailWork]; 264 EditWorkPhone.Text := Contact.Fields[cfTelWork]; 265 EditWorkMobile.Text := Contact.Fields[cfTelCellWork]; 266 EditWorkFax.Text := Contact.Fields[cfTelFaxWork]; 267 EditWorkPager.Text := Contact.Fields[cfTelPagerWork]; 230 268 EditTitle.Text := Contact.Fields[cfTitle]; 231 269 EditOrganization.Text := Contact.Fields[cfOrganization]; … … 238 276 EditAddressWorkCountry.Text := Contact.Fields[cfWorkAddressCountry]; 239 277 EditAddressWorkPostalCode.Text := Contact.Fields[cfWorkAddressPostalCode]; 240 EditWebHome.Text := Contact.Fields[cfUrlWork]; 241 242 // Private 243 EditAddressHomePostOfficeBox.Text := Contact.Fields[cfHomeAddressPostOfficeBox]; 244 EditAddressHomeStreet.Text := Contact.Fields[cfHomeAddressStreet]; 245 EditAddressHomeStreetExtended.Text := Contact.Fields[cfHomeAddressStreetExtended]; 246 EditAddressHomeCity.Text := Contact.Fields[cfHomeAddressCity]; 247 EditAddressHomeRegion.Text := Contact.Fields[cfHomeAddressRegion]; 248 EditAddressHomeCountry.Text := Contact.Fields[cfHomeAddressCountry]; 249 EditAddressHomePostalCode.Text := Contact.Fields[cfHomeAddressPostalCode]; 250 EditWebHome.Text := Contact.Fields[cfUrlHome]; 251 EditBirthday.Text := Contact.Fields[cfDayOfBirth]; 252 253 EditEmailHome.Text := Contact.Fields[cfEmail]; 278 EditWorkWeb.Text := Contact.Fields[cfUrlWork]; 279 280 // Others 281 MemoNotes.Lines.Text := Contact.Fields[cfNote]; 282 254 283 ImagePhoto.Picture.Bitmap.Clear; 255 284 PhotoProperty := Contact.GetProperty(cfPhoto); … … 288 317 procedure TFormContact.SaveData; 289 318 begin 319 // General 290 320 Contact.Fields[cfFullName] := EditFullName.Text; 291 321 Contact.Fields[cfMiddleName] := EditMiddleName.Text; … … 294 324 Contact.Fields[cfTitleAfter] := EditTitleAfter.Text; 295 325 Contact.Fields[cfTitleBefore] := EditTitleBefore.Text; 296 Contact.Fields[cfTelCell] := EditCellPhone.Text; 297 Contact.Fields[cfTelHome] := EditPhoneHome.Text; 298 Contact.Fields[cfTelWork] := EditPhoneWork.Text; 326 Contact.Fields[cfNickName] := EditNickName.Text; 299 327 Contact.Fields[cfEmail] := EditEmail.Text; 300 Contact.Fields[cfNote] := MemoNotes.Lines.Text; 301 Contact.Fields[cfEmail] := EditEmailHome.Text; 328 Contact.Fields[cfTel] := EditPhone.Text; 329 Contact.Fields[cfTelCell] := EditMobile.Text; 330 Contact.Fields[cfTelFax] := EditFax.Text; 331 Contact.Fields[cfTelPager] := EditPager.Text; 302 332 Contact.Fields[cfDayOfBirth] := EditBirthday.Text; 333 Contact.Fields[cfAnniversary] := EditAniversary.Text; 334 Contact.Fields[cfUrl] := EditWeb.Text; 335 336 // Home 337 Contact.Fields[cfEmailHome] := EditHomeEmail.Text; 338 Contact.Fields[cfTelHome] := EditHomePhone.Text; 339 Contact.Fields[cfTelCellHome] := EditHomeMobile.Text; 340 Contact.Fields[cfTelFaxHome] := EditHomeFax.Text; 341 Contact.Fields[cfTelPagerHome] := EditHomePager.Text; 342 Contact.Fields[cfHomeAddressPostOfficeBox] := EditHomeAddressPostOfficeBox.Text; 343 Contact.Fields[cfHomeAddressStreet] := EditHomeAddressStreet.Text; 344 Contact.Fields[cfHomeAddressStreetExtended] := EditHomeAddressStreetExtended.Text; 345 Contact.Fields[cfHomeAddressCity] := EditHomeAddressCity.Text; 346 Contact.Fields[cfHomeAddressRegion] := EditHomeAddressRegion.Text; 347 Contact.Fields[cfHomeAddressCountry] := EditHomeAddressCountry.Text; 348 Contact.Fields[cfHomeAddressPostalCode] := EditHomeAddressPostalCode.Text; 349 Contact.Fields[cfUrlHome] := EditHomeWeb.Text; 303 350 304 351 // Work 352 Contact.Fields[cfEmailWork] := EditWorkEmail.Text; 353 Contact.Fields[cfTelWork] := EditWorkPhone.Text; 354 Contact.Fields[cfTelCellWork] := EditWorkMobile.Text; 355 Contact.Fields[cfTelFaxWork] := EditWorkFax.Text; 356 Contact.Fields[cfTelPagerWork] := EditWorkPager.Text; 305 357 Contact.Fields[cfTitle] := EditTitle.Text; 306 358 Contact.Fields[cfOrganization] := EditOrganization.Text; … … 313 365 Contact.Fields[cfWorkAddressCountry] := EditAddressWorkCountry.Text; 314 366 Contact.Fields[cfWorkAddressPostalCode] := EditAddressWorkPostalCode.Text; 315 Contact.Fields[cfUrlWork] := EditWebWork.Text; 316 317 // Private 318 Contact.Fields[cfHomeAddressPostOfficeBox] := EditAddressHomePostOfficeBox.Text; 319 Contact.Fields[cfHomeAddressStreet] := EditAddressHomeStreet.Text; 320 Contact.Fields[cfHomeAddressStreetExtended] := EditAddressHomeStreetExtended.Text; 321 Contact.Fields[cfHomeAddressCity] := EditAddressHomeCity.Text; 322 Contact.Fields[cfHomeAddressRegion] := EditAddressHomeRegion.Text; 323 Contact.Fields[cfHomeAddressCountry] := EditAddressHomeCountry.Text; 324 Contact.Fields[cfHomeAddressPostalCode] := EditAddressHomePostalCode.Text; 325 Contact.Fields[cfUrlHome] := EditWebHome.Text; 367 Contact.Fields[cfUrlWork] := EditWorkWeb.Text; 368 369 // Others 370 Contact.Fields[cfNote] := MemoNotes.Lines.Text; 326 371 end; 327 372 -
trunk/Languages/vCardStudio.cs.po
r39 r40 92 92 msgstr "Kontakt" 93 93 94 #: tformcontact.groupbox1.caption 95 msgctxt "tformcontact.groupbox1.caption" 96 msgid "Address" 97 msgstr "Adresa" 98 99 #: tformcontact.groupbox2.caption 100 msgctxt "tformcontact.groupbox2.caption" 101 msgid "Address" 102 msgstr "Adresa" 103 94 104 #: tformcontact.label1.caption 95 105 msgid "First name:" … … 98 108 #: tformcontact.label10.caption 99 109 msgctxt "tformcontact.label10.caption" 100 msgid " Cell phone (Work):"101 msgstr " Mobil (Práce):"110 msgid "Pager:" 111 msgstr "Pager:" 102 112 103 113 #: tformcontact.label11.caption 114 msgctxt "tformcontact.label11.caption" 104 115 msgid "Fax:" 105 116 msgstr "Fax:" 106 117 107 118 #: tformcontact.label12.caption 108 msgid "Fax (Home):" 109 msgstr "Fax (Domov):" 119 msgctxt "tformcontact.label12.caption" 120 msgid "Mobile:" 121 msgstr "Mobil:" 110 122 111 123 #: tformcontact.label13.caption 112 msgid "Fax (Work):" 113 msgstr "Fax (Práce):" 124 msgctxt "tformcontact.label13.caption" 125 msgid "Phone:" 126 msgstr "Telefon:" 114 127 115 128 #: tformcontact.label14.caption 129 msgctxt "tformcontact.label14.caption" 130 msgid "Pager:" 131 msgstr "Pager:" 132 133 #: tformcontact.label15.caption 134 msgctxt "tformcontact.label15.caption" 135 msgid "Phone:" 136 msgstr "Telefon:" 137 138 #: tformcontact.label16.caption 139 msgctxt "tformcontact.label16.caption" 140 msgid "Fax:" 141 msgstr "Fax:" 142 143 #: tformcontact.label17.caption 144 msgctxt "tformcontact.label17.caption" 116 145 msgid "Pager:" 117 146 msgstr "Pager:" … … 121 150 msgstr "Titul:" 122 151 152 #: tformcontact.label19.caption 153 msgctxt "tformcontact.label19.caption" 154 msgid "Mobile:" 155 msgstr "Mobil:" 156 123 157 #: tformcontact.label2.caption 124 msgid "Cell phone:" 125 msgstr "Mobilní číslo:" 126 127 #: tformcontact.label20.caption 128 msgid "E-mail (Home):" 129 msgstr "E-mail (Domov):" 130 131 #: tformcontact.label21.caption 132 msgid "E-mail (Work):" 133 msgstr "E-mail (Práce):" 158 msgctxt "tformcontact.label2.caption" 159 msgid "Mobile:" 160 msgstr "Mobil:" 134 161 135 162 #: tformcontact.label22.caption … … 168 195 169 196 #: tformcontact.label3.caption 197 msgctxt "tformcontact.label3.caption" 170 198 msgid "Phone:" 171 199 msgstr "Telefon:" … … 222 250 223 251 #: tformcontact.label4.caption 252 msgctxt "tformcontact.label4.caption" 224 253 msgid "E-mail:" 225 254 msgstr "E-mail:" … … 245 274 msgstr "Číslo schránky:" 246 275 276 #: tformcontact.label44.caption 277 msgid "Nickname:" 278 msgstr "Přezdívka:" 279 280 #: tformcontact.label45.caption 281 msgid "Anniversary:" 282 msgstr "Výročí:" 283 284 #: tformcontact.label46.caption 285 msgctxt "tformcontact.label46.caption" 286 msgid "Web address:" 287 msgstr "Webová adresa:" 288 247 289 #: tformcontact.label5.caption 248 290 msgid "Last name" … … 254 296 255 297 #: tformcontact.label7.caption 256 msgid "Phone (Home):" 257 msgstr "Telefon (Domov):" 298 msgctxt "tformcontact.label7.caption" 299 msgid "E-mail:" 300 msgstr "E-mail:" 258 301 259 302 #: tformcontact.label8.caption 260 msgid "Phone (Work):" 261 msgstr "Telefon (Práce):" 303 msgctxt "tformcontact.label8.caption" 304 msgid "E-mail:" 305 msgstr "E-mail:" 262 306 263 307 #: tformcontact.label9.caption 264 msgid "Cell phone (Home):" 265 msgstr "Mobil (Domov):" 308 msgctxt "tformcontact.label9.caption" 309 msgid "Fax:" 310 msgstr "Fax:" 266 311 267 312 #: tformcontact.labelorganization.caption … … 281 326 msgstr "Obecné" 282 327 283 #: tformcontact.tabsheetprivate.caption 284 msgid "Private" 285 msgstr "Soukromé" 328 #: tformcontact.tabsheethome.caption 329 msgid "Home" 330 msgstr "Domov" 331 332 #: tformcontact.tabsheetothers.caption 333 msgid "Others" 334 msgstr "Ostatní" 286 335 287 336 #: tformcontact.tabsheetwork.caption … … 525 574 msgstr "DPI:" 526 575 576 #: ucontact.sanniversary 577 msgid "Anniversary" 578 msgstr "Výročí" 579 527 580 #: ucontact.scategories 528 581 msgid "Categories" 529 582 msgstr "Kategorie" 530 583 531 #: ucontact.scellphone532 msgctxt "ucontact.scellphone"533 msgid "Cell phone"534 msgstr "Mobilní telefon"535 536 584 #: ucontact.sdayofbirth 537 585 msgid "Day of birth" … … 545 593 msgid "E-mail" 546 594 msgstr "E-mail" 595 596 #: ucontact.sfax 597 msgid "Fax" 598 msgstr "" 547 599 548 600 #: ucontact.sfieldindexnotdefined … … 596 648 597 649 #: ucontact.shomeemail 598 msgid "Home Email" 599 msgstr "Domácí email" 650 msgid "Home E-mail" 651 msgstr "Domácí E-mail" 652 653 #: ucontact.shomefax 654 msgid "Home fax" 655 msgstr "" 656 657 #: ucontact.shomemobile 658 msgid "Home mobile" 659 msgstr "" 660 661 #: ucontact.shomepager 662 msgid "Home pager" 663 msgstr "" 600 664 601 665 #: ucontact.shomephone … … 609 673 610 674 #: ucontact.sinternetemail 611 msgid "Internet E mail"612 msgstr "Internetov á email"675 msgid "Internet E-mail" 676 msgstr "Internetový E-mail" 613 677 614 678 #: ucontact.sjabber … … 633 697 msgstr "Prostřední jméno" 634 698 699 #: ucontact.smobilephone 700 msgid "Mobile phone" 701 msgstr "" 702 635 703 #: ucontact.snickname 636 msgid "Nick Name"704 msgid "Nick name" 637 705 msgstr "Přezdívka" 638 706 … … 645 713 msgstr "Organizace" 646 714 715 #: ucontact.spager 716 msgid "Pager" 717 msgstr "" 718 647 719 #: ucontact.sphoto 648 720 msgid "Photo" … … 680 752 msgid "Unique identifier" 681 753 msgstr "Unikátní identifikátor" 682 683 #: ucontact.sunknowncommand684 msgid "Unknown command: %s"685 msgstr "Neznámý příkaz: %s"686 687 #: ucontact.sunsupportedcontactfieldsindex688 msgid "Unsupported contact field index"689 msgstr "Nepodporovaný index pole kontaktu"690 754 691 755 #: ucontact.svcardfile … … 698 762 msgstr "VoIP telefon" 699 763 764 #: ucontact.swebaddress 765 msgid "Web address" 766 msgstr "" 767 700 768 #: ucontact.swebaddresshome 701 769 msgid "Web address home" … … 733 801 msgid "Work address extended street" 734 802 msgstr "Pracovní adresa rozšířená ulice" 803 804 #: ucontact.sworkemail 805 msgid "Work E-mail" 806 msgstr "" 807 808 #: ucontact.sworkfax 809 msgid "Work fax" 810 msgstr "" 811 812 #: ucontact.sworkmobile 813 msgid "Work mobile" 814 msgstr "" 815 816 #: ucontact.sworkpager 817 msgid "Work pager" 818 msgstr "" 735 819 736 820 #: ucontact.sworkphone -
trunk/Languages/vCardStudio.po
r39 r40 82 82 msgstr "" 83 83 84 #: tformcontact.groupbox1.caption 85 msgctxt "tformcontact.groupbox1.caption" 86 msgid "Address" 87 msgstr "" 88 89 #: tformcontact.groupbox2.caption 90 msgctxt "tformcontact.groupbox2.caption" 91 msgid "Address" 92 msgstr "" 93 84 94 #: tformcontact.label1.caption 85 95 msgid "First name:" … … 87 97 88 98 #: tformcontact.label10.caption 89 msgid "Cell phone (Work):" 99 msgctxt "tformcontact.label10.caption" 100 msgid "Pager:" 90 101 msgstr "" 91 102 92 103 #: tformcontact.label11.caption 104 msgctxt "tformcontact.label11.caption" 93 105 msgid "Fax:" 94 106 msgstr "" 95 107 96 108 #: tformcontact.label12.caption 97 msgid "Fax (Home):" 109 msgctxt "tformcontact.label12.caption" 110 msgid "Mobile:" 98 111 msgstr "" 99 112 100 113 #: tformcontact.label13.caption 101 msgid "Fax (Work):" 114 msgctxt "tformcontact.label13.caption" 115 msgid "Phone:" 102 116 msgstr "" 103 117 104 118 #: tformcontact.label14.caption 119 msgctxt "tformcontact.label14.caption" 120 msgid "Pager:" 121 msgstr "" 122 123 #: tformcontact.label15.caption 124 msgctxt "tformcontact.label15.caption" 125 msgid "Phone:" 126 msgstr "" 127 128 #: tformcontact.label16.caption 129 msgctxt "tformcontact.label16.caption" 130 msgid "Fax:" 131 msgstr "" 132 133 #: tformcontact.label17.caption 134 msgctxt "tformcontact.label17.caption" 105 135 msgid "Pager:" 106 136 msgstr "" … … 110 140 msgstr "" 111 141 142 #: tformcontact.label19.caption 143 msgctxt "tformcontact.label19.caption" 144 msgid "Mobile:" 145 msgstr "" 146 112 147 #: tformcontact.label2.caption 113 msgid "Cell phone:" 114 msgstr "" 115 116 #: tformcontact.label20.caption 117 msgid "E-mail (Home):" 118 msgstr "" 119 120 #: tformcontact.label21.caption 121 msgid "E-mail (Work):" 148 msgctxt "tformcontact.label2.caption" 149 msgid "Mobile:" 122 150 msgstr "" 123 151 … … 157 185 158 186 #: tformcontact.label3.caption 187 msgctxt "tformcontact.label3.caption" 159 188 msgid "Phone:" 160 189 msgstr "" … … 211 240 212 241 #: tformcontact.label4.caption 242 msgctxt "tformcontact.label4.caption" 213 243 msgid "E-mail:" 214 244 msgstr "" … … 234 264 msgstr "" 235 265 266 #: tformcontact.label44.caption 267 msgid "Nickname:" 268 msgstr "" 269 270 #: tformcontact.label45.caption 271 msgid "Anniversary:" 272 msgstr "" 273 274 #: tformcontact.label46.caption 275 msgctxt "tformcontact.label46.caption" 276 msgid "Web address:" 277 msgstr "" 278 236 279 #: tformcontact.label5.caption 237 280 msgid "Last name" … … 243 286 244 287 #: tformcontact.label7.caption 245 msgid "Phone (Home):" 288 msgctxt "tformcontact.label7.caption" 289 msgid "E-mail:" 246 290 msgstr "" 247 291 248 292 #: tformcontact.label8.caption 249 msgid "Phone (Work):" 293 msgctxt "tformcontact.label8.caption" 294 msgid "E-mail:" 250 295 msgstr "" 251 296 252 297 #: tformcontact.label9.caption 253 msgid "Cell phone (Home):" 298 msgctxt "tformcontact.label9.caption" 299 msgid "Fax:" 254 300 msgstr "" 255 301 … … 270 316 msgstr "" 271 317 272 #: tformcontact.tabsheetprivate.caption 273 msgid "Private" 318 #: tformcontact.tabsheethome.caption 319 msgid "Home" 320 msgstr "" 321 322 #: tformcontact.tabsheetothers.caption 323 msgid "Others" 274 324 msgstr "" 275 325 … … 512 562 msgstr "" 513 563 564 #: ucontact.sanniversary 565 msgid "Anniversary" 566 msgstr "" 567 514 568 #: ucontact.scategories 515 569 msgid "Categories" 516 570 msgstr "" 517 571 518 #: ucontact.scellphone519 msgctxt "ucontact.scellphone"520 msgid "Cell phone"521 msgstr ""522 523 572 #: ucontact.sdayofbirth 524 573 msgid "Day of birth" … … 531 580 #: ucontact.semail 532 581 msgid "E-mail" 582 msgstr "" 583 584 #: ucontact.sfax 585 msgid "Fax" 533 586 msgstr "" 534 587 … … 583 636 584 637 #: ucontact.shomeemail 585 msgid "Home Email" 638 msgid "Home E-mail" 639 msgstr "" 640 641 #: ucontact.shomefax 642 msgid "Home fax" 643 msgstr "" 644 645 #: ucontact.shomemobile 646 msgid "Home mobile" 647 msgstr "" 648 649 #: ucontact.shomepager 650 msgid "Home pager" 586 651 msgstr "" 587 652 … … 596 661 597 662 #: ucontact.sinternetemail 598 msgid "Internet E mail"663 msgid "Internet E-mail" 599 664 msgstr "" 600 665 … … 620 685 msgstr "" 621 686 687 #: ucontact.smobilephone 688 msgid "Mobile phone" 689 msgstr "" 690 622 691 #: ucontact.snickname 623 msgid "Nick Name"692 msgid "Nick name" 624 693 msgstr "" 625 694 … … 632 701 msgstr "" 633 702 703 #: ucontact.spager 704 msgid "Pager" 705 msgstr "" 706 634 707 #: ucontact.sphoto 635 708 msgid "Photo" … … 666 739 #: ucontact.suniqueidentifier 667 740 msgid "Unique identifier" 668 msgstr ""669 670 #: ucontact.sunknowncommand671 msgid "Unknown command: %s"672 msgstr ""673 674 #: ucontact.sunsupportedcontactfieldsindex675 msgid "Unsupported contact field index"676 741 msgstr "" 677 742 … … 685 750 msgstr "" 686 751 752 #: ucontact.swebaddress 753 msgid "Web address" 754 msgstr "" 755 687 756 #: ucontact.swebaddresshome 688 757 msgid "Web address home" … … 719 788 #: ucontact.sworkaddressstreetextended 720 789 msgid "Work address extended street" 790 msgstr "" 791 792 #: ucontact.sworkemail 793 msgid "Work E-mail" 794 msgstr "" 795 796 #: ucontact.sworkfax 797 msgid "Work fax" 798 msgstr "" 799 800 #: ucontact.sworkmobile 801 msgid "Work mobile" 802 msgstr "" 803 804 #: ucontact.sworkpager 805 msgid "Work pager" 721 806 msgstr "" 722 807 -
trunk/UContact.pas
r39 r40 16 16 17 17 TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName, cfTitleBefore, 18 cfTitleAfter, cfFullName, cfTelCell, cfTelHome, cfTelHome2, cfTelWork, cfTelVoip, 19 cfTelMain, cfEmail, cfTel, cfUid, cfUrlHome, cfUrlWork, 20 cfEmailHome, cfEmailInternet, cfNickName, cfNote, cfRole, cfTitle, 18 cfTitleAfter, cfFullName, 19 cfTel, cfTelCell, cfTelFax, cfTelPager, cfTelHome2, cfTelVoip, cfTelMain, 20 cfTelHome, cfTelCellHome, cfTelFaxHome, cfTelPagerHome, 21 cfTelWork, cfTelCellWork, cfTelFaxWork, cfTelPagerWork, 22 cfEmail, cfUid, cfUrl, cfUrlHome, cfUrlWork, 23 cfEmailHome, cfEmailWork, cfEmailInternet, cfNickName, cfNote, cfRole, cfTitle, 21 24 cfCategories, cfOrganization, cfDepartment, 22 25 cfHomeAddressStreet, cfHomeAddressStreetExtended, cfHomeAddressCity, cfHomeAddressCountry, … … 25 28 cfWorkAddressPostalCode, cfWorkAddressRegion, cfWorkAddressPostOfficeBox, 26 29 cfXTimesContacted, cfXLastTimeContacted, cfPhoto, cfXJabber, cfDayOfBirth, cfRevision, 27 cfVersion );30 cfVersion, cfAnniversary); 28 31 29 32 TContactField = class 30 33 SysName: string; 31 34 Groups: TStringArray; 35 NoGroups: TStringArray; 32 36 Title: string; 33 37 Index: TContactFieldIndex; … … 39 43 40 44 TContactFields = class(TFPGObjectList<TContactField>) 41 function AddNew(Name: string; Groups: array of string; Title: string; Index: TContactFieldIndex; DataType: 45 function AddNew(Name: string; Groups: array of string; NoGroups: array of string; 46 Title: string; Index: TContactFieldIndex; DataType: 42 47 TDataType; ValueIndex: Integer = -1): TContactField; 43 48 function GetByIndex(Index: TContactFieldIndex): TContactField; … … 55 60 procedure EvaluateAttributes; 56 61 function GetDecodedValue: string; 57 function MatchNameGroups(AName: string; Groups: TStringArray): Boolean; 62 function MatchNameGroups(AName: string; Groups: TStringArray; 63 NoGroups: TStringArray): Boolean; 58 64 procedure Assign(Source: TContactProperty); 59 65 constructor Create; … … 66 72 procedure AssignToList(List: TFPGObjectList<TObject>); 67 73 function GetByName(Name: string): TContactProperty; 68 function GetByNameGroups(Name: string; Groups: TStringArray): TContactProperty; 69 function GetByNameGroupsMultiple(Name: string; Groups: TStringArray): TContactProperties; 74 function GetByNameGroups(Name: string; Groups: TStringArray; 75 NoGroups: TStringArray): TContactProperty; 76 function GetByNameGroupsMultiple(Name: string; Groups: TStringArray; 77 NoGroups: TStringArray): TContactProperties; 70 78 end; 71 79 … … 126 134 resourcestring 127 135 SVCardFile = 'vCard file'; 128 SUnsupportedContactFieldsIndex = 'Unsupported contact field index';129 SUnknownCommand = 'Unknown command: %s';130 136 SFoundPropertiesBeforeBlockStart = 'Found properties before the start of block'; 131 137 SFoundBlockEndWithoutBlockStart = 'Found block end without block start'; … … 138 144 SFullName = 'Full Name'; 139 145 STelephone = 'Telephone'; 140 SCellPhone = 'Cell phone'; 146 SMobilePhone = 'Mobile phone'; 147 SPager = 'Pager'; 148 SFax = 'Fax'; 141 149 SHomePhone = 'Home phone'; 150 SHomeMobile = 'Home mobile'; 151 SHomeFax = 'Home fax'; 152 SHomePager = 'Home pager'; 153 SWorkPhone = 'Work phone'; 154 SWorkFax = 'Work fax'; 155 SWorkPager = 'Work pager'; 156 SWorkMobile = 'Work mobile'; 142 157 SHomePhone2 = 'Home phone 2'; 143 SWorkPhone = 'Work phone';144 158 SVoipPhone = 'VoIP phone'; 145 159 SMainPhone = 'Main phone'; 146 160 SEmail = 'E-mail'; 147 SHomeEmail = 'Home Email'; 148 SInternetEmail = 'Internet Email'; 149 SNickName = 'Nick Name'; 161 SHomeEmail = 'Home E-mail'; 162 SWorkEmail = 'Work E-mail'; 163 SInternetEmail = 'Internet E-mail'; 164 SNickName = 'Nick name'; 150 165 SNote = 'Note'; 151 166 SRole = 'Role'; … … 173 188 SJabber = 'Jabber'; 174 189 SDayOfBirth = 'Day of birth'; 190 SAnniversary = 'Anniversary'; 175 191 SRevision = 'Revision'; 176 192 SUniqueIdentifier = 'Unique identifier'; 193 SWebAddress = 'Web address'; 177 194 SWebAddressHome = 'Web address home'; 178 195 SWebAddressWork = 'Web address work'; … … 223 240 end; 224 241 225 function TContactProperties.GetByNameGroups(Name: string; Groups: TStringArray 226 ): TContactProperty;242 function TContactProperties.GetByNameGroups(Name: string; Groups: TStringArray; 243 NoGroups: TStringArray): TContactProperty; 227 244 var 228 245 I: Integer; 229 246 begin 230 247 I := 0; 231 while (I < Count) and not Items[I].MatchNameGroups(Name, Groups ) do Inc(I);248 while (I < Count) and not Items[I].MatchNameGroups(Name, Groups, NoGroups) do Inc(I); 232 249 if I < Count then Result := Items[I] 233 250 else Result := nil; … … 235 252 236 253 function TContactProperties.GetByNameGroupsMultiple(Name: string; 237 Groups: TStringArray ): TContactProperties;254 Groups: TStringArray; NoGroups: TStringArray): TContactProperties; 238 255 var 239 256 I: Integer; … … 241 258 Result := TContactProperties.Create(False); 242 259 for I := 0 to Count - 1 do 243 if Items[I].MatchNameGroups(Name, Groups ) then260 if Items[I].MatchNameGroups(Name, Groups, NoGroups) then 244 261 Result.Add(Items[I]); 245 262 end; … … 283 300 end; 284 301 285 function TContactProperty.MatchNameGroups(AName: string; Groups: TStringArray 286 ): Boolean; 287 var 288 I: Integer; 289 begin 302 function TContactProperty.MatchNameGroups(AName: string; Groups: TStringArray; 303 NoGroups: TStringArray): Boolean; 304 var 305 I: Integer; 306 Attr: string; 307 begin 308 Attr := Attributes.DelimitedText; 290 309 Result := Name = AName; 291 if Result then begin310 if Result and (Length(Groups) > 0) then begin 292 311 for I := 0 to Length(Groups) - 1 do 293 if Attributes.IndexOf(Groups[I]) = -1 then begin 312 if (Attributes.IndexOf(Groups[I]) = -1) and 313 (Attributes.IndexOf('TYPE=' + Groups[I]) = -1) then begin 314 Result := False; 315 Break; 316 end; 317 end; 318 if Result and (Length(NoGroups) > 0) then begin 319 for I := 0 to Length(NoGroups) - 1 do 320 if (Attributes.IndexOf(NoGroups[I]) <> -1) or 321 (Attributes.IndexOf('TYPE=' + NoGroups[I]) <> -1) then begin 294 322 Result := False; 295 323 Break; … … 368 396 { TContactFields } 369 397 370 function TContactFields.AddNew(Name: string; Groups: array of string; Title: string; Index: TContactFieldIndex; 398 function TContactFields.AddNew(Name: string; Groups: array of string; 399 NoGroups: array of string; Title: string; Index: TContactFieldIndex; 371 400 DataType: TDataType; ValueIndex: Integer = -1): TContactField; 372 401 var … … 378 407 for I := 0 to Length(Groups) - 1 do 379 408 Result.Groups[I] := Groups[I]; 409 SetLength(Result.NoGroups, Length(NoGroups)); 410 for I := 0 to Length(NoGroups) - 1 do 411 Result.NoGroups[I] := NoGroups[I]; 380 412 Result.Title := Title; 381 413 Result.Index := Index; … … 431 463 Field := Parent.Fields.GetByIndex(Index); 432 464 if Assigned(Field) then begin 433 Prop := Properties.GetByNameGroups(Field.SysName, Field.Groups );434 if not Assigned(Prop) then begin465 Prop := Properties.GetByNameGroups(Field.SysName, Field.Groups, Field.NoGroups); 466 if (not Assigned(Prop)) and (AValue <> '') then begin 435 467 Prop := TContactProperty.Create; 436 468 Prop.Name := Field.SysName; … … 439 471 Properties.Add(Prop); 440 472 end; 441 if Field.ValueIndex <> -1 then begin 442 while Prop.Values.Count <= Field.ValueIndex do Prop.Values.Add(''); 443 Prop.Values.Strings[Field.ValueIndex] := AValue 444 end else Prop.Values.DelimitedText := AValue; 473 if Assigned(Prop) then begin 474 if Field.ValueIndex <> -1 then begin 475 // Extend subitems count 476 while Prop.Values.Count <= Field.ValueIndex do 477 Prop.Values.Add(''); 478 479 Prop.Values.Strings[Field.ValueIndex] := AValue; 480 end else Prop.Values.DelimitedText := AValue; 481 482 // Remove empty items 483 while (Prop.Values.Count > 0) and (Prop.Values.Strings[Prop.Values.Count - 1] = '') do 484 Prop.Values.Delete(Prop.Values.Count - 1); 485 486 // Remove if empty 487 if Prop.Values.Text = '' then begin 488 Properties.Remove(Prop); 489 end; 490 end; 445 491 end else raise Exception.Create(SFieldIndexNotDefined); 446 492 end; … … 453 499 Field := Parent.Fields.GetByIndex(Index); 454 500 if Assigned(Field) then begin 455 Result := Properties.GetByNameGroups(Field.SysName, Field.Groups );501 Result := Properties.GetByNameGroups(Field.SysName, Field.Groups, Field.NoGroups); 456 502 end else raise Exception.Create(SFieldIndexNotDefined); 457 503 end; … … 501 547 begin 502 548 with Fields do begin 503 AddNew('N', [], SLastName, cfLastName, dtString, 0); 504 AddNew('N', [], SFirstName, cfFirstName, dtString, 1); 505 AddNew('N', [], SMiddleName, cfMiddleName, dtString, 2); 506 AddNew('N', [], STitleBefore, cfTitleBefore, dtString, 3); 507 AddNew('N', [], STitleAfter, cfTitleAfter, dtString, 4); 508 AddNew('FN', [], SFullName, cfFullName, dtString); 509 AddNew('TEL', [], STelephone, cfTel, dtString); 510 AddNew('TEL', ['CELL'], SCellPhone, cfTelCell, dtString); 511 AddNew('TEL', ['HOME'], SHomePhone, cfTelHome, dtString); 512 AddNew('TEL', ['HOME2'], SHomePhone2, cfTelHome2, dtString); 513 AddNew('TEL', ['WORK'], SWorkPhone, cfTelWork, dtString); 514 AddNew('TEL', ['VOIP'], SVoipPhone, cfTelVoip, dtString); 515 AddNew('TEL', ['MAIN'], SMainPhone, cfTelMain, dtString); 516 AddNew('EMAIL', [], SEmail, cfEmail, dtString); 517 AddNew('EMAIL', ['HOME'], SHomeEmail, cfEmailHome, dtString); 518 AddNew('EMAIL', ['INTERNET'], SInternetEmail, cfEmailInternet, dtString); 519 AddNew('NICKNAME', [], SNickName, cfNickName, dtString); 520 AddNew('NOTE', [], SNote, cfNote, dtString); 521 AddNew('ROLE', [], SRole, cfRole, dtString); 522 AddNew('TITLE', [], STitle, cfTitle, dtString); 523 AddNew('CATEGORIES', [], SCategories, cfCategories, dtString); 524 AddNew('ORG', [], SOrganization, cfOrganization, dtString, 0); 525 AddNew('ORG', [], SDepartement, cfDepartment, dtString, 1); 526 AddNew('ADR', ['HOME'], SHomeAddressPostOfficeBox, cfHomeAddressPostOfficeBox, dtString, 0); 527 AddNew('ADR', ['HOME'], SHomeAddressStreetExtended, cfHomeAddressStreetExtended, dtString, 1); 528 AddNew('ADR', ['HOME'], SHomeAddressStreet, cfHomeAddressStreet, dtString, 2); 529 AddNew('ADR', ['HOME'], SHomeAddressCity, cfHomeAddressCity, dtString, 3); 530 AddNew('ADR', ['HOME'], SHomeAddressRegion, cfHomeAddressRegion, dtString, 4); 531 AddNew('ADR', ['HOME'], SHomeAddressPostalCode, cfHomeAddressPostalCode, dtString, 5); 532 AddNew('ADR', ['HOME'], SHomeAddressCountry, cfHomeAddressCountry, dtString, 6); 533 AddNew('ADR', ['WORK'], SWorkAddressPostOfficeBox, cfWorkAddressPostOfficeBox, dtString, 0); 534 AddNew('ADR', ['WORK'], SWorkAddressStreetExtended, cfWorkAddressStreetExtended, dtString, 1); 535 AddNew('ADR', ['WORK'], SWorkAddressStreet, cfWorkAddressStreet, dtString, 2); 536 AddNew('ADR', ['WORK'], SWorkAddressCity, cfWorkAddressCity, dtString, 3); 537 AddNew('ADR', ['WORK'], SWorkAddressRegion, cfWorkAddressRegion, dtString, 4); 538 AddNew('ADR', ['WORK'], SWorkAddressPostalCode, cfWorkAddressPostalCode, dtString, 5); 539 AddNew('ADR', ['WORK'], SWorkAddressCountry, cfWorkAddressCountry, dtString, 6); 540 AddNew('X-TIMES_CONTACTED', [], STimesContacted, cfXTimesContacted, dtString); 541 AddNew('X-LAST_TIME_CONTACTED', [], SLastTimeContacted, cfXLastTimeContacted, dtString); 542 AddNew('PHOTO', [], SPhoto, cfPhoto, dtString); 543 AddNew('X-JABBER', [], SJabber, cfXJabber, dtString); 544 AddNew('BDAY', [], SDayOfBirth, cfDayOfBirth, dtString); 545 AddNew('REV', [], SRevision, cfRevision, dtString); 546 AddNew('UID', [], SUniqueIdentifier, cfUid, dtString); 547 AddNew('URL', ['HOME'], SWebAddressHome, cfUrlHome, dtString); 548 AddNew('URL', ['WORK'], SWebAddressWork, cfUrlWork, dtString); 549 AddNew('N', [], [], SLastName, cfLastName, dtString, 0); 550 AddNew('N', [], [], SFirstName, cfFirstName, dtString, 1); 551 AddNew('N', [], [], SMiddleName, cfMiddleName, dtString, 2); 552 AddNew('N', [], [], STitleBefore, cfTitleBefore, dtString, 3); 553 AddNew('N', [], [], STitleAfter, cfTitleAfter, dtString, 4); 554 AddNew('FN', [], [], SFullName, cfFullName, dtString); 555 AddNew('TEL', [], ['CELL', 'FAX', 'PAGER', 'WORK', 'HOME'], STelephone, cfTel, dtString); 556 AddNew('TEL', ['CELL'], ['WORK', 'HOME'], SMobilePhone, cfTelCell, dtString); 557 AddNew('TEL', ['FAX'], ['WORK', 'HOME'], SFax, cfTelFax, dtString); 558 AddNew('TEL', ['PAGER'], ['WORK', 'HOME'], SPager, cfTelPager, dtString); 559 AddNew('TEL', ['HOME'], ['CELL', 'FAX', 'PAGER'], SHomePhone, cfTelHome, dtString); 560 AddNew('TEL', ['HOME', 'CELL'], [], SHomeMobile, cfTelCellHome, dtString); 561 AddNew('TEL', ['HOME', 'FAX'], [], SHomeFax, cfTelFaxHome, dtString); 562 AddNew('TEL', ['HOME', 'PAGER'], [], SHomePager, cfTelPagerHome, dtString); 563 AddNew('TEL', ['WORK'], ['CELL', 'FAX', 'PAGER'], SWorkPhone, cfTelWork, dtString); 564 AddNew('TEL', ['WORK', 'CELL'], [], SWorkMobile, cfTelCellWork, dtString); 565 AddNew('TEL', ['WORK', 'FAX'], [], SWorkFax, cfTelFaxWork, dtString); 566 AddNew('TEL', ['WORK', 'PAGER'], [], SWorkPager, cfTelPagerWork, dtString); 567 AddNew('TEL', ['HOME2'], [], SHomePhone2, cfTelHome2, dtString); 568 AddNew('TEL', ['VOIP'], [], SVoipPhone, cfTelVoip, dtString); 569 AddNew('TEL', ['MAIN'], [], SMainPhone, cfTelMain, dtString); 570 AddNew('EMAIL', [], ['HOME', 'WORK', 'INTERNET'], SEmail, cfEmail, dtString); 571 AddNew('EMAIL', ['HOME'], [], SHomeEmail, cfEmailHome, dtString); 572 AddNew('EMAIL', ['WORK'], [], SWorkEmail, cfEmailWork, dtString); 573 AddNew('EMAIL', ['INTERNET'], [], SInternetEmail, cfEmailInternet, dtString); 574 AddNew('NICKNAME', [], [], SNickName, cfNickName, dtString); 575 AddNew('NOTE', [], [], SNote, cfNote, dtString); 576 AddNew('ROLE', [], [], SRole, cfRole, dtString); 577 AddNew('TITLE', [], [], STitle, cfTitle, dtString); 578 AddNew('CATEGORIES', [], [], SCategories, cfCategories, dtString); 579 AddNew('ORG', [], [], SOrganization, cfOrganization, dtString, 0); 580 AddNew('ORG', [], [], SDepartement, cfDepartment, dtString, 1); 581 AddNew('ADR', ['HOME'], [], SHomeAddressPostOfficeBox, cfHomeAddressPostOfficeBox, dtString, 0); 582 AddNew('ADR', ['HOME'], [], SHomeAddressStreetExtended, cfHomeAddressStreetExtended, dtString, 1); 583 AddNew('ADR', ['HOME'], [], SHomeAddressStreet, cfHomeAddressStreet, dtString, 2); 584 AddNew('ADR', ['HOME'], [], SHomeAddressCity, cfHomeAddressCity, dtString, 3); 585 AddNew('ADR', ['HOME'], [], SHomeAddressRegion, cfHomeAddressRegion, dtString, 4); 586 AddNew('ADR', ['HOME'], [], SHomeAddressPostalCode, cfHomeAddressPostalCode, dtString, 5); 587 AddNew('ADR', ['HOME'], [], SHomeAddressCountry, cfHomeAddressCountry, dtString, 6); 588 AddNew('ADR', ['WORK'], [], SWorkAddressPostOfficeBox, cfWorkAddressPostOfficeBox, dtString, 0); 589 AddNew('ADR', ['WORK'], [], SWorkAddressStreetExtended, cfWorkAddressStreetExtended, dtString, 1); 590 AddNew('ADR', ['WORK'], [], SWorkAddressStreet, cfWorkAddressStreet, dtString, 2); 591 AddNew('ADR', ['WORK'], [], SWorkAddressCity, cfWorkAddressCity, dtString, 3); 592 AddNew('ADR', ['WORK'], [], SWorkAddressRegion, cfWorkAddressRegion, dtString, 4); 593 AddNew('ADR', ['WORK'], [], SWorkAddressPostalCode, cfWorkAddressPostalCode, dtString, 5); 594 AddNew('ADR', ['WORK'], [], SWorkAddressCountry, cfWorkAddressCountry, dtString, 6); 595 AddNew('X-TIMES_CONTACTED', [], [], STimesContacted, cfXTimesContacted, dtString); 596 AddNew('X-LAST_TIME_CONTACTED', [], [], SLastTimeContacted, cfXLastTimeContacted, dtString); 597 AddNew('PHOTO', [], [], SPhoto, cfPhoto, dtString); 598 AddNew('X-JABBER', [], [], SJabber, cfXJabber, dtString); 599 AddNew('BDAY', [], [], SDayOfBirth, cfDayOfBirth, dtString); 600 AddNew('ANNIVERSARY', [], [], SAnniversary, cfAnniversary, dtString); 601 AddNew('REV', [], [], SRevision, cfRevision, dtString); 602 AddNew('UID', [], [], SUniqueIdentifier, cfUid, dtString); 603 AddNew('URL', [], ['HOME', 'WORK'], SWebAddress, cfUrl, dtString); 604 AddNew('URL', ['HOME'], [], SWebAddressHome, cfUrlHome, dtString); 605 AddNew('URL', ['WORK'], [], SWebAddressWork, cfUrlWork, dtString); 549 606 end; 550 607 end;
Note:
See TracChangeset
for help on using the changeset viewer.
