- Timestamp:
- Aug 26, 2022, 8:09:41 PM (2 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r133 r139 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = '2.2. 0.4'14 LCLVersion = '2.2.2.0' 15 15 object ButtonCancel: TButton 16 16 Left = 865 … … 64 64 Top = 8 65 65 Width = 970 66 ActivePage = TabSheet General66 ActivePage = TabSheetOthers 67 67 Anchors = [akTop, akLeft, akRight, akBottom] 68 68 ParentFont = False 69 TabIndex = 069 TabIndex = 5 70 70 TabOrder = 4 71 71 object TabSheetGeneral: TTabSheet … … 82 82 Width = 63 83 83 Caption = 'Mobile:' 84 ParentColor = False 84 85 ParentFont = False 85 86 end 86 87 object EditMobile: TEdit 87 88 Left = 144 88 Height = 4 289 Height = 43 89 90 Top = 240 90 91 Width = 254 … … 94 95 object EditPhone: TEdit 95 96 Left = 144 96 Height = 4 297 Height = 43 97 98 Top = 286 98 99 Width = 254 … … 106 107 Width = 59 107 108 Caption = 'Phone:' 109 ParentColor = False 108 110 ParentFont = False 109 111 end 110 112 object EditEmail: TEdit 111 113 Left = 144 112 Height = 4 2114 Height = 43 113 115 Top = 328 114 116 Width = 207 … … 122 124 Width = 58 123 125 Caption = 'E-mail:' 126 ParentColor = False 124 127 ParentFont = False 125 128 end 126 129 object EditBirthday: TEdit 127 130 Left = 144 128 Height = 4 2131 Height = 43 129 132 Top = 424 130 133 Width = 207 … … 138 141 Width = 76 139 142 Caption = 'Birthday:' 143 ParentColor = False 140 144 ParentFont = False 141 145 end … … 157 161 Width = 88 158 162 Caption = 'Full name:' 163 ParentColor = False 159 164 ParentFont = False 160 165 end 161 166 object EditFullName: TEdit 162 167 Left = 360 163 Height = 4 2168 Height = 43 164 169 Top = 24 165 170 Width = 340 … … 174 179 Width = 91 175 180 Caption = 'Nickname:' 181 ParentColor = False 176 182 ParentFont = False 177 183 end 178 184 object EditNickName: TEdit 179 185 Left = 361 180 Height = 4 2186 Height = 43 181 187 Top = 77 182 188 Width = 215 … … 190 196 Width = 105 191 197 Caption = 'Anniversary:' 198 ParentColor = False 192 199 ParentFont = False 193 200 end 194 201 object EditAniversary: TEdit 195 202 Left = 575 196 Height = 4 2203 Height = 43 197 204 Top = 424 198 205 Width = 208 … … 206 213 Width = 34 207 214 Caption = 'Fax:' 215 ParentColor = False 208 216 ParentFont = False 209 217 end 210 218 object EditFax: TEdit 211 219 Left = 575 212 Height = 4 2220 Height = 43 213 221 Top = 240 214 222 Width = 254 … … 218 226 object EditPager: TEdit 219 227 Left = 575 220 Height = 4 2228 Height = 43 221 229 Top = 286 222 230 Width = 254 … … 230 238 Width = 54 231 239 Caption = 'Pager:' 240 ParentColor = False 232 241 ParentFont = False 233 242 end … … 238 247 Width = 114 239 248 Caption = 'Web address:' 249 ParentColor = False 240 250 ParentFont = False 241 251 end 242 252 object EditWeb: TEdit 243 253 Left = 144 244 Height = 4 2254 Height = 43 245 255 Top = 376 246 256 Width = 639 … … 254 264 Width = 67 255 265 Caption = 'Gender:' 266 ParentColor = False 256 267 ParentFont = False 257 268 end 258 269 object EditGender: TEdit 259 270 Left = 575 260 Height = 4 2271 Height = 43 261 272 Top = 328 262 273 Width = 254 … … 270 281 Width = 95 271 282 Caption = 'Categories:' 283 ParentColor = False 272 284 ParentFont = False 273 285 end 274 286 object EditCategories: TEdit 275 287 Left = 144 276 Height = 4 2288 Height = 43 277 289 Top = 472 278 290 Width = 254 … … 351 363 Width = 58 352 364 Caption = 'E-mail:' 365 ParentColor = False 353 366 ParentFont = False 354 367 end 355 368 object EditHomeEmail: TEdit 356 369 Left = 173 357 Height = 4 2370 Height = 43 358 371 Top = 112 359 372 Width = 207 … … 367 380 Width = 34 368 381 Caption = 'Fax:' 382 ParentColor = False 369 383 ParentFont = False 370 384 end 371 385 object EditHomeFax: TEdit 372 386 Left = 605 373 Height = 4 2387 Height = 43 374 388 Top = 16 375 389 Width = 254 … … 379 393 object EditHomeMobile: TEdit 380 394 Left = 173 381 Height = 4 2395 Height = 43 382 396 Top = 60 383 397 Width = 254 … … 387 401 object EditHomePhone: TEdit 388 402 Left = 173 389 Height = 4 2403 Height = 43 390 404 Top = 16 391 405 Width = 254 … … 399 413 Width = 54 400 414 Caption = 'Pager:' 415 ParentColor = False 401 416 ParentFont = False 402 417 end 403 418 object EditHomePager: TEdit 404 419 Left = 605 405 Height = 4 2420 Height = 43 406 421 Top = 60 407 422 Width = 254 … … 415 430 Width = 114 416 431 Caption = 'Web address:' 432 ParentColor = False 417 433 ParentFont = False 418 434 end 419 435 object EditHomeWeb: TEdit 420 436 Left = 173 421 Height = 4 2437 Height = 43 422 438 Top = 161 423 439 Width = 641 … … 441 457 Width = 54 442 458 Caption = 'Street:' 459 ParentColor = False 443 460 ParentFont = False 444 461 end … … 449 466 Width = 137 450 467 Caption = 'Extended street:' 468 ParentColor = False 451 469 ParentFont = False 452 470 end 453 471 object EditHomeAddressStreetExtended: TEdit 454 472 Left = 173 455 Height = 4 2473 Height = 43 456 474 Top = 56 457 475 Width = 254 … … 461 479 object EditHomeAddressStreet: TEdit 462 480 Left = 173 463 Height = 4 2481 Height = 43 464 482 Top = 8 465 483 Width = 254 … … 473 491 Width = 64 474 492 Caption = 'Region:' 493 ParentColor = False 475 494 ParentFont = False 476 495 end 477 496 object EditHomeAddressRegion: TEdit 478 497 Left = 173 479 Height = 4 2498 Height = 43 480 499 Top = 104 481 500 Width = 254 … … 485 504 object EditHomeAddressCountry: TEdit 486 505 Left = 173 487 Height = 4 2506 Height = 43 488 507 Top = 152 489 508 Width = 254 … … 497 516 Width = 71 498 517 Caption = 'Country:' 518 ParentColor = False 499 519 ParentFont = False 500 520 end … … 505 525 Width = 103 506 526 Caption = 'Postal code:' 527 ParentColor = False 507 528 ParentFont = False 508 529 end 509 530 object EditHomeAddressPostalCode: TEdit 510 531 Left = 588 511 Height = 4 2532 Height = 43 512 533 Top = 152 513 534 Width = 254 … … 517 538 object EditHomeAddressCity: TEdit 518 539 Left = 588 519 Height = 4 2540 Height = 43 520 541 Top = 56 521 542 Width = 254 … … 529 550 Width = 36 530 551 Caption = 'City:' 552 ParentColor = False 531 553 ParentFont = False 532 554 end … … 537 559 Width = 131 538 560 Caption = 'Post office box:' 561 ParentColor = False 539 562 ParentFont = False 540 563 end 541 564 object EditHomeAddressPostOfficeBox: TEdit 542 565 Left = 588 543 Height = 4 2566 Height = 43 544 567 Top = 8 545 568 Width = 254 … … 563 586 Width = 63 564 587 Caption = 'Mobile:' 588 ParentColor = False 565 589 ParentFont = False 566 590 end … … 571 595 Width = 59 572 596 Caption = 'Phone:' 597 ParentColor = False 573 598 ParentFont = False 574 599 end … … 606 631 object EditOrganization: TEdit 607 632 Left = 173 608 Height = 4 2633 Height = 43 609 634 Top = 64 610 635 Width = 254 … … 618 643 Width = 114 619 644 Caption = 'Organization:' 645 ParentColor = False 620 646 ParentFont = False 621 647 end … … 626 652 Width = 106 627 653 Caption = 'Department:' 654 ParentColor = False 628 655 ParentFont = False 629 656 end 630 657 object EditDepartment: TEdit 631 658 Left = 608 632 Height = 4 2659 Height = 43 633 660 Top = 20 634 661 Width = 254 … … 642 669 Width = 41 643 670 Caption = 'Title:' 671 ParentColor = False 644 672 ParentFont = False 645 673 end 646 674 object EditTitle: TEdit 647 675 Left = 173 648 Height = 4 2676 Height = 43 649 677 Top = 16 650 678 Width = 254 … … 654 682 object EditWorkWeb: TEdit 655 683 Left = 173 656 Height = 4 2684 Height = 43 657 685 Top = 256 658 686 Width = 641 … … 666 694 Width = 114 667 695 Caption = 'Web address:' 696 ParentColor = False 668 697 ParentFont = False 669 698 end … … 683 712 Width = 71 684 713 Caption = 'Country:' 714 ParentColor = False 685 715 ParentFont = False 686 716 end 687 717 object EditWorkAddressCountry: TEdit 688 718 Left = 173 689 Height = 4 2719 Height = 43 690 720 Top = 152 691 721 Width = 254 … … 695 725 object EditWorkAddressRegion: TEdit 696 726 Left = 173 697 Height = 4 2727 Height = 43 698 728 Top = 104 699 729 Width = 254 … … 707 737 Width = 64 708 738 Caption = 'Region:' 739 ParentColor = False 709 740 ParentFont = False 710 741 end … … 715 746 Width = 137 716 747 Caption = 'Extended street:' 748 ParentColor = False 717 749 ParentFont = False 718 750 end 719 751 object EditWorkAddressStreetExtended: TEdit 720 752 Left = 173 721 Height = 4 2753 Height = 43 722 754 Top = 56 723 755 Width = 254 … … 731 763 Width = 54 732 764 Caption = 'Street:' 765 ParentColor = False 733 766 ParentFont = False 734 767 end 735 768 object EditWorkAddressStreet: TEdit 736 769 Left = 173 737 Height = 4 2770 Height = 43 738 771 Top = 8 739 772 Width = 254 … … 747 780 Width = 131 748 781 Caption = 'Post office box:' 782 ParentColor = False 749 783 ParentFont = False 750 784 end 751 785 object EditWorkAddressPostOfficeBox: TEdit 752 786 Left = 608 753 Height = 4 2787 Height = 43 754 788 Top = 8 755 789 Width = 254 … … 759 793 object EditWorkAddressCity: TEdit 760 794 Left = 608 761 Height = 4 2795 Height = 43 762 796 Top = 56 763 797 Width = 254 … … 771 805 Width = 36 772 806 Caption = 'City:' 807 ParentColor = False 773 808 ParentFont = False 774 809 end 775 810 object EditWorkAddressPostalCode: TEdit 776 811 Left = 608 777 Height = 4 2812 Height = 43 778 813 Top = 142 779 814 Width = 254 … … 787 822 Width = 103 788 823 Caption = 'Postal code:' 824 ParentColor = False 789 825 ParentFont = False 790 826 end … … 805 841 Width = 59 806 842 Caption = 'Phone:' 843 ParentColor = False 807 844 ParentFont = False 808 845 end 809 846 object EditWorkPhone: TEdit 810 847 Left = 173 811 Height = 4 2848 Height = 43 812 849 Top = 112 813 850 Width = 254 … … 821 858 Width = 34 822 859 Caption = 'Fax:' 860 ParentColor = False 823 861 ParentFont = False 824 862 end 825 863 object EditWorkFax: TEdit 826 864 Left = 608 827 Height = 4 2865 Height = 43 828 866 Top = 112 829 867 Width = 254 … … 833 871 object EditWorkPager: TEdit 834 872 Left = 608 835 Height = 4 2873 Height = 43 836 874 Top = 156 837 875 Width = 254 … … 845 883 Width = 54 846 884 Caption = 'Pager:' 885 ParentColor = False 847 886 ParentFont = False 848 887 end 849 888 object EditWorkMobile: TEdit 850 889 Left = 173 851 Height = 4 2890 Height = 43 852 891 Top = 160 853 892 Width = 254 … … 861 900 Width = 63 862 901 Caption = 'Mobile:' 902 ParentColor = False 863 903 ParentFont = False 864 904 end … … 869 909 Width = 58 870 910 Caption = 'E-mail:' 911 ParentColor = False 871 912 ParentFont = False 872 913 end 873 914 object EditWorkEmail: TEdit 874 915 Left = 173 875 Height = 4 2916 Height = 43 876 917 Top = 210 877 918 Width = 209 … … 916 957 Width = 59 917 958 Caption = 'Jabber:' 959 ParentColor = False 918 960 ParentFont = False 919 961 end 920 962 object EditJabber: TEdit 921 963 Left = 173 922 Height = 4 2964 Height = 43 923 965 Top = 16 924 966 Width = 254 … … 932 974 Width = 55 933 975 Caption = 'Skype:' 976 ParentColor = False 934 977 ParentFont = False 935 978 end 936 979 object EditSkype: TEdit 937 980 Left = 173 938 Height = 4 2981 Height = 43 939 982 Top = 256 940 983 Width = 254 … … 948 991 Width = 45 949 992 Caption = 'MSN:' 993 ParentColor = False 950 994 ParentFont = False 951 995 end 952 996 object EditMsn: TEdit 953 997 Left = 173 954 Height = 4 2998 Height = 43 955 999 Top = 64 956 1000 Width = 254 … … 964 1008 Width = 36 965 1009 Caption = 'ICQ:' 1010 ParentColor = False 966 1011 ParentFont = False 967 1012 end 968 1013 object EditIcq: TEdit 969 1014 Left = 608 970 Height = 4 21015 Height = 43 971 1016 Top = 68 972 1017 Width = 254 … … 980 1025 Width = 33 981 1026 Caption = 'IRC:' 1027 ParentColor = False 982 1028 ParentFont = False 983 1029 end 984 1030 object EditIrc: TEdit 985 1031 Left = 173 986 Height = 4 21032 Height = 43 987 1033 Top = 112 988 1034 Width = 254 … … 996 1042 Width = 39 997 1043 Caption = 'AIM:' 1044 ParentColor = False 998 1045 ParentFont = False 999 1046 end 1000 1047 object EditAim: TEdit 1001 1048 Left = 608 1002 Height = 4 21049 Height = 43 1003 1050 Top = 116 1004 1051 Width = 254 … … 1012 1059 Width = 105 1013 1060 Caption = 'Google Talk:' 1061 ParentColor = False 1014 1062 ParentFont = False 1015 1063 end 1016 1064 object EditGoogleTalk: TEdit 1017 1065 Left = 173 1018 Height = 4 21066 Height = 43 1019 1067 Top = 160 1020 1068 Width = 254 … … 1028 1076 Width = 62 1029 1077 Caption = 'Yahoo!:' 1078 ParentColor = False 1030 1079 ParentFont = False 1031 1080 end 1032 1081 object EditYahoo: TEdit 1033 1082 Left = 608 1034 Height = 4 21083 Height = 43 1035 1084 Top = 164 1036 1085 Width = 254 … … 1044 1093 Width = 121 1045 1094 Caption = 'Windows Live:' 1095 ParentColor = False 1046 1096 ParentFont = False 1047 1097 end 1048 1098 object EditWindowsLive: TEdit 1049 1099 Left = 173 1050 Height = 4 21100 Height = 43 1051 1101 Top = 208 1052 1102 Width = 254 … … 1060 1110 Width = 33 1061 1111 Caption = 'QQ:' 1112 ParentColor = False 1062 1113 ParentFont = False 1063 1114 end 1064 1115 object EditQq: TEdit 1065 1116 Left = 608 1066 Height = 4 21117 Height = 43 1067 1118 Top = 212 1068 1119 Width = 254 … … 1076 1127 Width = 59 1077 1128 Caption = 'Matrix:' 1129 ParentColor = False 1078 1130 ParentFont = False 1079 1131 end 1080 1132 object EditMatrix: TEdit 1081 1133 Left = 608 1082 Height = 4 21134 Height = 43 1083 1135 Top = 20 1084 1136 Width = 254 … … 1092 1144 Width = 99 1093 1145 Caption = 'GroupWise:' 1146 ParentColor = False 1094 1147 ParentFont = False 1095 1148 end 1096 1149 object EditGroupWise: TEdit 1097 1150 Left = 173 1098 Height = 4 21151 Height = 43 1099 1152 Top = 304 1100 1153 Width = 254 … … 1108 1161 Width = 95 1109 1162 Caption = 'GaduGadu:' 1163 ParentColor = False 1110 1164 ParentFont = False 1111 1165 end 1112 1166 object EditGaduGadu: TEdit 1113 1167 Left = 608 1114 Height = 4 21168 Height = 43 1115 1169 Top = 308 1116 1170 Width = 254 … … 1131 1185 Width = 79 1132 1186 Caption = 'Myspace:' 1187 ParentColor = False 1133 1188 ParentFont = False 1134 1189 end 1135 1190 object EditMySpace: TEdit 1136 1191 Left = 608 1137 Height = 4 21192 Height = 43 1138 1193 Top = 160 1139 1194 Width = 254 … … 1143 1198 object EditTwitter: TEdit 1144 1199 Left = 173 1145 Height = 4 21200 Height = 43 1146 1201 Top = 64 1147 1202 Width = 254 … … 1155 1210 Width = 63 1156 1211 Caption = 'Twitter:' 1212 ParentColor = False 1157 1213 ParentFont = False 1158 1214 end … … 1163 1219 Width = 92 1164 1220 Caption = 'Instagram:' 1221 ParentColor = False 1165 1222 ParentFont = False 1166 1223 end … … 1171 1228 Width = 78 1172 1229 Caption = 'LinkedIn:' 1230 ParentColor = False 1173 1231 ParentFont = False 1174 1232 end … … 1179 1237 Width = 83 1180 1238 Caption = 'Snapchat:' 1239 ParentColor = False 1181 1240 ParentFont = False 1182 1241 end 1183 1242 object EditSnapchat: TEdit 1184 1243 Left = 173 1185 Height = 4 21244 Height = 43 1186 1245 Top = 208 1187 1246 Width = 254 … … 1191 1250 object EditLinkedIn: TEdit 1192 1251 Left = 173 1193 Height = 4 21252 Height = 43 1194 1253 Top = 160 1195 1254 Width = 254 … … 1199 1258 object EditInstagram: TEdit 1200 1259 Left = 173 1201 Height = 4 21260 Height = 43 1202 1261 Top = 112 1203 1262 Width = 254 … … 1211 1270 Width = 84 1212 1271 Caption = 'PeerTube:' 1272 ParentColor = False 1213 1273 ParentFont = False 1214 1274 end … … 1219 1279 Width = 77 1220 1280 Caption = 'YouTube:' 1281 ParentColor = False 1221 1282 ParentFont = False 1222 1283 end 1223 1284 object EditMastodon: TEdit 1224 1285 Left = 171 1225 Height = 4 21286 Height = 43 1226 1287 Top = 16 1227 1288 Width = 254 … … 1235 1296 Width = 90 1236 1297 Caption = 'Mastodon:' 1298 ParentColor = False 1237 1299 ParentFont = False 1238 1300 end … … 1243 1305 Width = 59 1244 1306 Caption = 'Reddit:' 1307 ParentColor = False 1245 1308 ParentFont = False 1246 1309 end 1247 1310 object EditReddit: TEdit 1248 1311 Left = 608 1249 Height = 4 21312 Height = 43 1250 1313 Top = 208 1251 1314 Width = 254 … … 1255 1318 object EditPeerTube: TEdit 1256 1319 Left = 608 1257 Height = 4 21320 Height = 43 1258 1321 Top = 16 1259 1322 Width = 254 … … 1263 1326 object EditYouTube: TEdit 1264 1327 Left = 608 1265 Height = 4 21328 Height = 43 1266 1329 Top = 112 1267 1330 Width = 254 … … 1271 1334 object EditFacebook: TEdit 1272 1335 Left = 608 1273 Height = 4 21336 Height = 43 1274 1337 Top = 64 1275 1338 Width = 254 … … 1283 1346 Width = 86 1284 1347 Caption = 'Facebook:' 1348 ParentColor = False 1285 1349 ParentFont = False 1286 1350 end … … 1292 1356 OnHide = TabSheetOthersHide 1293 1357 OnShow = TabSheetOthersShow 1294 object MemoNotes: TMemo1295 Left = 161296 Height = 2761297 Top = 481298 Width = 6441299 A nchors = [akTop, akLeft, akRight, akBottom]1300 ParentFont = False1301 ParentShowHint = False1302 ScrollBars = ssAutoBoth1358 object PanelNotes: TPanel 1359 Left = 0 1360 Height = 624 1361 Top = 0 1362 Width = 584 1363 Align = alClient 1364 BevelOuter = bvNone 1365 ClientHeight = 624 1366 ClientWidth = 584 1303 1367 TabOrder = 0 1304 end 1305 object Label6: TLabel 1306 Left = 16 1307 Height = 26 1308 Top = 16 1309 Width = 55 1310 Caption = 'Notes:' 1311 ParentFont = False 1312 end 1313 object BarcodeQR1: TBarcodeQR 1314 Left = 676 1315 Height = 275 1316 Top = 48 1317 Width = 269 1318 ParentColor = False 1319 Text = 'TBarcodeQR' 1320 end 1321 object Label1: TLabel 1322 Left = 677 1323 Height = 26 1324 Top = 15 1325 Width = 76 1326 Anchors = [akTop, akRight] 1327 Caption = 'QR code:' 1368 object MemoNotes: TMemo 1369 Left = 8 1370 Height = 561 1371 Top = 47 1372 Width = 564 1373 Anchors = [akTop, akLeft, akRight, akBottom] 1374 ParentFont = False 1375 ParentShowHint = False 1376 ScrollBars = ssAutoBoth 1377 TabOrder = 0 1378 end 1379 object Label6: TLabel 1380 Left = 8 1381 Height = 26 1382 Top = 16 1383 Width = 55 1384 Caption = 'Notes:' 1385 ParentColor = False 1386 ParentFont = False 1387 end 1388 end 1389 object Splitter1: TSplitter 1390 Left = 584 1391 Height = 624 1392 Top = 0 1393 Width = 8 1394 Align = alRight 1395 ResizeAnchor = akRight 1396 end 1397 object PanelQrCode: TPanel 1398 Left = 592 1399 Height = 624 1400 Top = 0 1401 Width = 368 1402 Align = alRight 1403 BevelOuter = bvNone 1404 ClientHeight = 624 1405 ClientWidth = 368 1406 TabOrder = 2 1407 OnResize = PanelQrCodeResize 1408 object Label1: TLabel 1409 Left = 8 1410 Height = 26 1411 Top = 16 1412 Width = 76 1413 Caption = 'QR code:' 1414 ParentColor = False 1415 end 1416 object BarcodeQR1: TBarcodeQR 1417 Left = 8 1418 Height = 313 1419 Top = 47 1420 Width = 336 1421 ParentColor = False 1422 Text = 'TBarcodeQR' 1423 end 1328 1424 end 1329 1425 end -
trunk/Forms/UFormContact.lrj
r123 r139 89 89 {"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"}, 90 90 {"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"}, 91 {"hash":74080234,"name":"tformcontact.label1.caption","sourcebytes":[81,82,32,99,111,100,101,58],"value":"QR code:"}, 91 92 {"hash":144712418,"name":"tformcontact.barcodeqr1.text","sourcebytes":[84,66,97,114,99,111,100,101,81,82],"value":"TBarcodeQR"}, 92 {"hash":74080234,"name":"tformcontact.label1.caption","sourcebytes":[81,82,32,99,111,100,101,58],"value":"QR code:"},93 93 {"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"}, 94 94 {"hash":8431845,"name":"tformcontact.aphotoload.caption","sourcebytes":[76,111,97,100,32,102,114,111,109,32,102,105,108,101],"value":"Load from file"}, -
trunk/Forms/UFormContact.pas
r133 r139 171 171 OpenPictureDialog1: TOpenPictureDialog; 172 172 PageControlContact: TPageControl; 173 PanelNotes: TPanel; 174 PanelQrCode: TPanel; 173 175 PopupMenuQrCode: TPopupMenu; 174 176 PopupMenuPhoto: TPopupMenu; … … 182 184 SpeedButtonWorkEmail: TSpeedButton; 183 185 SpeedButtonWorkWeb: TSpeedButton; 186 Splitter1: TSplitter; 184 187 TabSheetAll: TTabSheet; 185 188 TabSheetChat: TTabSheet; … … 206 209 procedure ImagePhotoClick(Sender: TObject); 207 210 procedure MenuItemSaveQrToFileClick(Sender: TObject); 211 procedure PanelQrCodeResize(Sender: TObject); 208 212 procedure SpeedButtonHomeWebClick(Sender: TObject); 209 213 procedure SpeedButtonAniversaryClick(Sender: TObject); … … 378 382 end; 379 383 384 procedure TFormContact.PanelQrCodeResize(Sender: TObject); 385 begin 386 BarcodeQR1.SetBounds(BarcodeQR1.Left, BarcodeQR1.Top, 387 PanelQrCode.Width - BarcodeQR1.Left * 2, 388 PanelQrCode.Width - BarcodeQR1.Left * 2); 389 end; 390 380 391 procedure TFormContact.SpeedButtonHomeWebClick(Sender: TObject); 381 392 begin … … 563 574 564 575 procedure TFormContact.TabSheetOthersShow(Sender: TObject); 576 var 577 ContactWithoutImages: TContact; 565 578 begin 566 579 MemoNotes.Lines.Text := Contact.Fields[cfNote]; 567 580 BarcodeQR1.Text := Contact.AsString; 581 if BarcodeQR1.ErrorString <> '' then begin 582 ContactWithoutImages := TContact.Create; 583 try 584 ContactWithoutImages.Assign(Contact); 585 ContactWithoutImages.ParentVCard := Contact.ParentVCard; 586 while ContactWithoutImages.HasField(cfPhoto) do 587 ContactWithoutImages.Fields[cfPhoto] := ''; 588 while ContactWithoutImages.HasField(cfLogo) do 589 ContactWithoutImages.Fields[cfLogo] := ''; 590 BarcodeQR1.Text := ContactWithoutImages.AsString; 591 if BarcodeQR1.ErrorString <> '' then begin 592 BarcodeQR1.Text := ''; 593 BarcodeQR1.Visible := False; 594 end else BarcodeQR1.Visible := True; 595 finally 596 ContactWithoutImages.Free; 597 end; 598 end else BarcodeQR1.Visible := True; 568 599 end; 569 600 … … 819 850 820 851 // Set Barcode unpublished properties 821 BarcodeQR1.Anchors := [akTop, ak Right];852 BarcodeQR1.Anchors := [akTop, akLeft]; 822 853 BarcodeQR1.PopupMenu := PopupMenuQrCode; 823 854 end; -
trunk/Packages/VCard/UContactImage.pas
r137 r139 360 360 SourceImage: TContactImage; 361 361 begin 362 inherited;363 362 if Source is TContactImage then begin 364 363 SourceImage := Source as TContactImage;
Note:
See TracChangeset
for help on using the changeset viewer.