Changeset 165
- Timestamp:
- Jun 30, 2023, 11:34:35 PM (18 months ago)
- Location:
- trunk
- Files:
-
- 7 edited
-
Core.pas (modified) (3 diffs)
-
Forms/FormContact.lfm (modified) (14 diffs)
-
Forms/FormContact.pas (modified) (1 diff)
-
Forms/FormImage.lfm (modified) (4 diffs)
-
Forms/FormMain.lfm (modified) (2 diffs)
-
Forms/FormMain.pas (modified) (4 diffs)
-
Packages/Common/FormEx.pas (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.pas
r164 r165 454 454 RecentFileRegistryContext := TRegistryContext.Create(ApplicationInfo1.RegistryRoot, 455 455 ApplicationInfo1.RegistryKey + '\RecentFiles'); 456 LoadConfig; 456 457 457 458 TFormEx.ScaleDPI := ScaleDPI1; … … 459 460 TFormEx.ThemeManager := ThemeManager1; 460 461 TFormEx.PersistentForm := PersistentForm1; 461 462 Initialize;463 462 464 463 FormMain := TFormMain.Create(nil); … … 697 696 if not InitializeStarted then begin 698 697 InitializeStarted := True; 699 LoadConfig;700 698 701 699 FileNameOption := FindFirstNonOption; -
trunk/Forms/FormContact.lfm
r162 r165 1 1 object FormContact: TFormContact 2 Left = 10433 Height = 7 384 Top = 4465 Width = 9 922 Left = 784 3 Height = 720 4 Top = 221 5 Width = 946 6 6 Caption = 'Contact' 7 ClientHeight = 7 388 ClientWidth = 9 927 ClientHeight = 720 8 ClientWidth = 946 9 9 DesignTimePPI = 144 10 10 OnClose = FormClose … … 14 14 LCLVersion = '2.2.6.0' 15 15 object ButtonCancel: TButton 16 Left = 8 6516 Left = 819 17 17 Height = 37 18 Top = 6 8818 Top = 670 19 19 Width = 115 20 20 Anchors = [akRight, akBottom] … … 25 25 end 26 26 object ButtonOk: TButton 27 Left = 73027 Left = 684 28 28 Height = 37 29 Top = 6 8829 Top = 670 30 30 Width = 119 31 31 Anchors = [akRight, akBottom] … … 38 38 Left = 8 39 39 Height = 37 40 Top = 6 8840 Top = 670 41 41 Width = 119 42 42 Anchors = [akLeft, akBottom] … … 50 50 Left = 144 51 51 Height = 37 52 Top = 6 8852 Top = 670 53 53 Width = 115 54 54 Anchors = [akLeft, akBottom] … … 61 61 object PageControlContact: TPageControl 62 62 Left = 8 63 Height = 6 6463 Height = 646 64 64 Top = 8 65 Width = 9 7066 ActivePage = TabSheet Others65 Width = 924 66 ActivePage = TabSheetWork 67 67 Anchors = [akTop, akLeft, akRight, akBottom] 68 68 ParentFont = False 69 TabIndex = 569 TabIndex = 2 70 70 TabOrder = 4 71 71 object TabSheetGeneral: TTabSheet 72 72 Caption = 'General' 73 ClientHeight = 6 2474 ClientWidth = 9 6073 ClientHeight = 608 74 ClientWidth = 916 75 75 OnHide = TabSheetGeneralHide 76 76 OnShow = TabSheetGeneralShow 77 77 ParentFont = False 78 object Label2: TLabel 79 Left = 16 80 Height = 26 81 Top = 250 82 Width = 63 83 Caption = 'Mobile:' 84 ParentColor = False 85 ParentFont = False 86 end 87 object EditMobile: TEdit 88 Left = 144 89 Height = 43 90 Top = 240 91 Width = 254 92 ParentFont = False 93 TabOrder = 3 94 end 95 object EditPhone: TEdit 96 Left = 144 97 Height = 43 98 Top = 286 99 Width = 254 100 ParentFont = False 101 TabOrder = 5 102 end 103 object Label3: TLabel 104 Left = 16 105 Height = 26 106 Top = 290 107 Width = 59 108 Caption = 'Phone:' 109 ParentColor = False 110 ParentFont = False 111 end 112 object EditEmail: TEdit 113 Left = 144 114 Height = 43 115 Top = 328 116 Width = 207 117 ParentFont = False 118 TabOrder = 7 119 end 120 object Label4: TLabel 121 Left = 16 122 Height = 26 123 Top = 336 124 Width = 58 125 Caption = 'E-mail:' 126 ParentColor = False 127 ParentFont = False 128 end 129 object EditBirthday: TEdit 130 Left = 144 131 Height = 43 132 Top = 424 133 Width = 207 134 ParentFont = False 135 TabOrder = 10 136 end 137 object Label22: TLabel 138 Left = 16 139 Height = 26 140 Top = 432 141 Width = 76 142 Caption = 'Birthday:' 143 ParentColor = False 144 ParentFont = False 145 end 146 object ImagePhoto: TImage 147 Left = 16 148 Height = 210 149 Top = 16 150 Width = 207 151 Center = True 152 OnClick = ImagePhotoClick 153 PopupMenu = PopupMenuPhoto 154 Proportional = True 155 Stretch = True 156 end 157 object Label24: TLabel 158 Left = 240 159 Height = 26 160 Top = 32 161 Width = 88 162 Caption = 'Full name:' 163 ParentColor = False 164 ParentFont = False 165 end 166 object EditFullName: TEdit 167 Left = 360 168 Height = 43 169 Top = 24 170 Width = 340 171 OnChange = EditFullNameChange 172 ParentFont = False 78 object Panel1: TPanel 79 Left = 0 80 Height = 608 81 Top = 0 82 Width = 916 83 Align = alClient 84 BevelOuter = bvNone 85 ClientHeight = 608 86 ClientWidth = 916 173 87 TabOrder = 0 174 end 175 object Label44: TLabel 176 Left = 240 177 Height = 26 178 Top = 84 179 Width = 91 180 Caption = 'Nickname:' 181 ParentColor = False 182 ParentFont = False 183 end 184 object EditNickName: TEdit 185 Left = 361 186 Height = 43 187 Top = 77 188 Width = 215 189 ParentFont = False 190 TabOrder = 2 191 end 192 object Label45: TLabel 193 Left = 432 194 Height = 26 195 Top = 432 196 Width = 105 197 Caption = 'Anniversary:' 198 ParentColor = False 199 ParentFont = False 200 end 201 object EditAniversary: TEdit 202 Left = 575 203 Height = 43 204 Top = 424 205 Width = 208 206 ParentFont = False 207 TabOrder = 11 208 end 209 object Label9: TLabel 210 Left = 432 211 Height = 26 212 Top = 248 213 Width = 34 214 Caption = 'Fax:' 215 ParentColor = False 216 ParentFont = False 217 end 218 object EditFax: TEdit 219 Left = 575 220 Height = 43 221 Top = 240 222 Width = 254 223 ParentFont = False 224 TabOrder = 4 225 end 226 object EditPager: TEdit 227 Left = 575 228 Height = 43 229 Top = 286 230 Width = 254 231 ParentFont = False 232 TabOrder = 6 233 end 234 object Label10: TLabel 235 Left = 432 236 Height = 26 237 Top = 290 238 Width = 54 239 Caption = 'Pager:' 240 ParentColor = False 241 ParentFont = False 242 end 243 object Label46: TLabel 244 Left = 16 245 Height = 26 246 Top = 384 247 Width = 114 248 Caption = 'Web address:' 249 ParentColor = False 250 ParentFont = False 251 end 252 object EditWeb: TEdit 253 Left = 144 254 Height = 43 255 Top = 376 256 Width = 639 257 ParentFont = False 258 TabOrder = 9 259 end 260 object Label49: TLabel 261 Left = 432 262 Height = 26 263 Top = 332 264 Width = 67 265 Caption = 'Gender:' 266 ParentColor = False 267 ParentFont = False 268 end 269 object EditGender: TEdit 270 Left = 575 271 Height = 43 272 Top = 328 273 Width = 254 274 ParentFont = False 275 TabOrder = 8 276 end 277 object Label56: TLabel 278 Left = 16 279 Height = 26 280 Top = 480 281 Width = 95 282 Caption = 'Categories:' 283 ParentColor = False 284 ParentFont = False 285 end 286 object EditCategories: TEdit 287 Left = 144 288 Height = 43 289 Top = 472 290 Width = 254 291 ParentFont = False 292 TabOrder = 12 293 end 294 object SpeedButtonWeb: TSpeedButton 295 Left = 788 296 Height = 41 297 Hint = 'Open in web browser' 298 Top = 376 299 Width = 41 300 Images = Core.ImageList1 301 ImageIndex = 15 302 OnClick = SpeedButtonWebClick 303 ShowHint = True 304 ParentShowHint = False 305 end 306 object SpeedButtonEmail: TSpeedButton 307 Left = 357 308 Height = 41 309 Hint = 'Open in email client' 310 Top = 328 311 Width = 41 312 Images = Core.ImageList1 313 ImageIndex = 16 314 OnClick = SpeedButtonEmailClick 315 ShowHint = True 316 ParentShowHint = False 317 end 318 object SpeedButtonBirthDay: TSpeedButton 319 Left = 357 320 Height = 41 321 Hint = 'Select date' 322 Top = 424 323 Width = 41 324 Images = Core.ImageList1 325 ImageIndex = 17 326 OnClick = SpeedButtonBirthDayClick 327 ShowHint = True 328 ParentShowHint = False 329 end 330 object SpeedButtonAniversary: TSpeedButton 331 Left = 788 332 Height = 41 333 Hint = 'Select date' 334 Top = 424 335 Width = 41 336 Images = Core.ImageList1 337 ImageIndex = 17 338 OnClick = SpeedButtonAniversaryClick 339 ShowHint = True 340 ParentShowHint = False 341 end 342 object ButtonNameDetails: TButton 343 Left = 706 344 Height = 41 345 Top = 24 346 Width = 120 347 Caption = 'Details' 348 OnClick = ButtonNameDetailsClick 349 TabOrder = 1 88 object Label2: TLabel 89 Left = 16 90 Height = 25 91 Top = 250 92 Width = 59 93 Caption = 'Mobile:' 94 ParentColor = False 95 ParentFont = False 96 end 97 object EditMobile: TEdit 98 Left = 144 99 Height = 33 100 Top = 240 101 Width = 254 102 ParentFont = False 103 TabOrder = 0 104 end 105 object EditPhone: TEdit 106 Left = 144 107 Height = 33 108 Top = 286 109 Width = 254 110 ParentFont = False 111 TabOrder = 1 112 end 113 object Label3: TLabel 114 Left = 16 115 Height = 25 116 Top = 290 117 Width = 54 118 Caption = 'Phone:' 119 ParentColor = False 120 ParentFont = False 121 end 122 object EditEmail: TEdit 123 Left = 144 124 Height = 33 125 Top = 328 126 Width = 207 127 ParentFont = False 128 TabOrder = 2 129 end 130 object Label4: TLabel 131 Left = 16 132 Height = 25 133 Top = 336 134 Width = 53 135 Caption = 'E-mail:' 136 ParentColor = False 137 ParentFont = False 138 end 139 object EditBirthday: TEdit 140 Left = 144 141 Height = 33 142 Top = 424 143 Width = 207 144 ParentFont = False 145 TabOrder = 3 146 end 147 object Label22: TLabel 148 Left = 16 149 Height = 25 150 Top = 432 151 Width = 69 152 Caption = 'Birthday:' 153 ParentColor = False 154 ParentFont = False 155 end 156 object ImagePhoto: TImage 157 Left = 16 158 Height = 210 159 Top = 16 160 Width = 207 161 Center = True 162 OnClick = ImagePhotoClick 163 PopupMenu = PopupMenuPhoto 164 Proportional = True 165 Stretch = True 166 end 167 object Label24: TLabel 168 Left = 240 169 Height = 25 170 Top = 32 171 Width = 80 172 Caption = 'Full name:' 173 ParentColor = False 174 ParentFont = False 175 end 176 object EditFullName: TEdit 177 Left = 360 178 Height = 33 179 Top = 24 180 Width = 340 181 OnChange = EditFullNameChange 182 ParentFont = False 183 TabOrder = 4 184 end 185 object Label44: TLabel 186 Left = 240 187 Height = 25 188 Top = 84 189 Width = 82 190 Caption = 'Nickname:' 191 ParentColor = False 192 ParentFont = False 193 end 194 object EditNickName: TEdit 195 Left = 361 196 Height = 33 197 Top = 77 198 Width = 215 199 ParentFont = False 200 TabOrder = 5 201 end 202 object Label45: TLabel 203 Left = 432 204 Height = 25 205 Top = 432 206 Width = 96 207 Caption = 'Anniversary:' 208 ParentColor = False 209 ParentFont = False 210 end 211 object EditAniversary: TEdit 212 Left = 575 213 Height = 33 214 Top = 424 215 Width = 208 216 ParentFont = False 217 TabOrder = 6 218 end 219 object Label9: TLabel 220 Left = 432 221 Height = 25 222 Top = 248 223 Width = 29 224 Caption = 'Fax:' 225 ParentColor = False 226 ParentFont = False 227 end 228 object EditFax: TEdit 229 Left = 575 230 Height = 33 231 Top = 240 232 Width = 254 233 ParentFont = False 234 TabOrder = 7 235 end 236 object EditPager: TEdit 237 Left = 575 238 Height = 33 239 Top = 286 240 Width = 254 241 ParentFont = False 242 TabOrder = 8 243 end 244 object Label10: TLabel 245 Left = 432 246 Height = 25 247 Top = 290 248 Width = 48 249 Caption = 'Pager:' 250 ParentColor = False 251 ParentFont = False 252 end 253 object Label46: TLabel 254 Left = 16 255 Height = 25 256 Top = 384 257 Width = 107 258 Caption = 'Web address:' 259 ParentColor = False 260 ParentFont = False 261 end 262 object EditWeb: TEdit 263 Left = 144 264 Height = 33 265 Top = 376 266 Width = 639 267 ParentFont = False 268 TabOrder = 9 269 end 270 object Label49: TLabel 271 Left = 432 272 Height = 25 273 Top = 332 274 Width = 61 275 Caption = 'Gender:' 276 ParentColor = False 277 ParentFont = False 278 end 279 object EditGender: TEdit 280 Left = 575 281 Height = 33 282 Top = 328 283 Width = 254 284 ParentFont = False 285 TabOrder = 10 286 end 287 object Label56: TLabel 288 Left = 16 289 Height = 25 290 Top = 480 291 Width = 88 292 Caption = 'Categories:' 293 ParentColor = False 294 ParentFont = False 295 end 296 object EditCategories: TEdit 297 Left = 144 298 Height = 33 299 Top = 472 300 Width = 254 301 ParentFont = False 302 TabOrder = 11 303 end 304 object SpeedButtonWeb: TSpeedButton 305 Left = 788 306 Height = 41 307 Hint = 'Open in web browser' 308 Top = 376 309 Width = 41 310 Images = Core.ImageList1 311 ImageIndex = 15 312 OnClick = SpeedButtonWebClick 313 ShowHint = True 314 ParentShowHint = False 315 end 316 object SpeedButtonEmail: TSpeedButton 317 Left = 357 318 Height = 41 319 Hint = 'Open in email client' 320 Top = 328 321 Width = 41 322 Images = Core.ImageList1 323 ImageIndex = 16 324 OnClick = SpeedButtonEmailClick 325 ShowHint = True 326 ParentShowHint = False 327 end 328 object SpeedButtonBirthDay: TSpeedButton 329 Left = 357 330 Height = 41 331 Hint = 'Select date' 332 Top = 424 333 Width = 41 334 Images = Core.ImageList1 335 ImageIndex = 17 336 OnClick = SpeedButtonBirthDayClick 337 ShowHint = True 338 ParentShowHint = False 339 end 340 object SpeedButtonAniversary: TSpeedButton 341 Left = 788 342 Height = 41 343 Hint = 'Select date' 344 Top = 424 345 Width = 41 346 Images = Core.ImageList1 347 ImageIndex = 17 348 OnClick = SpeedButtonAniversaryClick 349 ShowHint = True 350 ParentShowHint = False 351 end 352 object ButtonNameDetails: TButton 353 Left = 706 354 Height = 41 355 Top = 24 356 Width = 120 357 Caption = 'Details' 358 OnClick = ButtonNameDetailsClick 359 TabOrder = 12 360 end 350 361 end 351 362 end 352 363 object TabSheetHome: TTabSheet 353 364 Caption = 'Home' 354 ClientHeight = 6 24355 ClientWidth = 9 60365 ClientHeight = 608 366 ClientWidth = 916 356 367 OnHide = TabSheetHomeHide 357 368 OnShow = TabSheetHomeShow 358 369 ParentFont = False 359 object Label7: TLabel 360 Left = 16 361 Height = 26 362 Top = 114 363 Width = 58 364 Caption = 'E-mail:' 365 ParentColor = False 366 ParentFont = False 367 end 368 object EditHomeEmail: TEdit 369 Left = 173 370 Height = 43 371 Top = 112 372 Width = 207 373 ParentFont = False 374 TabOrder = 4 375 end 376 object Label11: TLabel 377 Left = 448 378 Height = 26 379 Top = 18 380 Width = 34 381 Caption = 'Fax:' 382 ParentColor = False 383 ParentFont = False 384 end 385 object EditHomeFax: TEdit 386 Left = 605 387 Height = 43 388 Top = 16 389 Width = 254 390 ParentFont = False 391 TabOrder = 1 392 end 393 object EditHomeMobile: TEdit 394 Left = 173 395 Height = 43 396 Top = 60 397 Width = 254 398 ParentFont = False 399 TabOrder = 2 400 end 401 object EditHomePhone: TEdit 402 Left = 173 403 Height = 43 404 Top = 16 405 Width = 254 406 ParentFont = False 370 object Panel2: TPanel 371 Left = 0 372 Height = 608 373 Top = 0 374 Width = 916 375 Align = alClient 376 BevelOuter = bvNone 377 ClientHeight = 608 378 ClientWidth = 916 407 379 TabOrder = 0 408 end 409 object Label14: TLabel 410 Left = 448 411 Height = 26 412 Top = 68 413 Width = 54 414 Caption = 'Pager:' 415 ParentColor = False 416 ParentFont = False 417 end 418 object EditHomePager: TEdit 419 Left = 605 420 Height = 43 421 Top = 60 422 Width = 254 423 ParentFont = False 424 TabOrder = 3 425 end 426 object Label40: TLabel 427 Left = 16 428 Height = 26 429 Top = 168 430 Width = 114 431 Caption = 'Web address:' 432 ParentColor = False 433 ParentFont = False 434 end 435 object EditHomeWeb: TEdit 436 Left = 173 437 Height = 43 438 Top = 161 439 Width = 641 440 ParentFont = False 441 TabOrder = 5 442 end 443 object GroupBox1: TGroupBox 444 Left = 10 445 Height = 276 446 Top = 216 447 Width = 862 448 Anchors = [akTop, akLeft, akRight] 449 Caption = 'Address' 450 ClientHeight = 274 451 ClientWidth = 860 452 TabOrder = 6 453 object Label36: TLabel 454 Left = 10 455 Height = 26 380 object Label7: TLabel 381 Left = 16 382 Height = 25 383 Top = 114 384 Width = 53 385 Caption = 'E-mail:' 386 ParentColor = False 387 ParentFont = False 388 end 389 object EditHomeEmail: TEdit 390 Left = 173 391 Height = 33 392 Top = 112 393 Width = 207 394 ParentFont = False 395 TabOrder = 0 396 end 397 object Label11: TLabel 398 Left = 448 399 Height = 25 456 400 Top = 18 401 Width = 29 402 Caption = 'Fax:' 403 ParentColor = False 404 ParentFont = False 405 end 406 object EditHomeFax: TEdit 407 Left = 605 408 Height = 33 409 Top = 16 410 Width = 254 411 ParentFont = False 412 TabOrder = 1 413 end 414 object EditHomeMobile: TEdit 415 Left = 173 416 Height = 33 417 Top = 60 418 Width = 254 419 ParentFont = False 420 TabOrder = 2 421 end 422 object EditHomePhone: TEdit 423 Left = 173 424 Height = 33 425 Top = 16 426 Width = 254 427 ParentFont = False 428 TabOrder = 3 429 end 430 object Label14: TLabel 431 Left = 448 432 Height = 25 433 Top = 68 434 Width = 48 435 Caption = 'Pager:' 436 ParentColor = False 437 ParentFont = False 438 end 439 object EditHomePager: TEdit 440 Left = 605 441 Height = 33 442 Top = 60 443 Width = 254 444 ParentFont = False 445 TabOrder = 4 446 end 447 object Label40: TLabel 448 Left = 16 449 Height = 25 450 Top = 168 451 Width = 107 452 Caption = 'Web address:' 453 ParentColor = False 454 ParentFont = False 455 end 456 object EditHomeWeb: TEdit 457 Left = 173 458 Height = 33 459 Top = 161 460 Width = 641 461 ParentFont = False 462 TabOrder = 5 463 end 464 object GroupBox1: TGroupBox 465 Left = 10 466 Height = 276 467 Top = 216 468 Width = 818 469 Anchors = [akTop, akLeft, akRight] 470 Caption = 'Address' 471 ClientHeight = 246 472 ClientWidth = 814 473 TabOrder = 6 474 object Label36: TLabel 475 Left = 10 476 Height = 25 477 Top = 18 478 Width = 49 479 Caption = 'Street:' 480 ParentColor = False 481 ParentFont = False 482 end 483 object Label37: TLabel 484 Left = 10 485 Height = 25 486 Top = 66 487 Width = 126 488 Caption = 'Extended street:' 489 ParentColor = False 490 ParentFont = False 491 end 492 object EditHomeAddressStreetExtended: TEdit 493 Left = 173 494 Height = 33 495 Top = 56 496 Width = 254 497 ParentFont = False 498 TabOrder = 2 499 end 500 object EditHomeAddressStreet: TEdit 501 Left = 173 502 Height = 33 503 Top = 8 504 Width = 254 505 ParentFont = False 506 TabOrder = 0 507 end 508 object Label38: TLabel 509 Left = 10 510 Height = 25 511 Top = 112 512 Width = 59 513 Caption = 'Region:' 514 ParentColor = False 515 ParentFont = False 516 end 517 object EditHomeAddressRegion: TEdit 518 Left = 173 519 Height = 33 520 Top = 104 521 Width = 254 522 ParentFont = False 523 TabOrder = 4 524 end 525 object EditHomeAddressCountry: TEdit 526 Left = 173 527 Height = 33 528 Top = 152 529 Width = 254 530 ParentFont = False 531 TabOrder = 5 532 end 533 object Label39: TLabel 534 Left = 10 535 Height = 25 536 Top = 160 537 Width = 67 538 Caption = 'Country:' 539 ParentColor = False 540 ParentFont = False 541 end 542 object Label41: TLabel 543 Left = 451 544 Height = 25 545 Top = 160 546 Width = 95 547 Caption = 'Postal code:' 548 ParentColor = False 549 ParentFont = False 550 end 551 object EditHomeAddressPostalCode: TEdit 552 Left = 588 553 Height = 33 554 Top = 152 555 Width = 254 556 ParentFont = False 557 TabOrder = 6 558 end 559 object EditHomeAddressCity: TEdit 560 Left = 588 561 Height = 33 562 Top = 56 563 Width = 254 564 ParentFont = False 565 TabOrder = 3 566 end 567 object Label42: TLabel 568 Left = 451 569 Height = 25 570 Top = 64 571 Width = 34 572 Caption = 'City:' 573 ParentColor = False 574 ParentFont = False 575 end 576 object Label43: TLabel 577 Left = 451 578 Height = 25 579 Top = 16 580 Width = 122 581 Caption = 'Post office box:' 582 ParentColor = False 583 ParentFont = False 584 end 585 object EditHomeAddressPostOfficeBox: TEdit 586 Left = 588 587 Height = 33 588 Top = 8 589 Width = 254 590 ParentFont = False 591 TabOrder = 1 592 end 593 object ButtonHomeAddressShow: TButton 594 Left = 10 595 Height = 37 596 Top = 200 597 Width = 175 598 Caption = 'Show on map' 599 OnClick = ButtonHomeAddressShowClick 600 TabOrder = 7 601 end 602 end 603 object Label12: TLabel 604 Left = 16 605 Height = 25 606 Top = 64 607 Width = 59 608 Caption = 'Mobile:' 609 ParentColor = False 610 ParentFont = False 611 end 612 object Label13: TLabel 613 Left = 16 614 Height = 25 615 Top = 20 457 616 Width = 54 458 Caption = 'Street:' 459 ParentColor = False 460 ParentFont = False 461 end 462 object Label37: TLabel 463 Left = 10 464 Height = 26 465 Top = 66 466 Width = 137 467 Caption = 'Extended street:' 468 ParentColor = False 469 ParentFont = False 470 end 471 object EditHomeAddressStreetExtended: TEdit 472 Left = 173 473 Height = 43 474 Top = 56 475 Width = 254 476 ParentFont = False 477 TabOrder = 2 478 end 479 object EditHomeAddressStreet: TEdit 480 Left = 173 481 Height = 43 482 Top = 8 483 Width = 254 484 ParentFont = False 485 TabOrder = 0 486 end 487 object Label38: TLabel 488 Left = 10 489 Height = 26 617 Caption = 'Phone:' 618 ParentColor = False 619 ParentFont = False 620 end 621 object SpeedButtonHomeWeb: TSpeedButton 622 Left = 818 623 Height = 41 624 Hint = 'Open in web browser' 625 Top = 160 626 Width = 41 627 Images = Core.ImageList1 628 ImageIndex = 15 629 OnClick = SpeedButtonHomeWebClick 630 ShowHint = True 631 ParentShowHint = False 632 end 633 object SpeedButtonHomeEmail: TSpeedButton 634 Left = 386 635 Height = 41 636 Hint = 'Open in email client' 490 637 Top = 112 491 Width = 64 492 Caption = 'Region:' 493 ParentColor = False 494 ParentFont = False 495 end 496 object EditHomeAddressRegion: TEdit 497 Left = 173 498 Height = 43 499 Top = 104 500 Width = 254 501 ParentFont = False 502 TabOrder = 4 503 end 504 object EditHomeAddressCountry: TEdit 505 Left = 173 506 Height = 43 507 Top = 152 508 Width = 254 509 ParentFont = False 510 TabOrder = 5 511 end 512 object Label39: TLabel 513 Left = 10 514 Height = 26 515 Top = 160 516 Width = 71 517 Caption = 'Country:' 518 ParentColor = False 519 ParentFont = False 520 end 521 object Label41: TLabel 522 Left = 451 523 Height = 26 524 Top = 160 525 Width = 103 526 Caption = 'Postal code:' 527 ParentColor = False 528 ParentFont = False 529 end 530 object EditHomeAddressPostalCode: TEdit 531 Left = 588 532 Height = 43 533 Top = 152 534 Width = 254 535 ParentFont = False 536 TabOrder = 6 537 end 538 object EditHomeAddressCity: TEdit 539 Left = 588 540 Height = 43 541 Top = 56 542 Width = 254 543 ParentFont = False 544 TabOrder = 3 545 end 546 object Label42: TLabel 547 Left = 451 548 Height = 26 549 Top = 64 550 Width = 36 551 Caption = 'City:' 552 ParentColor = False 553 ParentFont = False 554 end 555 object Label43: TLabel 556 Left = 451 557 Height = 26 558 Top = 16 559 Width = 131 560 Caption = 'Post office box:' 561 ParentColor = False 562 ParentFont = False 563 end 564 object EditHomeAddressPostOfficeBox: TEdit 565 Left = 588 566 Height = 43 567 Top = 8 568 Width = 254 569 ParentFont = False 570 TabOrder = 1 571 end 572 object ButtonHomeAddressShow: TButton 573 Left = 10 574 Height = 37 575 Top = 200 576 Width = 175 577 Caption = 'Show on map' 578 OnClick = ButtonHomeAddressShowClick 579 TabOrder = 7 580 end 581 end 582 object Label12: TLabel 583 Left = 16 584 Height = 26 585 Top = 64 586 Width = 63 587 Caption = 'Mobile:' 588 ParentColor = False 589 ParentFont = False 590 end 591 object Label13: TLabel 592 Left = 16 593 Height = 26 594 Top = 20 595 Width = 59 596 Caption = 'Phone:' 597 ParentColor = False 598 ParentFont = False 599 end 600 object SpeedButtonHomeWeb: TSpeedButton 601 Left = 818 602 Height = 41 603 Hint = 'Open in web browser' 604 Top = 160 605 Width = 41 606 Images = Core.ImageList1 607 ImageIndex = 15 608 OnClick = SpeedButtonHomeWebClick 609 ShowHint = True 610 ParentShowHint = False 611 end 612 object SpeedButtonHomeEmail: TSpeedButton 613 Left = 386 614 Height = 41 615 Hint = 'Open in email client' 616 Top = 112 617 Width = 41 618 Images = Core.ImageList1 619 ImageIndex = 16 620 OnClick = SpeedButtonHomeEmailClick 621 ShowHint = True 622 ParentShowHint = False 638 Width = 41 639 Images = Core.ImageList1 640 ImageIndex = 16 641 OnClick = SpeedButtonHomeEmailClick 642 ShowHint = True 643 ParentShowHint = False 644 end 623 645 end 624 646 end 625 647 object TabSheetWork: TTabSheet 626 648 Caption = 'Work' 627 ClientHeight = 6 24628 ClientWidth = 9 60649 ClientHeight = 608 650 ClientWidth = 916 629 651 OnHide = TabSheetWorkHide 630 652 OnShow = TabSheetWorkShow 631 object EditOrganization: TEdit 632 Left = 173 633 Height = 43 634 Top = 64 635 Width = 254 636 ParentFont = False 637 TabOrder = 2 638 end 639 object LabelOrganization: TLabel 640 Left = 10 641 Height = 26 642 Top = 70 643 Width = 114 644 Caption = 'Organization:' 645 ParentColor = False 646 ParentFont = False 647 end 648 object LabelOrganization1: TLabel 649 Left = 451 650 Height = 26 651 Top = 24 652 Width = 106 653 Caption = 'Department:' 654 ParentColor = False 655 ParentFont = False 656 end 657 object EditDepartment: TEdit 658 Left = 608 659 Height = 43 660 Top = 20 661 Width = 254 662 ParentFont = False 663 TabOrder = 1 664 end 665 object Label18: TLabel 666 Left = 10 667 Height = 26 668 Top = 20 669 Width = 41 670 Caption = 'Title:' 671 ParentColor = False 672 ParentFont = False 673 end 674 object EditTitle: TEdit 675 Left = 173 676 Height = 43 677 Top = 16 678 Width = 254 679 ParentFont = False 653 object Panel3: TPanel 654 Left = 0 655 Height = 608 656 Top = 0 657 Width = 916 658 Align = alClient 659 BevelOuter = bvNone 660 ClientHeight = 608 661 ClientWidth = 916 680 662 TabOrder = 0 681 end 682 object EditWorkWeb: TEdit 683 Left = 173 684 Height = 43 685 Top = 256 686 Width = 641 687 ParentFont = False 688 TabOrder = 8 689 end 690 object Label32: TLabel 691 Left = 10 692 Height = 26 693 Top = 264 694 Width = 114 695 Caption = 'Web address:' 696 ParentColor = False 697 ParentFont = False 698 end 699 object GroupBox2: TGroupBox 700 Left = 8 701 Height = 272 702 Top = 312 703 Width = 883 704 Caption = 'Address' 705 ClientHeight = 270 706 ClientWidth = 881 707 TabOrder = 9 708 object Label31: TLabel 709 Left = 10 710 Height = 26 663 object EditOrganization: TEdit 664 Left = 173 665 Height = 33 666 Top = 64 667 Width = 254 668 ParentFont = False 669 TabOrder = 0 670 end 671 object LabelOrganization: TLabel 672 Left = 10 673 Height = 25 674 Top = 70 675 Width = 106 676 Caption = 'Organization:' 677 ParentColor = False 678 ParentFont = False 679 end 680 object LabelOrganization1: TLabel 681 Left = 451 682 Height = 25 683 Top = 24 684 Width = 99 685 Caption = 'Department:' 686 ParentColor = False 687 ParentFont = False 688 end 689 object EditDepartment: TEdit 690 Left = 608 691 Height = 33 692 Top = 20 693 Width = 254 694 ParentFont = False 695 TabOrder = 1 696 end 697 object Label18: TLabel 698 Left = 10 699 Height = 25 700 Top = 20 701 Width = 36 702 Caption = 'Title:' 703 ParentColor = False 704 ParentFont = False 705 end 706 object EditTitle: TEdit 707 Left = 173 708 Height = 33 709 Top = 16 710 Width = 254 711 ParentFont = False 712 TabOrder = 2 713 end 714 object EditWorkWeb: TEdit 715 Left = 173 716 Height = 33 717 Top = 256 718 Width = 641 719 ParentFont = False 720 TabOrder = 3 721 end 722 object Label32: TLabel 723 Left = 10 724 Height = 25 725 Top = 264 726 Width = 107 727 Caption = 'Web address:' 728 ParentColor = False 729 ParentFont = False 730 end 731 object GroupBox2: TGroupBox 732 Left = 8 733 Height = 272 734 Top = 312 735 Width = 883 736 Caption = 'Address' 737 ClientHeight = 242 738 ClientWidth = 879 739 TabOrder = 4 740 object Label31: TLabel 741 Left = 10 742 Height = 25 743 Top = 160 744 Width = 67 745 Caption = 'Country:' 746 ParentColor = False 747 ParentFont = False 748 end 749 object EditWorkAddressCountry: TEdit 750 Left = 173 751 Height = 33 752 Top = 152 753 Width = 254 754 ParentFont = False 755 TabOrder = 5 756 end 757 object EditWorkAddressRegion: TEdit 758 Left = 173 759 Height = 33 760 Top = 104 761 Width = 254 762 ParentFont = False 763 TabOrder = 4 764 end 765 object Label30: TLabel 766 Left = 10 767 Height = 25 768 Top = 112 769 Width = 59 770 Caption = 'Region:' 771 ParentColor = False 772 ParentFont = False 773 end 774 object Label35: TLabel 775 Left = 10 776 Height = 25 777 Top = 64 778 Width = 126 779 Caption = 'Extended street:' 780 ParentColor = False 781 ParentFont = False 782 end 783 object EditWorkAddressStreetExtended: TEdit 784 Left = 173 785 Height = 33 786 Top = 56 787 Width = 254 788 ParentFont = False 789 TabOrder = 2 790 end 791 object Label28: TLabel 792 Left = 10 793 Height = 25 794 Top = 18 795 Width = 49 796 Caption = 'Street:' 797 ParentColor = False 798 ParentFont = False 799 end 800 object EditWorkAddressStreet: TEdit 801 Left = 173 802 Height = 33 803 Top = 8 804 Width = 254 805 ParentFont = False 806 TabOrder = 0 807 end 808 object Label34: TLabel 809 Left = 451 810 Height = 25 811 Top = 18 812 Width = 122 813 Caption = 'Post office box:' 814 ParentColor = False 815 ParentFont = False 816 end 817 object EditWorkAddressPostOfficeBox: TEdit 818 Left = 608 819 Height = 33 820 Top = 8 821 Width = 254 822 ParentFont = False 823 TabOrder = 1 824 end 825 object EditWorkAddressCity: TEdit 826 Left = 608 827 Height = 33 828 Top = 56 829 Width = 254 830 ParentFont = False 831 TabOrder = 3 832 end 833 object Label29: TLabel 834 Left = 451 835 Height = 25 836 Top = 64 837 Width = 34 838 Caption = 'City:' 839 ParentColor = False 840 ParentFont = False 841 end 842 object EditWorkAddressPostalCode: TEdit 843 Left = 608 844 Height = 33 845 Top = 142 846 Width = 254 847 ParentFont = False 848 TabOrder = 6 849 end 850 object Label33: TLabel 851 Left = 451 852 Height = 25 853 Top = 150 854 Width = 95 855 Caption = 'Postal code:' 856 ParentColor = False 857 ParentFont = False 858 end 859 object ButtonWorkAddressShow: TButton 860 Left = 10 861 Height = 37 862 Top = 200 863 Width = 175 864 Caption = 'Show on map' 865 OnClick = ButtonWorkAddressShowClick 866 TabOrder = 7 867 end 868 end 869 object Label15: TLabel 870 Left = 10 871 Height = 25 872 Top = 116 873 Width = 54 874 Caption = 'Phone:' 875 ParentColor = False 876 ParentFont = False 877 end 878 object EditWorkPhone: TEdit 879 Left = 173 880 Height = 33 881 Top = 112 882 Width = 254 883 ParentFont = False 884 TabOrder = 5 885 end 886 object Label16: TLabel 887 Left = 451 888 Height = 25 889 Top = 112 890 Width = 29 891 Caption = 'Fax:' 892 ParentColor = False 893 ParentFont = False 894 end 895 object EditWorkFax: TEdit 896 Left = 608 897 Height = 33 898 Top = 112 899 Width = 254 900 ParentFont = False 901 TabOrder = 6 902 end 903 object EditWorkPager: TEdit 904 Left = 608 905 Height = 33 906 Top = 156 907 Width = 254 908 ParentFont = False 909 TabOrder = 7 910 end 911 object Label17: TLabel 912 Left = 448 913 Height = 25 711 914 Top = 160 712 Width = 71 713 Caption = 'Country:' 714 ParentColor = False 715 ParentFont = False 716 end 717 object EditWorkAddressCountry: TEdit 718 Left = 173 719 Height = 43 720 Top = 152 721 Width = 254 722 ParentFont = False 723 TabOrder = 5 724 end 725 object EditWorkAddressRegion: TEdit 726 Left = 173 727 Height = 43 728 Top = 104 729 Width = 254 730 ParentFont = False 731 TabOrder = 4 732 end 733 object Label30: TLabel 734 Left = 10 735 Height = 26 736 Top = 112 737 Width = 64 738 Caption = 'Region:' 739 ParentColor = False 740 ParentFont = False 741 end 742 object Label35: TLabel 743 Left = 10 744 Height = 26 745 Top = 64 746 Width = 137 747 Caption = 'Extended street:' 748 ParentColor = False 749 ParentFont = False 750 end 751 object EditWorkAddressStreetExtended: TEdit 752 Left = 173 753 Height = 43 754 Top = 56 755 Width = 254 756 ParentFont = False 757 TabOrder = 2 758 end 759 object Label28: TLabel 760 Left = 10 761 Height = 26 762 Top = 18 763 Width = 54 764 Caption = 'Street:' 765 ParentColor = False 766 ParentFont = False 767 end 768 object EditWorkAddressStreet: TEdit 769 Left = 173 770 Height = 43 771 Top = 8 772 Width = 254 773 ParentFont = False 774 TabOrder = 0 775 end 776 object Label34: TLabel 777 Left = 451 778 Height = 26 779 Top = 18 780 Width = 131 781 Caption = 'Post office box:' 782 ParentColor = False 783 ParentFont = False 784 end 785 object EditWorkAddressPostOfficeBox: TEdit 786 Left = 608 787 Height = 43 788 Top = 8 789 Width = 254 790 ParentFont = False 791 TabOrder = 1 792 end 793 object EditWorkAddressCity: TEdit 794 Left = 608 795 Height = 43 796 Top = 56 797 Width = 254 798 ParentFont = False 799 TabOrder = 3 800 end 801 object Label29: TLabel 802 Left = 451 803 Height = 26 804 Top = 64 805 Width = 36 806 Caption = 'City:' 807 ParentColor = False 808 ParentFont = False 809 end 810 object EditWorkAddressPostalCode: TEdit 811 Left = 608 812 Height = 43 813 Top = 142 814 Width = 254 815 ParentFont = False 816 TabOrder = 6 817 end 818 object Label33: TLabel 819 Left = 451 820 Height = 26 821 Top = 150 822 Width = 103 823 Caption = 'Postal code:' 824 ParentColor = False 825 ParentFont = False 826 end 827 object ButtonWorkAddressShow: TButton 828 Left = 10 829 Height = 37 830 Top = 200 831 Width = 175 832 Caption = 'Show on map' 833 OnClick = ButtonWorkAddressShowClick 834 TabOrder = 7 835 end 836 end 837 object Label15: TLabel 838 Left = 10 839 Height = 26 840 Top = 116 841 Width = 59 842 Caption = 'Phone:' 843 ParentColor = False 844 ParentFont = False 845 end 846 object EditWorkPhone: TEdit 847 Left = 173 848 Height = 43 849 Top = 112 850 Width = 254 851 ParentFont = False 852 TabOrder = 3 853 end 854 object Label16: TLabel 855 Left = 451 856 Height = 26 857 Top = 112 858 Width = 34 859 Caption = 'Fax:' 860 ParentColor = False 861 ParentFont = False 862 end 863 object EditWorkFax: TEdit 864 Left = 608 865 Height = 43 866 Top = 112 867 Width = 254 868 ParentFont = False 869 TabOrder = 4 870 end 871 object EditWorkPager: TEdit 872 Left = 608 873 Height = 43 874 Top = 156 875 Width = 254 876 ParentFont = False 877 TabOrder = 6 878 end 879 object Label17: TLabel 880 Left = 448 881 Height = 26 882 Top = 160 883 Width = 54 884 Caption = 'Pager:' 885 ParentColor = False 886 ParentFont = False 887 end 888 object EditWorkMobile: TEdit 889 Left = 173 890 Height = 43 891 Top = 160 892 Width = 254 893 ParentFont = False 894 TabOrder = 5 895 end 896 object Label19: TLabel 897 Left = 10 898 Height = 26 899 Top = 160 900 Width = 63 901 Caption = 'Mobile:' 902 ParentColor = False 903 ParentFont = False 904 end 905 object Label8: TLabel 906 Left = 10 907 Height = 26 908 Top = 210 909 Width = 58 910 Caption = 'E-mail:' 911 ParentColor = False 912 ParentFont = False 913 end 914 object EditWorkEmail: TEdit 915 Left = 173 916 Height = 43 917 Top = 210 918 Width = 209 919 ParentFont = False 920 TabOrder = 7 921 end 922 object SpeedButtonWorkWeb: TSpeedButton 923 Left = 821 924 Height = 41 925 Hint = 'Open in web browser' 926 Top = 256 927 Width = 41 928 Images = Core.ImageList1 929 ImageIndex = 15 930 OnClick = SpeedButtonWorkWebClick 931 ShowHint = True 932 ParentShowHint = False 933 end 934 object SpeedButtonWorkEmail: TSpeedButton 935 Left = 386 936 Height = 41 937 Hint = 'Open in email client' 938 Top = 210 939 Width = 41 940 Images = Core.ImageList1 941 ImageIndex = 16 942 OnClick = SpeedButtonWorkEmailClick 943 ShowHint = True 944 ParentShowHint = False 915 Width = 48 916 Caption = 'Pager:' 917 ParentColor = False 918 ParentFont = False 919 end 920 object EditWorkMobile: TEdit 921 Left = 173 922 Height = 33 923 Top = 160 924 Width = 254 925 ParentFont = False 926 TabOrder = 8 927 end 928 object Label19: TLabel 929 Left = 10 930 Height = 25 931 Top = 160 932 Width = 59 933 Caption = 'Mobile:' 934 ParentColor = False 935 ParentFont = False 936 end 937 object Label8: TLabel 938 Left = 10 939 Height = 25 940 Top = 210 941 Width = 53 942 Caption = 'E-mail:' 943 ParentColor = False 944 ParentFont = False 945 end 946 object EditWorkEmail: TEdit 947 Left = 173 948 Height = 33 949 Top = 210 950 Width = 209 951 ParentFont = False 952 TabOrder = 9 953 end 954 object SpeedButtonWorkWeb: TSpeedButton 955 Left = 821 956 Height = 41 957 Hint = 'Open in web browser' 958 Top = 256 959 Width = 41 960 Images = Core.ImageList1 961 ImageIndex = 15 962 OnClick = SpeedButtonWorkWebClick 963 ShowHint = True 964 ParentShowHint = False 965 end 966 object SpeedButtonWorkEmail: TSpeedButton 967 Left = 386 968 Height = 41 969 Hint = 'Open in email client' 970 Top = 210 971 Width = 41 972 Images = Core.ImageList1 973 ImageIndex = 16 974 OnClick = SpeedButtonWorkEmailClick 975 ShowHint = True 976 ParentShowHint = False 977 end 945 978 end 946 979 end 947 980 object TabSheetChat: TTabSheet 948 981 Caption = 'Chat' 949 ClientHeight = 6 24950 ClientWidth = 9 60982 ClientHeight = 608 983 ClientWidth = 916 951 984 OnHide = TabSheetChatHide 952 985 OnShow = TabSheetChatShow 953 object Label20: TLabel 954 Left = 10 955 Height = 26 956 Top = 24 957 Width = 59 958 Caption = 'Jabber:' 959 ParentColor = False 960 ParentFont = False 961 end 962 object EditJabber: TEdit 963 Left = 173 964 Height = 43 965 Top = 16 966 Width = 254 967 ParentFont = False 986 object Panel4: TPanel 987 Left = 0 988 Height = 608 989 Top = 0 990 Width = 916 991 Align = alClient 992 BevelOuter = bvNone 993 ClientHeight = 608 994 ClientWidth = 916 968 995 TabOrder = 0 969 end 970 object LabelOrganization2: TLabel 971 Left = 10 972 Height = 26 973 Top = 264 974 Width = 55 975 Caption = 'Skype:' 976 ParentColor = False 977 ParentFont = False 978 end 979 object EditSkype: TEdit 980 Left = 173 981 Height = 43 982 Top = 256 983 Width = 254 984 ParentFont = False 985 TabOrder = 10 986 end 987 object Label21: TLabel 988 Left = 10 989 Height = 26 990 Top = 72 991 Width = 45 992 Caption = 'MSN:' 993 ParentColor = False 994 ParentFont = False 995 end 996 object EditMsn: TEdit 997 Left = 173 998 Height = 43 999 Top = 64 1000 Width = 254 1001 ParentFont = False 1002 TabOrder = 2 1003 end 1004 object LabelOrganization3: TLabel 1005 Left = 451 1006 Height = 26 1007 Top = 72 1008 Width = 36 1009 Caption = 'ICQ:' 1010 ParentColor = False 1011 ParentFont = False 1012 end 1013 object EditIcq: TEdit 1014 Left = 608 1015 Height = 43 1016 Top = 68 1017 Width = 254 1018 ParentFont = False 1019 TabOrder = 3 1020 end 1021 object Label23: TLabel 1022 Left = 10 1023 Height = 26 1024 Top = 120 1025 Width = 33 1026 Caption = 'IRC:' 1027 ParentColor = False 1028 ParentFont = False 1029 end 1030 object EditIrc: TEdit 1031 Left = 173 1032 Height = 43 1033 Top = 112 1034 Width = 254 1035 ParentFont = False 1036 TabOrder = 4 1037 end 1038 object LabelOrganization4: TLabel 1039 Left = 451 1040 Height = 26 1041 Top = 120 1042 Width = 39 1043 Caption = 'AIM:' 1044 ParentColor = False 1045 ParentFont = False 1046 end 1047 object EditAim: TEdit 1048 Left = 608 1049 Height = 43 1050 Top = 116 1051 Width = 254 1052 ParentFont = False 1053 TabOrder = 5 1054 end 1055 object Label47: TLabel 1056 Left = 10 1057 Height = 26 1058 Top = 168 1059 Width = 105 1060 Caption = 'Google Talk:' 1061 ParentColor = False 1062 ParentFont = False 1063 end 1064 object EditGoogleTalk: TEdit 1065 Left = 173 1066 Height = 43 1067 Top = 160 1068 Width = 254 1069 ParentFont = False 1070 TabOrder = 6 1071 end 1072 object LabelOrganization5: TLabel 1073 Left = 451 1074 Height = 26 1075 Top = 168 1076 Width = 62 1077 Caption = 'Yahoo!:' 1078 ParentColor = False 1079 ParentFont = False 1080 end 1081 object EditYahoo: TEdit 1082 Left = 608 1083 Height = 43 1084 Top = 164 1085 Width = 254 1086 ParentFont = False 1087 TabOrder = 7 1088 end 1089 object Label48: TLabel 1090 Left = 10 1091 Height = 26 1092 Top = 216 1093 Width = 121 1094 Caption = 'Windows Live:' 1095 ParentColor = False 1096 ParentFont = False 1097 end 1098 object EditWindowsLive: TEdit 1099 Left = 173 1100 Height = 43 1101 Top = 208 1102 Width = 254 1103 ParentFont = False 1104 TabOrder = 8 1105 end 1106 object LabelOrganization6: TLabel 1107 Left = 451 1108 Height = 26 1109 Top = 216 1110 Width = 33 1111 Caption = 'QQ:' 1112 ParentColor = False 1113 ParentFont = False 1114 end 1115 object EditQq: TEdit 1116 Left = 608 1117 Height = 43 1118 Top = 212 1119 Width = 254 1120 ParentFont = False 1121 TabOrder = 9 1122 end 1123 object Label55: TLabel 1124 Left = 451 1125 Height = 26 1126 Top = 24 1127 Width = 59 1128 Caption = 'Matrix:' 1129 ParentColor = False 1130 ParentFont = False 1131 end 1132 object EditMatrix: TEdit 1133 Left = 608 1134 Height = 43 1135 Top = 20 1136 Width = 254 1137 ParentFont = False 1138 TabOrder = 1 1139 end 1140 object Label57: TLabel 1141 Left = 10 1142 Height = 26 1143 Top = 312 1144 Width = 99 1145 Caption = 'GroupWise:' 1146 ParentColor = False 1147 ParentFont = False 1148 end 1149 object EditGroupWise: TEdit 1150 Left = 173 1151 Height = 43 1152 Top = 304 1153 Width = 254 1154 ParentFont = False 1155 TabOrder = 11 1156 end 1157 object LabelOrganization12: TLabel 1158 Left = 451 1159 Height = 26 1160 Top = 312 1161 Width = 95 1162 Caption = 'GaduGadu:' 1163 ParentColor = False 1164 ParentFont = False 1165 end 1166 object EditGaduGadu: TEdit 1167 Left = 608 1168 Height = 43 1169 Top = 308 1170 Width = 254 1171 ParentFont = False 1172 TabOrder = 12 996 object Label20: TLabel 997 Left = 10 998 Height = 25 999 Top = 24 1000 Width = 56 1001 Caption = 'Jabber:' 1002 ParentColor = False 1003 ParentFont = False 1004 end 1005 object EditJabber: TEdit 1006 Left = 173 1007 Height = 33 1008 Top = 16 1009 Width = 254 1010 ParentFont = False 1011 TabOrder = 0 1012 end 1013 object LabelOrganization2: TLabel 1014 Left = 10 1015 Height = 25 1016 Top = 264 1017 Width = 52 1018 Caption = 'Skype:' 1019 ParentColor = False 1020 ParentFont = False 1021 end 1022 object EditSkype: TEdit 1023 Left = 173 1024 Height = 33 1025 Top = 256 1026 Width = 254 1027 ParentFont = False 1028 TabOrder = 1 1029 end 1030 object Label21: TLabel 1031 Left = 10 1032 Height = 25 1033 Top = 72 1034 Width = 43 1035 Caption = 'MSN:' 1036 ParentColor = False 1037 ParentFont = False 1038 end 1039 object EditMsn: TEdit 1040 Left = 173 1041 Height = 33 1042 Top = 64 1043 Width = 254 1044 ParentFont = False 1045 TabOrder = 2 1046 end 1047 object LabelOrganization3: TLabel 1048 Left = 451 1049 Height = 25 1050 Top = 72 1051 Width = 34 1052 Caption = 'ICQ:' 1053 ParentColor = False 1054 ParentFont = False 1055 end 1056 object EditIcq: TEdit 1057 Left = 608 1058 Height = 33 1059 Top = 68 1060 Width = 254 1061 ParentFont = False 1062 TabOrder = 3 1063 end 1064 object Label23: TLabel 1065 Left = 10 1066 Height = 25 1067 Top = 120 1068 Width = 31 1069 Caption = 'IRC:' 1070 ParentColor = False 1071 ParentFont = False 1072 end 1073 object EditIrc: TEdit 1074 Left = 173 1075 Height = 33 1076 Top = 112 1077 Width = 254 1078 ParentFont = False 1079 TabOrder = 4 1080 end 1081 object LabelOrganization4: TLabel 1082 Left = 451 1083 Height = 25 1084 Top = 120 1085 Width = 37 1086 Caption = 'AIM:' 1087 ParentColor = False 1088 ParentFont = False 1089 end 1090 object EditAim: TEdit 1091 Left = 608 1092 Height = 33 1093 Top = 116 1094 Width = 254 1095 ParentFont = False 1096 TabOrder = 5 1097 end 1098 object Label47: TLabel 1099 Left = 10 1100 Height = 25 1101 Top = 168 1102 Width = 96 1103 Caption = 'Google Talk:' 1104 ParentColor = False 1105 ParentFont = False 1106 end 1107 object EditGoogleTalk: TEdit 1108 Left = 173 1109 Height = 33 1110 Top = 160 1111 Width = 254 1112 ParentFont = False 1113 TabOrder = 6 1114 end 1115 object LabelOrganization5: TLabel 1116 Left = 451 1117 Height = 25 1118 Top = 168 1119 Width = 58 1120 Caption = 'Yahoo!:' 1121 ParentColor = False 1122 ParentFont = False 1123 end 1124 object EditYahoo: TEdit 1125 Left = 608 1126 Height = 33 1127 Top = 164 1128 Width = 254 1129 ParentFont = False 1130 TabOrder = 7 1131 end 1132 object Label48: TLabel 1133 Left = 10 1134 Height = 25 1135 Top = 216 1136 Width = 113 1137 Caption = 'Windows Live:' 1138 ParentColor = False 1139 ParentFont = False 1140 end 1141 object EditWindowsLive: TEdit 1142 Left = 173 1143 Height = 33 1144 Top = 208 1145 Width = 254 1146 ParentFont = False 1147 TabOrder = 8 1148 end 1149 object LabelOrganization6: TLabel 1150 Left = 451 1151 Height = 25 1152 Top = 216 1153 Width = 32 1154 Caption = 'QQ:' 1155 ParentColor = False 1156 ParentFont = False 1157 end 1158 object EditQq: TEdit 1159 Left = 608 1160 Height = 33 1161 Top = 212 1162 Width = 254 1163 ParentFont = False 1164 TabOrder = 9 1165 end 1166 object Label55: TLabel 1167 Left = 451 1168 Height = 25 1169 Top = 24 1170 Width = 53 1171 Caption = 'Matrix:' 1172 ParentColor = False 1173 ParentFont = False 1174 end 1175 object EditMatrix: TEdit 1176 Left = 608 1177 Height = 33 1178 Top = 20 1179 Width = 254 1180 ParentFont = False 1181 TabOrder = 10 1182 end 1183 object Label57: TLabel 1184 Left = 10 1185 Height = 25 1186 Top = 312 1187 Width = 92 1188 Caption = 'GroupWise:' 1189 ParentColor = False 1190 ParentFont = False 1191 end 1192 object EditGroupWise: TEdit 1193 Left = 173 1194 Height = 33 1195 Top = 304 1196 Width = 254 1197 ParentFont = False 1198 TabOrder = 11 1199 end 1200 object LabelOrganization12: TLabel 1201 Left = 451 1202 Height = 25 1203 Top = 312 1204 Width = 88 1205 Caption = 'GaduGadu:' 1206 ParentColor = False 1207 ParentFont = False 1208 end 1209 object EditGaduGadu: TEdit 1210 Left = 608 1211 Height = 33 1212 Top = 308 1213 Width = 254 1214 ParentFont = False 1215 TabOrder = 12 1216 end 1173 1217 end 1174 1218 end 1175 1219 object TabSheetSocial: TTabSheet 1176 1220 Caption = 'Social' 1177 ClientHeight = 6 241178 ClientWidth = 9 601221 ClientHeight = 608 1222 ClientWidth = 916 1179 1223 OnHide = TabSheetSocialHide 1180 1224 OnShow = TabSheetSocialShow 1181 object Label50: TLabel 1182 Left = 451 1183 Height = 26 1184 Top = 164 1185 Width = 79 1186 Caption = 'Myspace:' 1187 ParentColor = False 1188 ParentFont = False 1189 end 1190 object EditMySpace: TEdit 1191 Left = 608 1192 Height = 43 1193 Top = 160 1194 Width = 254 1195 ParentFont = False 1196 TabOrder = 7 1197 end 1198 object EditTwitter: TEdit 1199 Left = 173 1200 Height = 43 1201 Top = 64 1202 Width = 254 1203 ParentFont = False 1204 TabOrder = 2 1205 end 1206 object Label51: TLabel 1207 Left = 10 1208 Height = 26 1209 Top = 68 1210 Width = 63 1211 Caption = 'Twitter:' 1212 ParentColor = False 1213 ParentFont = False 1214 end 1215 object Label52: TLabel 1216 Left = 10 1217 Height = 26 1218 Top = 116 1219 Width = 92 1220 Caption = 'Instagram:' 1221 ParentColor = False 1222 ParentFont = False 1223 end 1224 object Label53: TLabel 1225 Left = 10 1226 Height = 26 1227 Top = 164 1228 Width = 78 1229 Caption = 'LinkedIn:' 1230 ParentColor = False 1231 ParentFont = False 1232 end 1233 object Label54: TLabel 1234 Left = 10 1235 Height = 26 1236 Top = 212 1237 Width = 83 1238 Caption = 'Snapchat:' 1239 ParentColor = False 1240 ParentFont = False 1241 end 1242 object EditSnapchat: TEdit 1243 Left = 173 1244 Height = 43 1245 Top = 208 1246 Width = 254 1247 ParentFont = False 1248 TabOrder = 8 1249 end 1250 object EditLinkedIn: TEdit 1251 Left = 173 1252 Height = 43 1253 Top = 160 1254 Width = 254 1255 ParentFont = False 1256 TabOrder = 6 1257 end 1258 object EditInstagram: TEdit 1259 Left = 173 1260 Height = 43 1261 Top = 112 1262 Width = 254 1263 ParentFont = False 1264 TabOrder = 4 1265 end 1266 object LabelOrganization7: TLabel 1267 Left = 451 1268 Height = 26 1269 Top = 24 1270 Width = 84 1271 Caption = 'PeerTube:' 1272 ParentColor = False 1273 ParentFont = False 1274 end 1275 object LabelOrganization8: TLabel 1276 Left = 451 1277 Height = 26 1278 Top = 116 1279 Width = 77 1280 Caption = 'YouTube:' 1281 ParentColor = False 1282 ParentFont = False 1283 end 1284 object EditMastodon: TEdit 1285 Left = 171 1286 Height = 43 1287 Top = 16 1288 Width = 254 1289 ParentFont = False 1225 object Panel5: TPanel 1226 Left = 0 1227 Height = 608 1228 Top = 0 1229 Width = 916 1230 Align = alClient 1231 BevelOuter = bvNone 1232 ClientHeight = 608 1233 ClientWidth = 916 1290 1234 TabOrder = 0 1291 end 1292 object LabelOrganization9: TLabel 1293 Left = 10 1294 Height = 26 1295 Top = 24 1296 Width = 90 1297 Caption = 'Mastodon:' 1298 ParentColor = False 1299 ParentFont = False 1300 end 1301 object LabelOrganization10: TLabel 1302 Left = 451 1303 Height = 26 1304 Top = 212 1305 Width = 59 1306 Caption = 'Reddit:' 1307 ParentColor = False 1308 ParentFont = False 1309 end 1310 object EditReddit: TEdit 1311 Left = 608 1312 Height = 43 1313 Top = 208 1314 Width = 254 1315 ParentFont = False 1316 TabOrder = 9 1317 end 1318 object EditPeerTube: TEdit 1319 Left = 608 1320 Height = 43 1321 Top = 16 1322 Width = 254 1323 ParentFont = False 1324 TabOrder = 1 1325 end 1326 object EditYouTube: TEdit 1327 Left = 608 1328 Height = 43 1329 Top = 112 1330 Width = 254 1331 ParentFont = False 1332 TabOrder = 5 1333 end 1334 object EditFacebook: TEdit 1335 Left = 608 1336 Height = 43 1337 Top = 64 1338 Width = 254 1339 ParentFont = False 1340 TabOrder = 3 1341 end 1342 object LabelOrganization11: TLabel 1343 Left = 451 1344 Height = 26 1345 Top = 68 1346 Width = 86 1347 Caption = 'Facebook:' 1348 ParentColor = False 1349 ParentFont = False 1235 object Label50: TLabel 1236 Left = 451 1237 Height = 25 1238 Top = 164 1239 Width = 74 1240 Caption = 'Myspace:' 1241 ParentColor = False 1242 ParentFont = False 1243 end 1244 object EditMySpace: TEdit 1245 Left = 608 1246 Height = 33 1247 Top = 160 1248 Width = 254 1249 ParentFont = False 1250 TabOrder = 0 1251 end 1252 object EditTwitter: TEdit 1253 Left = 173 1254 Height = 33 1255 Top = 64 1256 Width = 254 1257 ParentFont = False 1258 TabOrder = 1 1259 end 1260 object Label51: TLabel 1261 Left = 10 1262 Height = 25 1263 Top = 68 1264 Width = 56 1265 Caption = 'Twitter:' 1266 ParentColor = False 1267 ParentFont = False 1268 end 1269 object Label52: TLabel 1270 Left = 10 1271 Height = 25 1272 Top = 116 1273 Width = 84 1274 Caption = 'Instagram:' 1275 ParentColor = False 1276 ParentFont = False 1277 end 1278 object Label53: TLabel 1279 Left = 10 1280 Height = 25 1281 Top = 164 1282 Width = 70 1283 Caption = 'LinkedIn:' 1284 ParentColor = False 1285 ParentFont = False 1286 end 1287 object Label54: TLabel 1288 Left = 10 1289 Height = 25 1290 Top = 212 1291 Width = 77 1292 Caption = 'Snapchat:' 1293 ParentColor = False 1294 ParentFont = False 1295 end 1296 object EditSnapchat: TEdit 1297 Left = 173 1298 Height = 33 1299 Top = 208 1300 Width = 254 1301 ParentFont = False 1302 TabOrder = 2 1303 end 1304 object EditLinkedIn: TEdit 1305 Left = 173 1306 Height = 33 1307 Top = 160 1308 Width = 254 1309 ParentFont = False 1310 TabOrder = 3 1311 end 1312 object EditInstagram: TEdit 1313 Left = 173 1314 Height = 33 1315 Top = 112 1316 Width = 254 1317 ParentFont = False 1318 TabOrder = 4 1319 end 1320 object LabelOrganization7: TLabel 1321 Left = 451 1322 Height = 25 1323 Top = 24 1324 Width = 76 1325 Caption = 'PeerTube:' 1326 ParentColor = False 1327 ParentFont = False 1328 end 1329 object LabelOrganization8: TLabel 1330 Left = 451 1331 Height = 25 1332 Top = 116 1333 Width = 72 1334 Caption = 'YouTube:' 1335 ParentColor = False 1336 ParentFont = False 1337 end 1338 object EditMastodon: TEdit 1339 Left = 171 1340 Height = 33 1341 Top = 16 1342 Width = 254 1343 ParentFont = False 1344 TabOrder = 5 1345 end 1346 object LabelOrganization9: TLabel 1347 Left = 10 1348 Height = 25 1349 Top = 24 1350 Width = 86 1351 Caption = 'Mastodon:' 1352 ParentColor = False 1353 ParentFont = False 1354 end 1355 object LabelOrganization10: TLabel 1356 Left = 451 1357 Height = 25 1358 Top = 212 1359 Width = 55 1360 Caption = 'Reddit:' 1361 ParentColor = False 1362 ParentFont = False 1363 end 1364 object EditReddit: TEdit 1365 Left = 608 1366 Height = 33 1367 Top = 208 1368 Width = 254 1369 ParentFont = False 1370 TabOrder = 6 1371 end 1372 object EditPeerTube: TEdit 1373 Left = 608 1374 Height = 33 1375 Top = 16 1376 Width = 254 1377 ParentFont = False 1378 TabOrder = 7 1379 end 1380 object EditYouTube: TEdit 1381 Left = 608 1382 Height = 33 1383 Top = 112 1384 Width = 254 1385 ParentFont = False 1386 TabOrder = 8 1387 end 1388 object EditFacebook: TEdit 1389 Left = 608 1390 Height = 33 1391 Top = 64 1392 Width = 254 1393 ParentFont = False 1394 TabOrder = 9 1395 end 1396 object LabelOrganization11: TLabel 1397 Left = 451 1398 Height = 25 1399 Top = 68 1400 Width = 80 1401 Caption = 'Facebook:' 1402 ParentColor = False 1403 ParentFont = False 1404 end 1350 1405 end 1351 1406 end 1352 1407 object TabSheetOthers: TTabSheet 1353 1408 Caption = 'Others' 1354 ClientHeight = 6 241355 ClientWidth = 9 601409 ClientHeight = 608 1410 ClientWidth = 916 1356 1411 OnHide = TabSheetOthersHide 1357 1412 OnShow = TabSheetOthersShow 1358 1413 object PanelNotes: TPanel 1359 1414 Left = 0 1360 Height = 6 241415 Height = 608 1361 1416 Top = 0 1362 Width = 5 841417 Width = 540 1363 1418 Align = alClient 1364 1419 BevelOuter = bvNone 1365 ClientHeight = 6 241366 ClientWidth = 5 841420 ClientHeight = 608 1421 ClientWidth = 540 1367 1422 TabOrder = 0 1368 1423 object MemoNotes: TMemo 1369 1424 Left = 8 1370 Height = 5 611425 Height = 545 1371 1426 Top = 47 1372 Width = 5 641427 Width = 520 1373 1428 Anchors = [akTop, akLeft, akRight, akBottom] 1374 1429 ParentFont = False … … 1379 1434 object Label6: TLabel 1380 1435 Left = 8 1381 Height = 2 61436 Height = 25 1382 1437 Top = 16 1383 Width = 5 51438 Width = 51 1384 1439 Caption = 'Notes:' 1385 1440 ParentColor = False … … 1388 1443 end 1389 1444 object Splitter1: TSplitter 1390 Left = 5 841391 Height = 6 241445 Left = 540 1446 Height = 608 1392 1447 Top = 0 1393 1448 Width = 8 … … 1396 1451 end 1397 1452 object PanelQrCode: TPanel 1398 Left = 5 921399 Height = 6 241453 Left = 548 1454 Height = 608 1400 1455 Top = 0 1401 1456 Width = 368 1402 1457 Align = alRight 1403 1458 BevelOuter = bvNone 1404 ClientHeight = 6 241459 ClientHeight = 608 1405 1460 ClientWidth = 368 1406 1461 TabOrder = 2 … … 1408 1463 object Label1: TLabel 1409 1464 Left = 8 1410 Height = 2 61465 Height = 25 1411 1466 Top = 16 1412 Width = 7 61467 Width = 73 1413 1468 Caption = 'QR code:' 1414 1469 ParentColor = False … … 1432 1487 object ActionList1: TActionList 1433 1488 Images = Core.ImageList1 1434 Left = 6 071435 Top = 5841489 Left = 648 1490 Top = 480 1436 1491 object APhotoLoad: TAction 1437 1492 Caption = 'Load from file' … … 1457 1512 object PopupMenuPhoto: TPopupMenu 1458 1513 Images = Core.ImageList1 1459 Left = 8 291460 Top = 5841514 Left = 832 1515 Top = 480 1461 1516 object MenuItem4: TMenuItem 1462 1517 Action = APhotoShow … … 1476 1531 end 1477 1532 object OpenPictureDialog1: TOpenPictureDialog 1478 Left = 16 81479 Top = 5521533 Left = 160 1534 Top = 488 1480 1535 end 1481 1536 object SavePictureDialog1: TSavePictureDialog 1482 Left = 1691483 Top = 4 681537 Left = 56 1538 Top = 472 1484 1539 end 1485 1540 object CalendarDialog1: TCalendarDialog … … 1488 1543 OKCaption = '&OK' 1489 1544 CancelCaption = 'Cancel' 1490 Left = 4301491 Top = 5841545 Left = 328 1546 Top = 464 1492 1547 end 1493 1548 object PopupMenuQrCode: TPopupMenu 1494 Left = 5071495 Top = 4 531549 Left = 488 1550 Top = 480 1496 1551 object MenuItemSaveQrToFile: TMenuItem 1497 1552 Caption = 'Save to file' -
trunk/Forms/FormContact.pas
r162 r165 171 171 OpenPictureDialog1: TOpenPictureDialog; 172 172 PageControlContact: TPageControl; 173 Panel1: TPanel; 174 Panel2: TPanel; 175 Panel3: TPanel; 176 Panel4: TPanel; 177 Panel5: TPanel; 173 178 PanelNotes: TPanel; 174 179 PanelQrCode: TPanel; -
trunk/Forms/FormImage.lfm
r149 r165 1 1 object FormImage: TFormImage 2 Left = 7612 Left = 924 3 3 Height = 524 4 Top = 5394 Top = 458 5 5 Width = 711 6 6 Caption = 'Photo' … … 10 10 Constraints.MinWidth = 711 11 11 DesignTimePPI = 144 12 OnClose = FormClose13 12 OnCreate = FormCreate 14 13 OnDestroy = FormDestroy 15 14 OnShow = FormShow 16 LCLVersion = '2.2. 0.4'15 LCLVersion = '2.2.6.0' 17 16 object ImagePhoto: TImage 18 17 Left = 15 … … 57 56 object EditUrl: TEdit 58 57 Left = 84 59 Height = 4260 Top = 4 1758 Height = 33 59 Top = 426 61 60 Width = 610 62 61 Anchors = [akLeft, akRight, akBottom] … … 85 84 end 86 85 object Label1: TLabel 87 Left = 1 588 Height = 2 689 Top = 4 2590 Width = 3 886 Left = 16 87 Height = 25 88 Top = 432 89 Width = 35 91 90 Anchors = [akLeft, akBottom] 92 91 Caption = 'URL:' 92 ParentColor = False 93 93 end 94 94 object OpenPictureDialog1: TOpenPictureDialog -
trunk/Forms/FormMain.lfm
r164 r165 1 1 object FormMain: TFormMain 2 Left = 03 Height = 13604 Top = 405 Width = 25602 Left = 510 3 Height = 822 4 Top = 272 5 Width = 1254 6 6 AllowDropFiles = True 7 7 Caption = 'vCard Studio' 8 ClientHeight = 13309 ClientWidth = 25608 ClientHeight = 792 9 ClientWidth = 1254 10 10 DesignTimePPI = 144 11 11 Menu = MainMenu1 12 OnActivate = FormActivate 12 13 OnClose = FormClose 13 14 OnCloseQuery = FormCloseQuery … … 23 24 Height = 43 24 25 Top = 0 25 Width = 256026 Width = 1254 26 27 AutoSize = True 27 28 Bands = < -
trunk/Forms/FormMain.pas
r164 r165 56 56 ToolButton7: TToolButton; 57 57 ToolButton8: TToolButton; 58 procedure FormActivate(Sender: TObject); 58 59 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 59 60 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); … … 99 100 end; 100 101 102 procedure TFormMain.FormActivate(Sender: TObject); 103 begin 104 Core.Core.Initialize; 105 end; 106 101 107 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean); 102 108 begin … … 110 116 Core.Core.OnDataFileChange := DataFileChangeExecute; 111 117 Core.Core.OnLastOpenedListChange := LastOpenedFileChangeExecute; 118 LastOpenedFileChangeExecute(Self); 112 119 LoadConfig; 113 120 end; … … 143 150 FormContacts.Context := TRegistryContext.Create(Core.Core.ApplicationInfo1.RegistryRoot, 144 151 Core.Core.ApplicationInfo1.RegistryKey + '\ContactsColumns'); 145 FormContacts.Contacts := TVCardFile(Core.Core.DataFile).VCard.Contacts;146 152 FormContacts.ManualDock(Self, nil, alClient); 147 153 FormContacts.Align := alClient; -
trunk/Packages/Common/FormEx.pas
r162 r165 68 68 end; 69 69 70 PersistentForm.Load(Self); 70 71 Translator.TranslateComponentRecursive(Self); 71 72 ThemeManager.UseTheme(Self);
Note:
See TracChangeset
for help on using the changeset viewer.
