- Timestamp:
- Feb 3, 2022, 10:30:03 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r89 r93 1 1 object FormContact: TFormContact 2 2 Left = 604 3 Height = 7 423 Height = 773 4 4 Top = 484 5 Width = 9915 Width = 1032 6 6 Caption = 'Contact' 7 ClientHeight = 7 428 ClientWidth = 9919 DesignTimePPI = 1 447 ClientHeight = 773 8 ClientWidth = 1032 9 DesignTimePPI = 150 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = '2. 0.12.0'14 LCLVersion = '2.2.0.4' 15 15 object PageControlContact: TPageControl 16 16 Left = 8 17 Height = 6 6817 Height = 696 18 18 Top = 8 19 Width = 96919 Width = 1009 20 20 ActivePage = TabSheetAll 21 21 Anchors = [akTop, akLeft, akRight, akBottom] … … 25 25 object TabSheetGeneral: TTabSheet 26 26 Caption = 'General' 27 ClientHeight = 6 2828 ClientWidth = 9 5927 ClientHeight = 655 28 ClientWidth = 999 29 29 OnHide = TabSheetGeneralHide 30 30 OnShow = TabSheetGeneralShow 31 31 ParentFont = False 32 32 object Label1: TLabel 33 Left = 240 34 Height = 24 35 Top = 80 33 Left = 250 34 Height = 27 35 Top = 83 36 Width = 101 37 Caption = 'First name:' 38 ParentFont = False 39 end 40 object EditFirstName: TEdit 41 Left = 375 42 Height = 43 43 Top = 75 44 Width = 161 45 ParentFont = False 46 TabOrder = 1 47 end 48 object Label2: TLabel 49 Left = 17 50 Height = 27 51 Top = 260 52 Width = 66 53 Caption = 'Mobile:' 54 ParentFont = False 55 end 56 object EditMobile: TEdit 57 Left = 150 58 Height = 43 59 Top = 250 60 Width = 265 61 ParentFont = False 62 TabOrder = 7 63 end 64 object EditPhone: TEdit 65 Left = 150 66 Height = 43 67 Top = 298 68 Width = 265 69 ParentFont = False 70 TabOrder = 9 71 end 72 object Label3: TLabel 73 Left = 17 74 Height = 27 75 Top = 302 76 Width = 62 77 Caption = 'Phone:' 78 ParentFont = False 79 end 80 object EditEmail: TEdit 81 Left = 150 82 Height = 43 83 Top = 342 84 Width = 265 85 ParentFont = False 86 TabOrder = 11 87 end 88 object Label4: TLabel 89 Left = 17 90 Height = 27 91 Top = 350 92 Width = 60 93 Caption = 'E-mail:' 94 ParentFont = False 95 end 96 object EditLastName: TEdit 97 Left = 699 98 Height = 43 99 Top = 75 100 Width = 161 101 ParentFont = False 102 TabOrder = 2 103 end 104 object Label5: TLabel 105 Left = 558 106 Height = 27 107 Top = 83 36 108 Width = 94 37 Caption = 'First name:'38 ParentColor = False39 ParentFont = False40 end41 object EditFirstName: TEdit42 Left = 36043 Height = 4244 Top = 7245 Width = 15546 ParentFont = False47 TabOrder = 148 end49 object Label2: TLabel50 Left = 1651 Height = 2452 Top = 25053 Width = 6354 Caption = 'Mobile:'55 ParentColor = False56 ParentFont = False57 end58 object EditMobile: TEdit59 Left = 14460 Height = 4261 Top = 24062 Width = 25463 ParentFont = False64 TabOrder = 765 end66 object EditPhone: TEdit67 Left = 14468 Height = 4269 Top = 28670 Width = 25471 ParentFont = False72 TabOrder = 973 end74 object Label3: TLabel75 Left = 1676 Height = 2477 Top = 29078 Width = 5979 Caption = 'Phone:'80 ParentColor = False81 ParentFont = False82 end83 object EditEmail: TEdit84 Left = 14485 Height = 4286 Top = 32887 Width = 25488 ParentFont = False89 TabOrder = 1190 end91 object Label4: TLabel92 Left = 1693 Height = 2494 Top = 33695 Width = 5896 Caption = 'E-mail:'97 ParentColor = False98 ParentFont = False99 end100 object EditLastName: TEdit101 Left = 671102 Height = 42103 Top = 72104 Width = 155105 ParentFont = False106 TabOrder = 2107 end108 object Label5: TLabel109 Left = 536110 Height = 24111 Top = 80112 Width = 87113 109 Caption = 'Last name' 114 ParentColor = False115 110 ParentFont = False 116 111 end 117 112 object EditBirthday: TEdit 118 Left = 1 44119 Height = 4 2120 Top = 4 24121 Width = 2 54113 Left = 150 114 Height = 43 115 Top = 442 116 Width = 265 122 117 ParentFont = False 123 118 TabOrder = 14 124 119 end 125 120 object Label22: TLabel 126 Left = 1 6127 Height = 2 4128 Top = 4 32129 Width = 76121 Left = 17 122 Height = 27 123 Top = 450 124 Width = 82 130 125 Caption = 'Birthday:' 131 ParentColor = False132 126 ParentFont = False 133 127 end 134 128 object ImagePhoto: TImage 135 Left = 1 6136 Height = 21 0137 Top = 1 6138 Width = 2 07129 Left = 17 130 Height = 219 131 Top = 17 132 Width = 216 139 133 Center = True 140 134 OnClick = APhotoLoadExecute … … 144 138 end 145 139 object Label24: TLabel 146 Left = 2 40147 Height = 2 4148 Top = 3 2149 Width = 88140 Left = 250 141 Height = 27 142 Top = 33 143 Width = 94 150 144 Caption = 'Full name:' 151 ParentColor = False152 145 ParentFont = False 153 146 end 154 147 object EditFullName: TEdit 155 Left = 3 60156 Height = 4 2157 Top = 2 4158 Width = 4 67148 Left = 375 149 Height = 43 150 Top = 25 151 Width = 486 159 152 ParentFont = False 160 153 TabOrder = 0 161 154 end 162 155 object Label25: TLabel 163 Left = 5 36164 Height = 2 4165 Top = 1 28166 Width = 1 16156 Left = 558 157 Height = 27 158 Top = 133 159 Width = 124 167 160 Caption = 'Middle name:' 168 ParentColor = False169 161 ParentFont = False 170 162 end 171 163 object EditMiddleName: TEdit 172 Left = 6 71173 Height = 4 2174 Top = 12 0175 Width = 1 55164 Left = 699 165 Height = 43 166 Top = 125 167 Width = 161 176 168 ParentFont = False 177 169 TabOrder = 4 178 170 end 179 171 object Label26: TLabel 180 Left = 2 40181 Height = 2 4182 Top = 1 76183 Width = 10 1172 Left = 250 173 Height = 27 174 Top = 183 175 Width = 106 184 176 Caption = 'Title before:' 185 ParentColor = False186 177 ParentFont = False 187 178 end 188 179 object EditTitleBefore: TEdit 189 Left = 3 60190 Height = 4 2191 Top = 1 68192 Width = 1 55180 Left = 375 181 Height = 43 182 Top = 175 183 Width = 161 193 184 ParentFont = False 194 185 TabOrder = 5 195 186 end 196 187 object Label27: TLabel 197 Left = 5 36198 Height = 2 4199 Top = 1 76200 Width = 85188 Left = 558 189 Height = 27 190 Top = 183 191 Width = 91 201 192 Caption = 'Title after:' 202 ParentColor = False203 193 ParentFont = False 204 194 end 205 195 object EditTitleAfter: TEdit 206 Left = 6 71207 Height = 4 2208 Top = 1 68209 Width = 1 55196 Left = 699 197 Height = 43 198 Top = 175 199 Width = 161 210 200 ParentFont = False 211 201 TabOrder = 6 212 202 end 213 203 object Label44: TLabel 214 Left = 2 40215 Height = 2 4216 Top = 1 28217 Width = 9 1204 Left = 250 205 Height = 27 206 Top = 133 207 Width = 95 218 208 Caption = 'Nickname:' 219 ParentColor = False220 209 ParentFont = False 221 210 end 222 211 object EditNickName: TEdit 223 Left = 3 60224 Height = 4 2225 Top = 12 0226 Width = 1 55212 Left = 375 213 Height = 43 214 Top = 125 215 Width = 161 227 216 ParentFont = False 228 217 TabOrder = 3 229 218 end 230 219 object Label45: TLabel 231 Left = 4 32232 Height = 2 4233 Top = 4 32234 Width = 1 05220 Left = 450 221 Height = 27 222 Top = 450 223 Width = 113 235 224 Caption = 'Anniversary:' 236 ParentColor = False237 225 ParentFont = False 238 226 end 239 227 object EditAniversary: TEdit 240 Left = 5 75241 Height = 4 2242 Top = 4 24243 Width = 2 54228 Left = 599 229 Height = 43 230 Top = 442 231 Width = 265 244 232 ParentFont = False 245 233 TabOrder = 15 246 234 end 247 235 object Label9: TLabel 248 Left = 4 32249 Height = 2 4250 Top = 2 48251 Width = 3 4236 Left = 450 237 Height = 27 238 Top = 258 239 Width = 36 252 240 Caption = 'Fax:' 253 ParentColor = False254 241 ParentFont = False 255 242 end 256 243 object EditFax: TEdit 257 Left = 5 75258 Height = 4 2259 Top = 2 40260 Width = 2 54244 Left = 599 245 Height = 43 246 Top = 250 247 Width = 265 261 248 ParentFont = False 262 249 TabOrder = 8 263 250 end 264 251 object EditPager: TEdit 265 Left = 5 75266 Height = 4 2267 Top = 2 86268 Width = 2 54252 Left = 599 253 Height = 43 254 Top = 298 255 Width = 265 269 256 ParentFont = False 270 257 TabOrder = 10 271 258 end 272 259 object Label10: TLabel 273 Left = 4 32274 Height = 2 4275 Top = 290276 Width = 5 4260 Left = 450 261 Height = 27 262 Top = 302 263 Width = 58 277 264 Caption = 'Pager:' 278 ParentColor = False279 265 ParentFont = False 280 266 end 281 267 object Label46: TLabel 282 Left = 1 6283 Height = 2 4284 Top = 384285 Width = 1 14268 Left = 17 269 Height = 27 270 Top = 400 271 Width = 121 286 272 Caption = 'Web address:' 287 ParentColor = False288 273 ParentFont = False 289 274 end 290 275 object EditWeb: TEdit 291 Left = 1 44292 Height = 4 2293 Top = 3 76294 Width = 683276 Left = 150 277 Height = 43 278 Top = 392 279 Width = 711 295 280 ParentFont = False 296 281 TabOrder = 13 297 282 end 298 283 object Label49: TLabel 299 Left = 4 32300 Height = 2 4301 Top = 3 32302 Width = 67284 Left = 450 285 Height = 27 286 Top = 346 287 Width = 73 303 288 Caption = 'Gender:' 304 ParentColor = False305 289 ParentFont = False 306 290 end 307 291 object EditGender: TEdit 308 Left = 5 75309 Height = 4 2310 Top = 3 28311 Width = 2 54292 Left = 599 293 Height = 43 294 Top = 342 295 Width = 265 312 296 ParentFont = False 313 297 TabOrder = 12 314 298 end 315 299 object Label56: TLabel 316 Left = 1 6317 Height = 2 4318 Top = 480319 Width = 95300 Left = 17 301 Height = 27 302 Top = 500 303 Width = 102 320 304 Caption = 'Categories:' 321 ParentColor = False322 305 ParentFont = False 323 306 end 324 307 object EditCategories: TEdit 325 Left = 1 44326 Height = 4 2327 Top = 4 72328 Width = 2 54308 Left = 150 309 Height = 43 310 Top = 492 311 Width = 265 329 312 ParentFont = False 330 313 TabOrder = 16 … … 333 316 object TabSheetHome: TTabSheet 334 317 Caption = 'Home' 335 ClientHeight = 6 28336 ClientWidth = 9 59318 ClientHeight = 655 319 ClientWidth = 999 337 320 OnHide = TabSheetHomeHide 338 321 OnShow = TabSheetHomeShow 339 322 ParentFont = False 340 323 object Label7: TLabel 341 Left = 16 342 Height = 24 343 Top = 114 324 Left = 17 325 Height = 27 326 Top = 119 327 Width = 60 328 Caption = 'E-mail:' 329 ParentFont = False 330 end 331 object EditHomeEmail: TEdit 332 Left = 180 333 Height = 43 334 Top = 117 335 Width = 265 336 ParentFont = False 337 TabOrder = 4 338 end 339 object Label11: TLabel 340 Left = 467 341 Height = 27 342 Top = 19 343 Width = 36 344 Caption = 'Fax:' 345 ParentFont = False 346 end 347 object EditHomeFax: TEdit 348 Left = 630 349 Height = 43 350 Top = 17 351 Width = 265 352 ParentFont = False 353 TabOrder = 1 354 end 355 object EditHomeMobile: TEdit 356 Left = 180 357 Height = 43 358 Top = 63 359 Width = 265 360 ParentFont = False 361 TabOrder = 2 362 end 363 object EditHomePhone: TEdit 364 Left = 180 365 Height = 43 366 Top = 17 367 Width = 265 368 ParentFont = False 369 TabOrder = 0 370 end 371 object Label14: TLabel 372 Left = 467 373 Height = 27 374 Top = 71 344 375 Width = 58 345 Caption = 'E-mail:'346 ParentColor = False347 ParentFont = False348 end349 object EditHomeEmail: TEdit350 Left = 173351 Height = 42352 Top = 112353 Width = 254354 ParentFont = False355 TabOrder = 4356 end357 object Label11: TLabel358 Left = 448359 Height = 24360 Top = 18361 Width = 34362 Caption = 'Fax:'363 ParentColor = False364 ParentFont = False365 end366 object EditHomeFax: TEdit367 Left = 605368 Height = 42369 Top = 16370 Width = 254371 ParentFont = False372 TabOrder = 1373 end374 object EditHomeMobile: TEdit375 Left = 173376 Height = 42377 Top = 60378 Width = 254379 ParentFont = False380 TabOrder = 2381 end382 object EditHomePhone: TEdit383 Left = 173384 Height = 42385 Top = 16386 Width = 254387 ParentFont = False388 TabOrder = 0389 end390 object Label14: TLabel391 Left = 448392 Height = 24393 Top = 68394 Width = 54395 376 Caption = 'Pager:' 396 ParentColor = False397 377 ParentFont = False 398 378 end 399 379 object EditHomePager: TEdit 400 Left = 6 05401 Height = 4 2402 Top = 6 0403 Width = 2 54380 Left = 630 381 Height = 43 382 Top = 63 383 Width = 265 404 384 ParentFont = False 405 385 TabOrder = 3 406 386 end 407 387 object Label40: TLabel 408 Left = 1 6409 Height = 2 4410 Top = 1 68411 Width = 1 14388 Left = 17 389 Height = 27 390 Top = 175 391 Width = 121 412 392 Caption = 'Web address:' 413 ParentColor = False414 393 ParentFont = False 415 394 end 416 395 object EditHomeWeb: TEdit 417 Left = 1 73418 Height = 4 2419 Top = 16 0420 Width = 683396 Left = 180 397 Height = 43 398 Top = 167 399 Width = 711 421 400 ParentFont = False 422 401 TabOrder = 5 … … 424 403 object GroupBox1: TGroupBox 425 404 Left = 10 426 Height = 2 42427 Top = 2 16428 Width = 9 22405 Height = 252 406 Top = 225 407 Width = 961 429 408 Anchors = [akTop, akLeft, akRight] 430 409 Caption = 'Address' 431 ClientHeight = 2 15432 ClientWidth = 9 20410 ClientHeight = 250 411 ClientWidth = 959 433 412 TabOrder = 6 434 413 object Label36: TLabel 435 414 Left = 8 436 Height = 2 4437 Top = 1 8438 Width = 5 4415 Height = 27 416 Top = 19 417 Width = 58 439 418 Caption = 'Street:' 440 ParentColor = False441 419 ParentFont = False 442 420 end 443 421 object Label37: TLabel 444 422 Left = 10 445 Height = 2 4446 Top = 6 6447 Width = 1 37423 Height = 27 424 Top = 69 425 Width = 147 448 426 Caption = 'Extended street:' 449 ParentColor = False450 427 ParentFont = False 451 428 end 452 429 object EditHomeAddressStreetExtended: TEdit 453 Left = 1 73454 Height = 4 2455 Top = 5 6456 Width = 2 54430 Left = 180 431 Height = 43 432 Top = 58 433 Width = 265 457 434 ParentFont = False 458 435 TabOrder = 2 459 436 end 460 437 object EditHomeAddressStreet: TEdit 461 Left = 1 73462 Height = 4 2438 Left = 180 439 Height = 43 463 440 Top = 8 464 Width = 2 54441 Width = 265 465 442 ParentFont = False 466 443 TabOrder = 0 … … 468 445 object Label38: TLabel 469 446 Left = 10 470 Height = 2 4471 Top = 11 2472 Width = 6 4447 Height = 27 448 Top = 117 449 Width = 68 473 450 Caption = 'Region:' 474 ParentColor = False475 451 ParentFont = False 476 452 end 477 453 object EditHomeAddressRegion: TEdit 478 Left = 1 73479 Height = 4 2480 Top = 10 4481 Width = 2 54454 Left = 180 455 Height = 43 456 Top = 108 457 Width = 265 482 458 ParentFont = False 483 459 TabOrder = 4 484 460 end 485 461 object EditHomeAddressCountry: TEdit 486 Left = 1 73487 Height = 4 2488 Top = 15 2489 Width = 2 54462 Left = 180 463 Height = 43 464 Top = 158 465 Width = 265 490 466 ParentFont = False 491 467 TabOrder = 5 … … 493 469 object Label39: TLabel 494 470 Left = 10 495 Height = 2 4496 Top = 16 0497 Width = 7 1471 Height = 27 472 Top = 167 473 Width = 77 498 474 Caption = 'Country:' 499 ParentColor = False500 475 ParentFont = False 501 476 end 502 477 object Label41: TLabel 503 Left = 4 51504 Height = 2 4505 Top = 16 0506 Width = 10 3478 Left = 470 479 Height = 27 480 Top = 167 481 Width = 107 507 482 Caption = 'Postal code:' 508 ParentColor = False509 483 ParentFont = False 510 484 end 511 485 object EditHomeAddressPostalCode: TEdit 512 Left = 588513 Height = 4 2514 Top = 15 2515 Width = 2 54486 Left = 612 487 Height = 43 488 Top = 158 489 Width = 265 516 490 ParentFont = False 517 491 TabOrder = 6 518 492 end 519 493 object EditHomeAddressCity: TEdit 520 Left = 588521 Height = 4 2522 Top = 5 6523 Width = 2 54494 Left = 612 495 Height = 43 496 Top = 58 497 Width = 265 524 498 ParentFont = False 525 499 TabOrder = 3 526 500 end 527 501 object Label42: TLabel 528 Left = 4 51529 Height = 2 4530 Top = 6 4531 Width = 3 6502 Left = 470 503 Height = 27 504 Top = 67 505 Width = 39 532 506 Caption = 'City:' 533 ParentColor = False534 507 ParentFont = False 535 508 end 536 509 object Label43: TLabel 537 Left = 4 51538 Height = 2 4539 Top = 1 6540 Width = 13 1510 Left = 470 511 Height = 27 512 Top = 17 513 Width = 135 541 514 Caption = 'Post office box:' 542 ParentColor = False543 515 ParentFont = False 544 516 end 545 517 object EditHomeAddressPostOfficeBox: TEdit 546 Left = 588547 Height = 4 2518 Left = 612 519 Height = 43 548 520 Top = 8 549 Width = 2 54521 Width = 265 550 522 ParentFont = False 551 523 TabOrder = 1 … … 553 525 end 554 526 object Label12: TLabel 555 Left = 1 6556 Height = 2 4557 Top = 6 4558 Width = 6 3527 Left = 17 528 Height = 27 529 Top = 67 530 Width = 66 559 531 Caption = 'Mobile:' 560 ParentColor = False561 532 ParentFont = False 562 533 end 563 534 object Label13: TLabel 564 Left = 1 6565 Height = 2 4566 Top = 2 0567 Width = 59535 Left = 17 536 Height = 27 537 Top = 21 538 Width = 62 568 539 Caption = 'Phone:' 569 ParentColor = False570 540 ParentFont = False 571 541 end … … 573 543 object TabSheetWork: TTabSheet 574 544 Caption = 'Work' 575 ClientHeight = 6 28576 ClientWidth = 9 59545 ClientHeight = 655 546 ClientWidth = 999 577 547 OnHide = TabSheetWorkHide 578 548 OnShow = TabSheetWorkShow 579 549 object EditOrganization: TEdit 580 Left = 1 73581 Height = 4 2582 Top = 6 4583 Width = 2 54550 Left = 180 551 Height = 43 552 Top = 67 553 Width = 265 584 554 ParentFont = False 585 555 TabOrder = 2 … … 587 557 object LabelOrganization: TLabel 588 558 Left = 10 589 Height = 2 4590 Top = 7 0591 Width = 1 14559 Height = 27 560 Top = 73 561 Width = 123 592 562 Caption = 'Organization:' 593 ParentColor = False594 563 ParentFont = False 595 564 end 596 565 object LabelOrganization1: TLabel 597 Left = 4 51598 Height = 2 4599 Top = 2 4600 Width = 1 06566 Left = 470 567 Height = 27 568 Top = 25 569 Width = 116 601 570 Caption = 'Department:' 602 ParentColor = False603 571 ParentFont = False 604 572 end 605 573 object EditDepartment: TEdit 606 Left = 6 08607 Height = 4 2608 Top = 2 0609 Width = 2 54574 Left = 633 575 Height = 43 576 Top = 21 577 Width = 265 610 578 ParentFont = False 611 579 TabOrder = 1 … … 613 581 object Label18: TLabel 614 582 Left = 10 615 Height = 2 4616 Top = 2 0617 Width = 4 1583 Height = 27 584 Top = 21 585 Width = 43 618 586 Caption = 'Title:' 619 ParentColor = False620 587 ParentFont = False 621 588 end 622 589 object EditTitle: TEdit 623 Left = 1 73624 Height = 4 2625 Top = 1 6626 Width = 2 54590 Left = 180 591 Height = 43 592 Top = 17 593 Width = 265 627 594 ParentFont = False 628 595 TabOrder = 0 629 596 end 630 597 object EditWorkWeb: TEdit 631 Left = 1 73632 Height = 4 2633 Top = 2 56634 Width = 683598 Left = 180 599 Height = 43 600 Top = 267 601 Width = 711 635 602 ParentFont = False 636 603 TabOrder = 8 … … 638 605 object Label32: TLabel 639 606 Left = 10 640 Height = 2 4641 Top = 2 64642 Width = 1 14607 Height = 27 608 Top = 275 609 Width = 121 643 610 Caption = 'Web address:' 644 ParentColor = False645 611 ParentFont = False 646 612 end 647 613 object GroupBox2: TGroupBox 648 614 Left = 8 649 Height = 2 47650 Top = 3 12651 Width = 9 11615 Height = 257 616 Top = 325 617 Width = 949 652 618 Caption = 'Address' 653 ClientHeight = 2 20654 ClientWidth = 9 09619 ClientHeight = 255 620 ClientWidth = 947 655 621 TabOrder = 9 656 622 object Label31: TLabel 657 623 Left = 10 658 Height = 2 4659 Top = 16 0660 Width = 7 1624 Height = 27 625 Top = 167 626 Width = 77 661 627 Caption = 'Country:' 662 ParentColor = False663 628 ParentFont = False 664 629 end 665 630 object EditAddressWorkCountry: TEdit 666 Left = 1 73667 Height = 4 2668 Top = 15 2669 Width = 2 54631 Left = 180 632 Height = 43 633 Top = 158 634 Width = 265 670 635 ParentFont = False 671 636 TabOrder = 5 672 637 end 673 638 object EditAddressWorkRegion: TEdit 674 Left = 1 73675 Height = 4 2676 Top = 10 4677 Width = 2 54639 Left = 180 640 Height = 43 641 Top = 108 642 Width = 265 678 643 ParentFont = False 679 644 TabOrder = 4 … … 681 646 object Label30: TLabel 682 647 Left = 10 683 Height = 2 4684 Top = 11 2685 Width = 6 4648 Height = 27 649 Top = 117 650 Width = 68 686 651 Caption = 'Region:' 687 ParentColor = False688 652 ParentFont = False 689 653 end 690 654 object Label35: TLabel 691 655 Left = 10 692 Height = 2 4693 Top = 6 4694 Width = 1 37656 Height = 27 657 Top = 67 658 Width = 147 695 659 Caption = 'Extended street:' 696 ParentColor = False697 660 ParentFont = False 698 661 end 699 662 object EditAddressWorkStreetExtended: TEdit 700 Left = 1 73701 Height = 4 2702 Top = 5 6703 Width = 2 54663 Left = 180 664 Height = 43 665 Top = 58 666 Width = 265 704 667 ParentFont = False 705 668 TabOrder = 2 … … 707 670 object Label28: TLabel 708 671 Left = 10 709 Height = 2 4710 Top = 1 8711 Width = 5 4672 Height = 27 673 Top = 19 674 Width = 58 712 675 Caption = 'Street:' 713 ParentColor = False714 676 ParentFont = False 715 677 end 716 678 object EditAddressWorkStreet: TEdit 717 Left = 1 73718 Height = 4 2679 Left = 180 680 Height = 43 719 681 Top = 8 720 Width = 2 54682 Width = 265 721 683 ParentFont = False 722 684 TabOrder = 0 723 685 end 724 686 object Label34: TLabel 725 Left = 4 51726 Height = 2 4727 Top = 1 8728 Width = 13 1687 Left = 470 688 Height = 27 689 Top = 19 690 Width = 135 729 691 Caption = 'Post office box:' 730 ParentColor = False731 692 ParentFont = False 732 693 end 733 694 object EditAddressWorkPostOfficeBox: TEdit 734 Left = 6 08735 Height = 4 2695 Left = 633 696 Height = 43 736 697 Top = 8 737 Width = 2 54698 Width = 265 738 699 ParentFont = False 739 700 TabOrder = 1 740 701 end 741 702 object EditAddressWorkCity: TEdit 742 Left = 6 08743 Height = 4 2744 Top = 5 6745 Width = 2 54703 Left = 633 704 Height = 43 705 Top = 58 706 Width = 265 746 707 ParentFont = False 747 708 TabOrder = 3 748 709 end 749 710 object Label29: TLabel 750 Left = 4 51751 Height = 2 4752 Top = 6 4753 Width = 3 6711 Left = 470 712 Height = 27 713 Top = 67 714 Width = 39 754 715 Caption = 'City:' 755 ParentColor = False756 716 ParentFont = False 757 717 end 758 718 object EditAddressWorkPostalCode: TEdit 759 Left = 6 08760 Height = 4 2761 Top = 14 2762 Width = 2 54719 Left = 633 720 Height = 43 721 Top = 148 722 Width = 265 763 723 ParentFont = False 764 724 TabOrder = 6 765 725 end 766 726 object Label33: TLabel 767 Left = 4 51768 Height = 2 4769 Top = 15 0770 Width = 10 3727 Left = 470 728 Height = 27 729 Top = 156 730 Width = 107 771 731 Caption = 'Postal code:' 772 ParentColor = False773 732 ParentFont = False 774 733 end … … 776 735 object Label15: TLabel 777 736 Left = 10 778 Height = 2 4779 Top = 1 16780 Width = 59737 Height = 27 738 Top = 121 739 Width = 62 781 740 Caption = 'Phone:' 782 ParentColor = False783 741 ParentFont = False 784 742 end 785 743 object EditWorkPhone: TEdit 786 Left = 1 73787 Height = 4 2788 Top = 11 2789 Width = 2 54744 Left = 180 745 Height = 43 746 Top = 117 747 Width = 265 790 748 ParentFont = False 791 749 TabOrder = 3 792 750 end 793 751 object Label16: TLabel 794 Left = 4 51795 Height = 2 4796 Top = 11 2797 Width = 3 4752 Left = 470 753 Height = 27 754 Top = 117 755 Width = 36 798 756 Caption = 'Fax:' 799 ParentColor = False800 757 ParentFont = False 801 758 end 802 759 object EditWorkFax: TEdit 803 Left = 6 08804 Height = 4 2805 Top = 11 2806 Width = 2 54760 Left = 633 761 Height = 43 762 Top = 117 763 Width = 265 807 764 ParentFont = False 808 765 TabOrder = 4 809 766 end 810 767 object EditWorkPager: TEdit 811 Left = 6 08812 Height = 4 2813 Top = 1 56814 Width = 2 54768 Left = 633 769 Height = 43 770 Top = 162 771 Width = 265 815 772 ParentFont = False 816 773 TabOrder = 6 817 774 end 818 775 object Label17: TLabel 819 Left = 4 48820 Height = 2 4821 Top = 16 0822 Width = 5 4776 Left = 467 777 Height = 27 778 Top = 167 779 Width = 58 823 780 Caption = 'Pager:' 824 ParentColor = False825 781 ParentFont = False 826 782 end 827 783 object EditWorkMobile: TEdit 828 Left = 1 73829 Height = 4 2830 Top = 16 0831 Width = 2 54784 Left = 180 785 Height = 43 786 Top = 167 787 Width = 265 832 788 ParentFont = False 833 789 TabOrder = 5 … … 835 791 object Label19: TLabel 836 792 Left = 10 837 Height = 2 4838 Top = 16 0839 Width = 6 3793 Height = 27 794 Top = 167 795 Width = 66 840 796 Caption = 'Mobile:' 841 ParentColor = False842 797 ParentFont = False 843 798 end 844 799 object Label8: TLabel 845 800 Left = 10 846 Height = 2 4847 Top = 21 0848 Width = 58801 Height = 27 802 Top = 219 803 Width = 60 849 804 Caption = 'E-mail:' 850 ParentColor = False851 805 ParentFont = False 852 806 end 853 807 object EditWorkEmail: TEdit 854 Left = 1 73855 Height = 4 2856 Top = 21 0857 Width = 2 54808 Left = 180 809 Height = 43 810 Top = 219 811 Width = 265 858 812 ParentFont = False 859 813 TabOrder = 7 … … 862 816 object TabSheetChat: TTabSheet 863 817 Caption = 'Chat' 864 ClientHeight = 6 28865 ClientWidth = 9 59818 ClientHeight = 655 819 ClientWidth = 999 866 820 OnHide = TabSheetChatHide 867 821 OnShow = TabSheetChatShow 868 822 object Label20: TLabel 869 823 Left = 10 870 Height = 2 4871 Top = 2 4872 Width = 59824 Height = 27 825 Top = 25 826 Width = 64 873 827 Caption = 'Jabber:' 874 ParentColor = False875 828 ParentFont = False 876 829 end 877 830 object EditJabber: TEdit 878 Left = 1 73879 Height = 4 2880 Top = 1 6881 Width = 2 54831 Left = 180 832 Height = 43 833 Top = 17 834 Width = 265 882 835 ParentFont = False 883 836 TabOrder = 0 … … 885 838 object LabelOrganization2: TLabel 886 839 Left = 10 887 Height = 2 4888 Top = 2 64889 Width = 5 5840 Height = 27 841 Top = 275 842 Width = 58 890 843 Caption = 'Skype:' 891 ParentColor = False892 844 ParentFont = False 893 845 end 894 846 object EditSkype: TEdit 895 Left = 1 73896 Height = 4 2897 Top = 2 56898 Width = 2 54847 Left = 180 848 Height = 43 849 Top = 267 850 Width = 265 899 851 ParentFont = False 900 852 TabOrder = 10 … … 902 854 object Label21: TLabel 903 855 Left = 10 904 Height = 2 4905 Top = 7 2906 Width = 4 5856 Height = 27 857 Top = 75 858 Width = 46 907 859 Caption = 'MSN:' 908 ParentColor = False909 860 ParentFont = False 910 861 end 911 862 object EditMsn: TEdit 912 Left = 1 73913 Height = 4 2914 Top = 6 4915 Width = 2 54863 Left = 180 864 Height = 43 865 Top = 67 866 Width = 265 916 867 ParentFont = False 917 868 TabOrder = 2 918 869 end 919 870 object LabelOrganization3: TLabel 920 Left = 4 51921 Height = 2 4922 Top = 7 2923 Width = 3 6871 Left = 470 872 Height = 27 873 Top = 75 874 Width = 37 924 875 Caption = 'ICQ:' 925 ParentColor = False926 876 ParentFont = False 927 877 end 928 878 object EditIcq: TEdit 929 Left = 6 08930 Height = 4 2931 Top = 68932 Width = 2 54879 Left = 633 880 Height = 43 881 Top = 71 882 Width = 265 933 883 ParentFont = False 934 884 TabOrder = 3 … … 936 886 object Label23: TLabel 937 887 Left = 10 938 Height = 2 4939 Top = 12 0940 Width = 3 3888 Height = 27 889 Top = 125 890 Width = 35 941 891 Caption = 'IRC:' 942 ParentColor = False943 892 ParentFont = False 944 893 end 945 894 object EditIrc: TEdit 946 Left = 1 73947 Height = 4 2948 Top = 11 2949 Width = 2 54895 Left = 180 896 Height = 43 897 Top = 117 898 Width = 265 950 899 ParentFont = False 951 900 TabOrder = 4 952 901 end 953 902 object LabelOrganization4: TLabel 954 Left = 4 51955 Height = 2 4956 Top = 12 0957 Width = 39903 Left = 470 904 Height = 27 905 Top = 125 906 Width = 40 958 907 Caption = 'AIM:' 959 ParentColor = False960 908 ParentFont = False 961 909 end 962 910 object EditAim: TEdit 963 Left = 6 08964 Height = 4 2965 Top = 1 16966 Width = 2 54911 Left = 633 912 Height = 43 913 Top = 121 914 Width = 265 967 915 ParentFont = False 968 916 TabOrder = 5 … … 970 918 object Label47: TLabel 971 919 Left = 10 972 Height = 2 4973 Top = 1 68974 Width = 10 5920 Height = 27 921 Top = 175 922 Width = 109 975 923 Caption = 'Google Talk:' 976 ParentColor = False977 924 ParentFont = False 978 925 end 979 926 object EditGoogleTalk: TEdit 980 Left = 1 73981 Height = 4 2982 Top = 16 0983 Width = 2 54927 Left = 180 928 Height = 43 929 Top = 167 930 Width = 265 984 931 ParentFont = False 985 932 TabOrder = 6 986 933 end 987 934 object LabelOrganization5: TLabel 988 Left = 4 51989 Height = 2 4990 Top = 1 68991 Width = 6 2935 Left = 470 936 Height = 27 937 Top = 175 938 Width = 65 992 939 Caption = 'Yahoo!:' 993 ParentColor = False994 940 ParentFont = False 995 941 end 996 942 object EditYahoo: TEdit 997 Left = 6 08998 Height = 4 2999 Top = 1 641000 Width = 2 54943 Left = 633 944 Height = 43 945 Top = 171 946 Width = 265 1001 947 ParentFont = False 1002 948 TabOrder = 7 … … 1004 950 object Label48: TLabel 1005 951 Left = 10 1006 Height = 2 41007 Top = 2 161008 Width = 12 1952 Height = 27 953 Top = 225 954 Width = 127 1009 955 Caption = 'Windows Live:' 1010 ParentColor = False1011 956 ParentFont = False 1012 957 end 1013 958 object EditWindowsLive: TEdit 1014 Left = 1 731015 Height = 4 21016 Top = 2 081017 Width = 2 54959 Left = 180 960 Height = 43 961 Top = 217 962 Width = 265 1018 963 ParentFont = False 1019 964 TabOrder = 8 1020 965 end 1021 966 object LabelOrganization6: TLabel 1022 Left = 4 511023 Height = 2 41024 Top = 2 161025 Width = 3 3967 Left = 470 968 Height = 27 969 Top = 225 970 Width = 35 1026 971 Caption = 'QQ:' 1027 ParentColor = False1028 972 ParentFont = False 1029 973 end 1030 974 object EditQq: TEdit 1031 Left = 6 081032 Height = 4 21033 Top = 2 121034 Width = 2 54975 Left = 633 976 Height = 43 977 Top = 221 978 Width = 265 1035 979 ParentFont = False 1036 980 TabOrder = 9 1037 981 end 1038 982 object Label55: TLabel 1039 Left = 4 511040 Height = 2 41041 Top = 2 41042 Width = 59983 Left = 470 984 Height = 27 985 Top = 25 986 Width = 63 1043 987 Caption = 'Matrix:' 1044 ParentColor = False1045 988 ParentFont = False 1046 989 end 1047 990 object EditMatrix: TEdit 1048 Left = 6 081049 Height = 4 21050 Top = 2 01051 Width = 2 54991 Left = 633 992 Height = 43 993 Top = 21 994 Width = 265 1052 995 ParentFont = False 1053 996 TabOrder = 1 … … 1055 998 object Label57: TLabel 1056 999 Left = 10 1057 Height = 2 41058 Top = 3 121059 Width = 991000 Height = 27 1001 Top = 325 1002 Width = 103 1060 1003 Caption = 'GroupWise:' 1061 ParentColor = False1062 1004 ParentFont = False 1063 1005 end 1064 1006 object EditGroupWise: TEdit 1065 Left = 1 731066 Height = 4 21067 Top = 3 041068 Width = 2 541007 Left = 180 1008 Height = 43 1009 Top = 317 1010 Width = 265 1069 1011 ParentFont = False 1070 1012 TabOrder = 11 1071 1013 end 1072 1014 object LabelOrganization12: TLabel 1073 Left = 4 511074 Height = 2 41075 Top = 3 121076 Width = 951015 Left = 470 1016 Height = 27 1017 Top = 325 1018 Width = 103 1077 1019 Caption = 'GaduGadu:' 1078 ParentColor = False1079 1020 ParentFont = False 1080 1021 end 1081 1022 object EditGaduGadu: TEdit 1082 Left = 6 081083 Height = 4 21084 Top = 3 081085 Width = 2 541023 Left = 633 1024 Height = 43 1025 Top = 321 1026 Width = 265 1086 1027 ParentFont = False 1087 1028 TabOrder = 12 … … 1090 1031 object TabSheetSocial: TTabSheet 1091 1032 Caption = 'Social' 1092 ClientHeight = 6 281093 ClientWidth = 9 591033 ClientHeight = 655 1034 ClientWidth = 999 1094 1035 OnHide = TabSheetSocialHide 1095 1036 OnShow = TabSheetSocialShow 1096 1037 object Label50: TLabel 1097 Left = 4 511098 Height = 2 41099 Top = 1 641100 Width = 791038 Left = 470 1039 Height = 27 1040 Top = 171 1041 Width = 84 1101 1042 Caption = 'Myspace:' 1102 ParentColor = False1103 1043 ParentFont = False 1104 1044 end 1105 1045 object EditMySpace: TEdit 1106 Left = 6 081107 Height = 4 21108 Top = 16 01109 Width = 2 541046 Left = 633 1047 Height = 43 1048 Top = 167 1049 Width = 265 1110 1050 ParentFont = False 1111 1051 TabOrder = 7 1112 1052 end 1113 1053 object EditTwitter: TEdit 1114 Left = 1 731115 Height = 4 21116 Top = 6 41117 Width = 2 541054 Left = 180 1055 Height = 43 1056 Top = 67 1057 Width = 265 1118 1058 ParentFont = False 1119 1059 TabOrder = 2 … … 1121 1061 object Label51: TLabel 1122 1062 Left = 10 1123 Height = 2 41124 Top = 681125 Width = 6 31063 Height = 27 1064 Top = 71 1065 Width = 68 1126 1066 Caption = 'Twitter:' 1127 ParentColor = False1128 1067 ParentFont = False 1129 1068 end 1130 1069 object Label52: TLabel 1131 1070 Left = 10 1132 Height = 2 41133 Top = 1 161134 Width = 9 21071 Height = 27 1072 Top = 121 1073 Width = 98 1135 1074 Caption = 'Instagram:' 1136 ParentColor = False1137 1075 ParentFont = False 1138 1076 end 1139 1077 object Label53: TLabel 1140 1078 Left = 10 1141 Height = 2 41142 Top = 1 641143 Width = 781079 Height = 27 1080 Top = 171 1081 Width = 83 1144 1082 Caption = 'LinkedIn:' 1145 ParentColor = False1146 1083 ParentFont = False 1147 1084 end 1148 1085 object Label54: TLabel 1149 1086 Left = 10 1150 Height = 2 41151 Top = 2 121152 Width = 8 31087 Height = 27 1088 Top = 221 1089 Width = 89 1153 1090 Caption = 'Snapchat:' 1154 ParentColor = False1155 1091 ParentFont = False 1156 1092 end 1157 1093 object EditSnapchat: TEdit 1158 Left = 1 731159 Height = 4 21160 Top = 2 081161 Width = 2 541094 Left = 180 1095 Height = 43 1096 Top = 217 1097 Width = 265 1162 1098 ParentFont = False 1163 1099 TabOrder = 8 1164 1100 end 1165 1101 object EditLinkedIn: TEdit 1166 Left = 1 731167 Height = 4 21168 Top = 16 01169 Width = 2 541102 Left = 180 1103 Height = 43 1104 Top = 167 1105 Width = 265 1170 1106 ParentFont = False 1171 1107 TabOrder = 6 1172 1108 end 1173 1109 object EditInstagram: TEdit 1174 Left = 1 731175 Height = 4 21176 Top = 11 21177 Width = 2 541110 Left = 180 1111 Height = 43 1112 Top = 117 1113 Width = 265 1178 1114 ParentFont = False 1179 1115 TabOrder = 4 1180 1116 end 1181 1117 object LabelOrganization7: TLabel 1182 Left = 4 511183 Height = 2 41184 Top = 2 41185 Width = 841118 Left = 470 1119 Height = 27 1120 Top = 25 1121 Width = 90 1186 1122 Caption = 'PeerTube:' 1187 ParentColor = False1188 1123 ParentFont = False 1189 1124 end 1190 1125 object LabelOrganization8: TLabel 1191 Left = 4 511192 Height = 2 41193 Top = 1 161194 Width = 771126 Left = 470 1127 Height = 27 1128 Top = 121 1129 Width = 82 1195 1130 Caption = 'YouTube:' 1196 ParentColor = False1197 1131 ParentFont = False 1198 1132 end 1199 1133 object EditMastodon: TEdit 1200 Left = 17 11201 Height = 4 21202 Top = 1 61203 Width = 2 541134 Left = 178 1135 Height = 43 1136 Top = 17 1137 Width = 265 1204 1138 ParentFont = False 1205 1139 TabOrder = 0 … … 1207 1141 object LabelOrganization9: TLabel 1208 1142 Left = 10 1209 Height = 24 1210 Top = 24 1143 Height = 27 1144 Top = 25 1145 Width = 95 1146 Caption = 'Mastodon:' 1147 ParentFont = False 1148 end 1149 object LabelOrganization10: TLabel 1150 Left = 470 1151 Height = 27 1152 Top = 221 1153 Width = 64 1154 Caption = 'Reddit:' 1155 ParentFont = False 1156 end 1157 object EditReddit: TEdit 1158 Left = 633 1159 Height = 43 1160 Top = 217 1161 Width = 265 1162 ParentFont = False 1163 TabOrder = 9 1164 end 1165 object EditPeerTube: TEdit 1166 Left = 633 1167 Height = 43 1168 Top = 17 1169 Width = 265 1170 ParentFont = False 1171 TabOrder = 1 1172 end 1173 object EditYouTube: TEdit 1174 Left = 633 1175 Height = 43 1176 Top = 117 1177 Width = 265 1178 ParentFont = False 1179 TabOrder = 5 1180 end 1181 object EditFacebook: TEdit 1182 Left = 633 1183 Height = 43 1184 Top = 67 1185 Width = 265 1186 ParentFont = False 1187 TabOrder = 3 1188 end 1189 object LabelOrganization11: TLabel 1190 Left = 470 1191 Height = 27 1192 Top = 71 1211 1193 Width = 90 1212 Caption = 'Mastodon:'1213 ParentColor = False1214 ParentFont = False1215 end1216 object LabelOrganization10: TLabel1217 Left = 4511218 Height = 241219 Top = 2121220 Width = 591221 Caption = 'Reddit:'1222 ParentColor = False1223 ParentFont = False1224 end1225 object EditReddit: TEdit1226 Left = 6081227 Height = 421228 Top = 2081229 Width = 2541230 ParentFont = False1231 TabOrder = 91232 end1233 object EditPeerTube: TEdit1234 Left = 6081235 Height = 421236 Top = 161237 Width = 2541238 ParentFont = False1239 TabOrder = 11240 end1241 object EditYouTube: TEdit1242 Left = 6081243 Height = 421244 Top = 1121245 Width = 2541246 ParentFont = False1247 TabOrder = 51248 end1249 object EditFacebook: TEdit1250 Left = 6081251 Height = 421252 Top = 641253 Width = 2541254 ParentFont = False1255 TabOrder = 31256 end1257 object LabelOrganization11: TLabel1258 Left = 4511259 Height = 241260 Top = 681261 Width = 861262 1194 Caption = 'Facebook:' 1263 ParentColor = False1264 1195 ParentFont = False 1265 1196 end … … 1267 1198 object TabSheetOthers: TTabSheet 1268 1199 Caption = 'Others' 1269 ClientHeight = 6 281270 ClientWidth = 9 591200 ClientHeight = 655 1201 ClientWidth = 999 1271 1202 OnHide = TabSheetOthersHide 1272 1203 OnShow = TabSheetOthersShow 1273 1204 object MemoNotes: TMemo 1274 Left = 1 61275 Height = 2 801276 Top = 481277 Width = 9 251205 Left = 17 1206 Height = 293 1207 Top = 50 1208 Width = 963 1278 1209 Anchors = [akTop, akLeft, akRight, akBottom] 1279 1210 ParentFont = False … … 1283 1214 end 1284 1215 object Label6: TLabel 1285 Left = 1 61286 Height = 2 41287 Top = 1 61288 Width = 5 51216 Left = 17 1217 Height = 27 1218 Top = 17 1219 Width = 57 1289 1220 Caption = 'Notes:' 1290 ParentColor = False1291 1221 ParentFont = False 1292 1222 end … … 1299 1229 end 1300 1230 object ButtonCancel: TButton 1301 Left = 8641302 Height = 3 71303 Top = 6921304 Width = 1 151231 Left = 900 1232 Height = 39 1233 Top = 720 1234 Width = 120 1305 1235 Anchors = [akRight, akBottom] 1306 1236 Caption = 'Cancel' … … 1310 1240 end 1311 1241 object ButtonOk: TButton 1312 Left = 7 291313 Height = 3 71314 Top = 6921315 Width = 1 191242 Left = 759 1243 Height = 39 1244 Top = 720 1245 Width = 124 1316 1246 Anchors = [akRight, akBottom] 1317 1247 Caption = 'OK' … … 1322 1252 object ButtonPrevious: TButton 1323 1253 Left = 8 1324 Height = 3 71325 Top = 6861326 Width = 1 191254 Height = 39 1255 Top = 714 1256 Width = 124 1327 1257 Anchors = [akLeft, akBottom] 1328 1258 Caption = 'Previous' … … 1333 1263 end 1334 1264 object ButtonNext: TButton 1335 Left = 1 441336 Height = 3 71337 Top = 6881338 Width = 1 151265 Left = 150 1266 Height = 39 1267 Top = 716 1268 Width = 120 1339 1269 Anchors = [akLeft, akBottom] 1340 1270 Caption = 'Next' … … 1346 1276 object ActionList1: TActionList 1347 1277 Images = Core.ImageList1 1348 Left = 5921349 Top = 5 281278 Left = 617 1279 Top = 550 1350 1280 object APhotoLoad: TAction 1351 1281 Caption = 'Load from file' … … 1363 1293 object PopupMenuPhoto: TPopupMenu 1364 1294 Images = Core.ImageList1 1365 Left = 4 641366 Top = 4881295 Left = 483 1296 Top = 508 1367 1297 object MenuItem1: TMenuItem 1368 1298 Action = APhotoLoad … … 1376 1306 end 1377 1307 object OpenPictureDialog1: TOpenPictureDialog 1378 Left = 1 681379 Top = 5 521308 Left = 175 1309 Top = 575 1380 1310 end 1381 1311 object SavePictureDialog1: TSavePictureDialog 1382 Left = 1971383 Top = 6 171312 Left = 205 1313 Top = 643 1384 1314 end 1385 1315 end -
trunk/Forms/UFormContact.pas
r77 r93 203 203 private 204 204 FProfilePhotoActive: Boolean; 205 FProfilePhotoLoaded: Boolean; 206 FProfilePhotoModified: Boolean; 205 207 procedure SetProfilePhotoActive(AValue: Boolean); 206 208 private … … 240 242 FormProperties.Align := alClient; 241 243 FormProperties.Show; 244 245 FProfilePhotoLoaded := False; 242 246 243 247 // Force to load default profile image … … 320 324 321 325 // Photo 326 if FProfilePhotoModified then begin 322 327 if ProfilePhotoActive then begin 323 328 PhotoProperty := Contact.GetProperty(cfPhoto); … … 388 393 Contact.Properties.Remove(PhotoProperty); 389 394 end; 395 FProfilePhotoModified := False; 396 end; 390 397 391 398 ReloadAllPropertiesTab; … … 421 428 // Photo 422 429 PhotoProperty := Contact.GetProperty(cfPhoto); 430 if not FProfilePhotoLoaded then begin 423 431 if Assigned(PhotoProperty) then begin 432 FProfilePhotoLoaded := True; 433 FProfilePhotoModified := True; 424 434 Photo := Contact.Fields[cfPhoto]; 425 435 if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin … … 497 507 end else ProfilePhotoActive := False; 498 508 end else ProfilePhotoActive := False; 509 end; 499 510 end; 500 511 … … 662 673 if OpenPictureDialog1.Execute then begin 663 674 ImagePhoto.Picture.LoadFromFile(OpenPictureDialog1.FileName); 675 FProfilePhotoModified := True; 676 FProfilePhotoLoaded := True; 664 677 ProfilePhotoActive := True; 665 678 end; … … 668 681 procedure TFormContact.APhotoClearExecute(Sender: TObject); 669 682 begin 683 FProfilePhotoModified := True; 670 684 ProfilePhotoActive := False; 671 685 end; -
trunk/UContact.pas
r92 r93 1004 1004 end else begin 1005 1005 if Field.DataType = dtString then Prop.Value := EncodeEscaped(AValue) 1006 else Prop.Value := EncodeEscaped(AValue);1006 else Prop.Value := AValue; 1007 1007 end; 1008 1008
Note:
See TracChangeset
for help on using the changeset viewer.