Changeset 57 for trunk/Forms
- Timestamp:
- Dec 8, 2021, 8:56:27 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 3 edited
-
UFormContact.lfm (modified) (67 diffs)
-
UFormContact.lrj (modified) (1 diff)
-
UFormContact.pas (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r54 r57 1 1 object FormContact: TFormContact 2 2 Left = 604 3 Height = 8564 Top = 3705 Width = 9 613 Height = 742 4 Top = 484 5 Width = 991 6 6 Caption = 'Contact' 7 ClientHeight = 8568 ClientWidth = 9 617 ClientHeight = 742 8 ClientWidth = 991 9 9 DesignTimePPI = 144 10 10 OnClose = FormClose … … 15 15 object PageControlContact: TPageControl 16 16 Left = 8 17 Height = 78217 Height = 668 18 18 Top = 8 19 Width = 9 3920 ActivePage = TabSheet General19 Width = 969 20 ActivePage = TabSheetChat 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 22 ParentFont = False 23 TabIndex = 023 TabIndex = 3 24 24 TabOrder = 0 25 25 object TabSheetGeneral: TTabSheet 26 26 Caption = 'General' 27 ClientHeight = 74228 ClientWidth = 9 2927 ClientHeight = 628 28 ClientWidth = 959 29 29 OnHide = TabSheetGeneralHide 30 30 OnShow = TabSheetGeneralShow … … 299 299 object TabSheetHome: TTabSheet 300 300 Caption = 'Home' 301 ClientHeight = 742302 ClientWidth = 9 29301 ClientHeight = 628 302 ClientWidth = 959 303 303 OnHide = TabSheetHomeHide 304 304 OnShow = TabSheetHomeShow … … 306 306 object Label7: TLabel 307 307 Left = 16 308 Height = 2 5308 Height = 24 309 309 Top = 114 310 Width = 5 3310 Width = 58 311 311 Caption = 'E-mail:' 312 312 ParentColor = False … … 315 315 object EditHomeEmail: TEdit 316 316 Left = 173 317 Height = 33317 Height = 42 318 318 Top = 112 319 319 Width = 254 … … 323 323 object Label11: TLabel 324 324 Left = 448 325 Height = 2 5325 Height = 24 326 326 Top = 18 327 Width = 29327 Width = 34 328 328 Caption = 'Fax:' 329 329 ParentColor = False … … 332 332 object EditHomeFax: TEdit 333 333 Left = 605 334 Height = 33334 Height = 42 335 335 Top = 16 336 336 Width = 254 … … 340 340 object EditHomeMobile: TEdit 341 341 Left = 173 342 Height = 33342 Height = 42 343 343 Top = 60 344 344 Width = 254 … … 348 348 object EditHomePhone: TEdit 349 349 Left = 173 350 Height = 33350 Height = 42 351 351 Top = 16 352 352 Width = 254 … … 356 356 object Label14: TLabel 357 357 Left = 448 358 Height = 2 5358 Height = 24 359 359 Top = 68 360 Width = 48360 Width = 54 361 361 Caption = 'Pager:' 362 362 ParentColor = False … … 365 365 object EditHomePager: TEdit 366 366 Left = 605 367 Height = 33367 Height = 42 368 368 Top = 60 369 369 Width = 254 … … 373 373 object Label40: TLabel 374 374 Left = 16 375 Height = 2 5375 Height = 24 376 376 Top = 168 377 Width = 1 07377 Width = 114 378 378 Caption = 'Web address:' 379 379 ParentColor = False … … 382 382 object EditHomeWeb: TEdit 383 383 Left = 173 384 Height = 33384 Height = 42 385 385 Top = 160 386 386 Width = 683 … … 392 392 Height = 242 393 393 Top = 216 394 Width = 892394 Width = 922 395 395 Anchors = [akTop, akLeft, akRight] 396 396 Caption = 'Address' 397 397 ClientHeight = 215 398 ClientWidth = 890398 ClientWidth = 920 399 399 TabOrder = 6 400 400 object Label36: TLabel 401 401 Left = 8 402 Height = 2 5402 Height = 24 403 403 Top = 18 404 Width = 49404 Width = 54 405 405 Caption = 'Street:' 406 406 ParentColor = False … … 409 409 object Label37: TLabel 410 410 Left = 10 411 Height = 2 5411 Height = 24 412 412 Top = 66 413 Width = 1 26413 Width = 137 414 414 Caption = 'Extended street:' 415 415 ParentColor = False … … 418 418 object EditHomeAddressStreetExtended: TEdit 419 419 Left = 173 420 Height = 33420 Height = 42 421 421 Top = 56 422 422 Width = 254 … … 426 426 object EditHomeAddressStreet: TEdit 427 427 Left = 173 428 Height = 33428 Height = 42 429 429 Top = 8 430 430 Width = 254 … … 434 434 object Label38: TLabel 435 435 Left = 10 436 Height = 2 5436 Height = 24 437 437 Top = 112 438 Width = 59438 Width = 64 439 439 Caption = 'Region:' 440 440 ParentColor = False … … 443 443 object EditHomeAddressRegion: TEdit 444 444 Left = 173 445 Height = 33445 Height = 42 446 446 Top = 104 447 447 Width = 254 … … 451 451 object EditHomeAddressCountry: TEdit 452 452 Left = 173 453 Height = 33453 Height = 42 454 454 Top = 152 455 455 Width = 254 … … 459 459 object Label39: TLabel 460 460 Left = 10 461 Height = 2 5461 Height = 24 462 462 Top = 160 463 Width = 67463 Width = 71 464 464 Caption = 'Country:' 465 465 ParentColor = False … … 468 468 object Label41: TLabel 469 469 Left = 451 470 Height = 2 5470 Height = 24 471 471 Top = 150 472 Width = 95472 Width = 103 473 473 Caption = 'Postal code:' 474 474 ParentColor = False … … 477 477 object EditHomeAddressPostalCode: TEdit 478 478 Left = 588 479 Height = 33479 Height = 42 480 480 Top = 142 481 481 Width = 254 … … 485 485 object EditHomeAddressCity: TEdit 486 486 Left = 588 487 Height = 33487 Height = 42 488 488 Top = 56 489 489 Width = 254 … … 493 493 object Label42: TLabel 494 494 Left = 451 495 Height = 2 5495 Height = 24 496 496 Top = 64 497 Width = 3 4497 Width = 36 498 498 Caption = 'City:' 499 499 ParentColor = False … … 502 502 object Label43: TLabel 503 503 Left = 451 504 Height = 2 5504 Height = 24 505 505 Top = 16 506 Width = 1 22506 Width = 131 507 507 Caption = 'Post office box:' 508 508 ParentColor = False … … 511 511 object EditHomeAddressPostOfficeBox: TEdit 512 512 Left = 588 513 Height = 33513 Height = 42 514 514 Top = 8 515 515 Width = 254 … … 520 520 object Label12: TLabel 521 521 Left = 16 522 Height = 2 5522 Height = 24 523 523 Top = 64 524 Width = 59524 Width = 63 525 525 Caption = 'Mobile:' 526 526 ParentColor = False … … 529 529 object Label13: TLabel 530 530 Left = 16 531 Height = 2 5531 Height = 24 532 532 Top = 20 533 Width = 5 4533 Width = 59 534 534 Caption = 'Phone:' 535 535 ParentColor = False … … 539 539 object TabSheetWork: TTabSheet 540 540 Caption = 'Work' 541 ClientHeight = 742542 ClientWidth = 9 29541 ClientHeight = 628 542 ClientWidth = 959 543 543 OnHide = TabSheetWorkHide 544 544 OnShow = TabSheetWorkShow 545 545 object EditOrganization: TEdit 546 546 Left = 173 547 Height = 33547 Height = 42 548 548 Top = 64 549 549 Width = 254 … … 553 553 object LabelOrganization: TLabel 554 554 Left = 10 555 Height = 2 5555 Height = 24 556 556 Top = 70 557 Width = 1 06557 Width = 114 558 558 Caption = 'Organization:' 559 559 ParentColor = False … … 562 562 object LabelOrganization1: TLabel 563 563 Left = 451 564 Height = 2 5565 Top = 32566 Width = 99564 Height = 24 565 Top = 24 566 Width = 106 567 567 Caption = 'Department:' 568 568 ParentColor = False … … 571 571 object EditDepartment: TEdit 572 572 Left = 608 573 Height = 33573 Height = 42 574 574 Top = 20 575 575 Width = 254 … … 579 579 object Label18: TLabel 580 580 Left = 10 581 Height = 2 5581 Height = 24 582 582 Top = 20 583 Width = 36583 Width = 41 584 584 Caption = 'Title:' 585 585 ParentColor = False … … 588 588 object EditTitle: TEdit 589 589 Left = 173 590 Height = 33590 Height = 42 591 591 Top = 16 592 592 Width = 254 … … 596 596 object EditWorkWeb: TEdit 597 597 Left = 173 598 Height = 33598 Height = 42 599 599 Top = 256 600 600 Width = 683 … … 604 604 object Label32: TLabel 605 605 Left = 10 606 Height = 2 5606 Height = 24 607 607 Top = 264 608 Width = 1 07608 Width = 114 609 609 Caption = 'Web address:' 610 610 ParentColor = False … … 622 622 object Label31: TLabel 623 623 Left = 10 624 Height = 2 5624 Height = 24 625 625 Top = 160 626 Width = 67626 Width = 71 627 627 Caption = 'Country:' 628 628 ParentColor = False … … 631 631 object EditAddressWorkCountry: TEdit 632 632 Left = 173 633 Height = 33633 Height = 42 634 634 Top = 160 635 635 Width = 254 … … 639 639 object EditAddressWorkRegion: TEdit 640 640 Left = 173 641 Height = 33641 Height = 42 642 642 Top = 112 643 643 Width = 254 … … 647 647 object Label30: TLabel 648 648 Left = 10 649 Height = 2 5649 Height = 24 650 650 Top = 112 651 Width = 59651 Width = 64 652 652 Caption = 'Region:' 653 653 ParentColor = False … … 656 656 object Label35: TLabel 657 657 Left = 10 658 Height = 2 5658 Height = 24 659 659 Top = 66 660 Width = 1 26660 Width = 137 661 661 Caption = 'Extended street:' 662 662 ParentColor = False … … 665 665 object EditAddressWorkStreetExtended: TEdit 666 666 Left = 173 667 Height = 33667 Height = 42 668 668 Top = 64 669 669 Width = 254 … … 673 673 object Label28: TLabel 674 674 Left = 10 675 Height = 2 5675 Height = 24 676 676 Top = 18 677 Width = 49677 Width = 54 678 678 Caption = 'Street:' 679 679 ParentColor = False … … 682 682 object EditAddressWorkStreet: TEdit 683 683 Left = 173 684 Height = 33684 Height = 42 685 685 Top = 8 686 686 Width = 254 … … 690 690 object Label34: TLabel 691 691 Left = 451 692 Height = 2 5692 Height = 24 693 693 Top = 18 694 Width = 1 22694 Width = 131 695 695 Caption = 'Post office box:' 696 696 ParentColor = False … … 699 699 object EditAddressWorkPostOfficeBox: TEdit 700 700 Left = 608 701 Height = 33701 Height = 42 702 702 Top = 8 703 703 Width = 254 … … 707 707 object EditAddressWorkCity: TEdit 708 708 Left = 608 709 Height = 33709 Height = 42 710 710 Top = 56 711 711 Width = 254 … … 715 715 object Label29: TLabel 716 716 Left = 451 717 Height = 2 5717 Height = 24 718 718 Top = 64 719 Width = 3 4719 Width = 36 720 720 Caption = 'City:' 721 721 ParentColor = False … … 724 724 object EditAddressWorkPostalCode: TEdit 725 725 Left = 608 726 Height = 33726 Height = 42 727 727 Top = 142 728 728 Width = 254 … … 732 732 object Label33: TLabel 733 733 Left = 451 734 Height = 2 5734 Height = 24 735 735 Top = 150 736 Width = 95736 Width = 103 737 737 Caption = 'Postal code:' 738 738 ParentColor = False … … 742 742 object Label15: TLabel 743 743 Left = 10 744 Height = 2 5744 Height = 24 745 745 Top = 116 746 Width = 5 4746 Width = 59 747 747 Caption = 'Phone:' 748 748 ParentColor = False … … 751 751 object EditWorkPhone: TEdit 752 752 Left = 173 753 Height = 33753 Height = 42 754 754 Top = 112 755 755 Width = 254 … … 759 759 object Label16: TLabel 760 760 Left = 451 761 Height = 2 5761 Height = 24 762 762 Top = 112 763 Width = 29763 Width = 34 764 764 Caption = 'Fax:' 765 765 ParentColor = False … … 768 768 object EditWorkFax: TEdit 769 769 Left = 608 770 Height = 33770 Height = 42 771 771 Top = 112 772 772 Width = 254 … … 776 776 object EditWorkPager: TEdit 777 777 Left = 608 778 Height = 33778 Height = 42 779 779 Top = 156 780 780 Width = 254 … … 784 784 object Label17: TLabel 785 785 Left = 448 786 Height = 2 5786 Height = 24 787 787 Top = 160 788 Width = 48788 Width = 54 789 789 Caption = 'Pager:' 790 790 ParentColor = False … … 793 793 object EditWorkMobile: TEdit 794 794 Left = 173 795 Height = 33795 Height = 42 796 796 Top = 160 797 797 Width = 254 … … 801 801 object Label19: TLabel 802 802 Left = 10 803 Height = 2 5803 Height = 24 804 804 Top = 160 805 Width = 59805 Width = 63 806 806 Caption = 'Mobile:' 807 807 ParentColor = False … … 810 810 object Label8: TLabel 811 811 Left = 10 812 Height = 2 5812 Height = 24 813 813 Top = 210 814 Width = 5 3814 Width = 58 815 815 Caption = 'E-mail:' 816 816 ParentColor = False … … 819 819 object EditWorkEmail: TEdit 820 820 Left = 173 821 Height = 33821 Height = 42 822 822 Top = 210 823 Width = 254 824 ParentFont = False 825 TabOrder = 9 826 end 827 end 828 object TabSheetChat: TTabSheet 829 Caption = 'Chat' 830 ClientHeight = 628 831 ClientWidth = 959 832 OnHide = TabSheetChatHide 833 OnShow = TabSheetChatShow 834 object Label20: TLabel 835 Left = 10 836 Height = 24 837 Top = 20 838 Width = 59 839 Caption = 'Jabber:' 840 ParentColor = False 841 ParentFont = False 842 end 843 object EditJabber: TEdit 844 Left = 173 845 Height = 42 846 Top = 16 847 Width = 254 848 ParentFont = False 849 TabOrder = 0 850 end 851 object LabelOrganization2: TLabel 852 Left = 451 853 Height = 24 854 Top = 24 855 Width = 55 856 Caption = 'Skype:' 857 ParentColor = False 858 ParentFont = False 859 end 860 object EditSkype: TEdit 861 Left = 608 862 Height = 42 863 Top = 20 864 Width = 254 865 ParentFont = False 866 TabOrder = 1 867 end 868 object Label21: TLabel 869 Left = 10 870 Height = 24 871 Top = 68 872 Width = 45 873 Caption = 'MSN:' 874 ParentColor = False 875 ParentFont = False 876 end 877 object EditMsn: TEdit 878 Left = 173 879 Height = 42 880 Top = 64 881 Width = 254 882 ParentFont = False 883 TabOrder = 2 884 end 885 object LabelOrganization3: TLabel 886 Left = 451 887 Height = 24 888 Top = 72 889 Width = 36 890 Caption = 'ICQ:' 891 ParentColor = False 892 ParentFont = False 893 end 894 object EditIcq: TEdit 895 Left = 608 896 Height = 42 897 Top = 68 898 Width = 254 899 ParentFont = False 900 TabOrder = 3 901 end 902 object Label23: TLabel 903 Left = 10 904 Height = 24 905 Top = 116 906 Width = 33 907 Caption = 'IRC:' 908 ParentColor = False 909 ParentFont = False 910 end 911 object EditIrc: TEdit 912 Left = 173 913 Height = 42 914 Top = 112 915 Width = 254 916 ParentFont = False 917 TabOrder = 4 918 end 919 object LabelOrganization4: TLabel 920 Left = 451 921 Height = 24 922 Top = 120 923 Width = 39 924 Caption = 'AIM:' 925 ParentColor = False 926 ParentFont = False 927 end 928 object EditAim: TEdit 929 Left = 608 930 Height = 42 931 Top = 116 932 Width = 254 933 ParentFont = False 934 TabOrder = 5 935 end 936 object Label47: TLabel 937 Left = 10 938 Height = 24 939 Top = 164 940 Width = 105 941 Caption = 'Google Talk:' 942 ParentColor = False 943 ParentFont = False 944 end 945 object EditGoogleTalk: TEdit 946 Left = 173 947 Height = 42 948 Top = 160 949 Width = 254 950 ParentFont = False 951 TabOrder = 6 952 end 953 object LabelOrganization5: TLabel 954 Left = 451 955 Height = 24 956 Top = 168 957 Width = 62 958 Caption = 'Yahoo!:' 959 ParentColor = False 960 ParentFont = False 961 end 962 object EditYahoo: TEdit 963 Left = 608 964 Height = 42 965 Top = 164 966 Width = 254 967 ParentFont = False 968 TabOrder = 7 969 end 970 object Label48: TLabel 971 Left = 10 972 Height = 24 973 Top = 212 974 Width = 121 975 Caption = 'Windows Live:' 976 ParentColor = False 977 ParentFont = False 978 end 979 object EditWindowsLive: TEdit 980 Left = 173 981 Height = 42 982 Top = 208 983 Width = 254 984 ParentFont = False 985 TabOrder = 8 986 end 987 object LabelOrganization6: TLabel 988 Left = 451 989 Height = 24 990 Top = 216 991 Width = 33 992 Caption = 'QQ:' 993 ParentColor = False 994 ParentFont = False 995 end 996 object EditQq: TEdit 997 Left = 608 998 Height = 42 999 Top = 212 823 1000 Width = 254 824 1001 ParentFont = False … … 828 1005 object TabSheetOthers: TTabSheet 829 1006 Caption = 'Others' 830 ClientHeight = 742831 ClientWidth = 9 291007 ClientHeight = 628 1008 ClientWidth = 959 832 1009 OnHide = TabSheetOthersHide 833 1010 OnShow = TabSheetOthersShow 834 1011 object MemoNotes: TMemo 835 1012 Left = 16 836 Height = 3941013 Height = 280 837 1014 Top = 48 838 Width = 8951015 Width = 925 839 1016 Anchors = [akTop, akLeft, akRight, akBottom] 840 1017 ParentFont = False … … 845 1022 object Label6: TLabel 846 1023 Left = 16 847 Height = 2 51024 Height = 24 848 1025 Top = 16 849 Width = 5 11026 Width = 55 850 1027 Caption = 'Notes:' 851 1028 ParentColor = False … … 860 1037 end 861 1038 object ButtonCancel: TButton 862 Left = 8 341039 Left = 864 863 1040 Height = 37 864 Top = 8061041 Top = 692 865 1042 Width = 115 866 1043 Anchors = [akRight, akBottom] … … 871 1048 end 872 1049 object ButtonOk: TButton 873 Left = 6991050 Left = 729 874 1051 Height = 37 875 Top = 8061052 Top = 692 876 1053 Width = 119 877 1054 Anchors = [akRight, akBottom] … … 884 1061 Left = 8 885 1062 Height = 37 886 Top = 8001063 Top = 686 887 1064 Width = 119 888 1065 Anchors = [akLeft, akBottom] … … 896 1073 Left = 144 897 1074 Height = 37 898 Top = 8001075 Top = 686 899 1076 Width = 115 900 1077 Anchors = [akLeft, akBottom] -
trunk/Forms/UFormContact.lrj
r52 r57 50 50 {"hash":72942298,"name":"tformcontact.label19.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 51 51 {"hash":138641338,"name":"tformcontact.label8.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 52 {"hash":302724,"name":"tformcontact.tabsheetchat.caption","sourcebytes":[67,104,97,116],"value":"Chat"}, 53 {"hash":7900170,"name":"tformcontact.label20.caption","sourcebytes":[74,97,98,98,101,114,58],"value":"Jabber:"}, 54 {"hash":94570122,"name":"tformcontact.labelorganization2.caption","sourcebytes":[83,107,121,112,101,58],"value":"Skype:"}, 55 {"hash":337946,"name":"tformcontact.label21.caption","sourcebytes":[77,83,78,58],"value":"MSN:"}, 56 {"hash":317514,"name":"tformcontact.labelorganization3.caption","sourcebytes":[73,67,81,58],"value":"ICQ:"}, 57 {"hash":321130,"name":"tformcontact.label23.caption","sourcebytes":[73,82,67,58],"value":"IRC:"}, 58 {"hash":286218,"name":"tformcontact.labelorganization4.caption","sourcebytes":[65,73,77,58],"value":"AIM:"}, 59 {"hash":62667978,"name":"tformcontact.label47.caption","sourcebytes":[71,111,111,103,108,101,32,84,97,108,107,58],"value":"Google Talk:"}, 60 {"hash":260006170,"name":"tformcontact.labelorganization5.caption","sourcebytes":[89,97,104,111,111,33,58],"value":"Yahoo!:"}, 61 {"hash":190298682,"name":"tformcontact.label48.caption","sourcebytes":[87,105,110,100,111,119,115,32,76,105,118,101,58],"value":"Windows Live:"}, 62 {"hash":22090,"name":"tformcontact.labelorganization6.caption","sourcebytes":[81,81,58],"value":"QQ:"}, 52 63 {"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"}, 53 64 {"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"}, -
trunk/Forms/UFormContact.pas
r54 r57 22 22 ButtonOk: TButton; 23 23 ButtonPrevious: TButton; 24 EditAim: TEdit; 25 EditWindowsLive: TEdit; 26 EditYahoo: TEdit; 27 EditGoogleTalk: TEdit; 28 EditMsn: TEdit; 29 EditIrc: TEdit; 30 EditSkype: TEdit; 24 31 EditHomeAddressCity: TEdit; 25 32 EditHomeAddressCountry: TEdit; … … 37 44 EditAddressWorkStreetExtended: TEdit; 38 45 EditAniversary: TEdit; 46 EditJabber: TEdit; 47 EditIcq: TEdit; 39 48 EditWorkEmail: TEdit; 40 49 EditPager: TEdit; … … 66 75 EditMobile: TEdit; 67 76 EditWorkPhone: TEdit; 77 EditQq: TEdit; 68 78 GroupBox1: TGroupBox; 69 79 GroupBox2: TGroupBox; … … 81 91 Label19: TLabel; 82 92 Label2: TLabel; 93 Label20: TLabel; 94 Label21: TLabel; 83 95 Label22: TLabel; 96 Label23: TLabel; 84 97 Label24: TLabel; 85 98 Label25: TLabel; … … 107 120 Label45: TLabel; 108 121 Label46: TLabel; 122 Label47: TLabel; 123 Label48: TLabel; 109 124 Label5: TLabel; 110 125 Label6: TLabel; … … 114 129 LabelOrganization: TLabel; 115 130 LabelOrganization1: TLabel; 131 LabelOrganization2: TLabel; 132 LabelOrganization3: TLabel; 133 LabelOrganization4: TLabel; 134 LabelOrganization5: TLabel; 135 LabelOrganization6: TLabel; 116 136 MemoNotes: TMemo; 117 137 MenuItem1: TMenuItem; … … 122 142 PopupMenuPhoto: TPopupMenu; 123 143 SavePictureDialog1: TSavePictureDialog; 144 TabSheetChat: TTabSheet; 124 145 TabSheetOthers: TTabSheet; 125 146 TabSheetHome: TTabSheet; … … 137 158 procedure FormShow(Sender: TObject); 138 159 procedure TabSheetAllShow(Sender: TObject); 160 procedure TabSheetChatHide(Sender: TObject); 161 procedure TabSheetChatShow(Sender: TObject); 139 162 procedure TabSheetGeneralHide(Sender: TObject); 140 163 procedure TabSheetGeneralShow(Sender: TObject); … … 198 221 FormProperties.ReloadList; 199 222 FormProperties.UpdateInterface; 223 end; 224 225 procedure TFormContact.TabSheetChatHide(Sender: TObject); 226 begin 227 Contact.Fields[cfJabber] := EditJabber.Text; 228 Contact.Fields[cfIcq] := EditIcq.Text; 229 Contact.Fields[cfMsn] := EditMsn.Text; 230 Contact.Fields[cfSkype] := EditSkype.Text; 231 Contact.Fields[cfQq] := EditQq.Text; 232 Contact.Fields[cfGoogleTalk] := EditGoogleTalk.Text; 233 Contact.Fields[cfWindowsLive] := EditWindowsLive.Text; 234 Contact.Fields[cfYahoo] := EditYahoo.Text; 235 Contact.Fields[cfAim] := EditAim.Text; 236 Contact.Fields[cfIrc] := EditIrc.Text 237 end; 238 239 procedure TFormContact.TabSheetChatShow(Sender: TObject); 240 begin 241 EditJabber.Text := Contact.Fields[cfJabber]; 242 EditIcq.Text := Contact.Fields[cfIcq]; 243 EditMsn.Text := Contact.Fields[cfMsn]; 244 EditSkype.Text := Contact.Fields[cfSkype]; 245 EditQq.Text := Contact.Fields[cfQq]; 246 EditGoogleTalk.Text := Contact.Fields[cfGoogleTalk]; 247 EditWindowsLive.Text := Contact.Fields[cfWindowsLive]; 248 EditYahoo.Text := Contact.Fields[cfYahoo]; 249 EditAim.Text := Contact.Fields[cfAim]; 250 EditIrc.Text := Contact.Fields[cfIrc]; 200 251 end; 201 252
Note:
See TracChangeset
for help on using the changeset viewer.
