- Timestamp:
- Apr 8, 2022, 9:43:55 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 30 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCompare.lfm
r123 r128 1 1 object FormCompare: TFormCompare 2 2 Left = 574 3 Height = 9253 Height = 888 4 4 Top = 322 5 Width = 1 2415 Width = 1191 6 6 Caption = 'Compare' 7 ClientHeight = 8 908 ClientWidth = 1 2419 DesignTimePPI = 1 507 ClientHeight = 854 8 ClientWidth = 1191 9 DesignTimePPI = 144 10 10 Menu = MainMenu1 11 11 OnActivate = FormActivate … … 18 18 object PanelLeft: TPanel 19 19 Left = 0 20 Height = 8 9020 Height = 854 21 21 Top = 0 22 Width = 60822 Width = 584 23 23 Align = alLeft 24 24 BevelOuter = bvNone 25 ClientHeight = 8 9026 ClientWidth = 60825 ClientHeight = 854 26 ClientWidth = 584 27 27 TabOrder = 0 28 28 object EditLeftFileName: TEdit 29 Left = 1 630 Height = 4 329 Left = 15 30 Height = 42 31 31 Top = 11 32 Width = 5 4432 Width = 523 33 33 Anchors = [akTop, akLeft, akRight] 34 34 ReadOnly = True … … 36 36 end 37 37 inline SynEditLeft: TSynEditEx 38 Left = 1 639 Height = 81340 Top = 6 441 Width = 5 8538 Left = 15 39 Height = 781 40 Top = 61 41 Width = 562 42 42 Anchors = [akTop, akLeft, akRight, akBottom] 43 Font.Height = 1 343 Font.Height = 12 44 44 Font.Name = 'DejaVu Sans Mono' 45 45 Font.Pitch = fpFixed … … 48 48 ParentFont = False 49 49 TabOrder = 1 50 Gutter.Width = 8050 Gutter.Width = 75 51 51 Gutter.MouseActions = <> 52 52 RightGutter.Width = 0 … … 499 499 inline SynLeftGutterPartList1: TSynGutterPartList 500 500 object SynGutterMarks1: TSynGutterMarks 501 Width = 3 8501 Width = 36 502 502 MouseActions = <> 503 503 end 504 504 object SynGutterLineNumber1: TSynGutterLineNumber 505 Width = 1 7505 Width = 15 506 506 MouseActions = <> 507 507 MarkupInfo.Background = clBtnFace … … 525 525 end 526 526 object SynGutterCodeFolding1: TSynGutterCodeFolding 527 Width = 1 6527 Width = 15 528 528 MouseActions = <> 529 529 MarkupInfo.Background = clNone … … 535 535 end 536 536 object SpeedButtonOpenLeft: TSpeedButton 537 Left = 5 65538 Height = 3 4539 Top = 1 5540 Width = 3 6537 Left = 542 538 Height = 33 539 Top = 14 540 Width = 35 541 541 Action = AFileOpenLeft 542 542 Anchors = [akTop, akRight] … … 547 547 end 548 548 object Splitter1: TSplitter 549 Left = 608550 Height = 8 90549 Left = 584 550 Height = 854 551 551 Top = 0 552 552 Width = 8 553 553 end 554 554 object PanelRight: TPanel 555 Left = 616556 Height = 8 90555 Left = 592 556 Height = 854 557 557 Top = 0 558 Width = 625558 Width = 599 559 559 Align = alClient 560 560 BevelOuter = bvNone 561 ClientHeight = 8 90562 ClientWidth = 625561 ClientHeight = 854 562 ClientWidth = 599 563 563 TabOrder = 2 564 564 object EditRightFileName: TEdit 565 565 Left = 12 566 Height = 4 3566 Height = 42 567 567 Top = 11 568 Width = 5 51568 Width = 527 569 569 Anchors = [akTop, akLeft, akRight] 570 570 ReadOnly = True … … 572 572 end 573 573 inline SynEditRight: TSynEditEx 574 Left = 1 6575 Height = 813576 Top = 6 4577 Width = 5 95574 Left = 15 575 Height = 781 576 Top = 61 577 Width = 571 578 578 Anchors = [akTop, akLeft, akRight, akBottom] 579 Font.Height = 1 3579 Font.Height = 12 580 580 Font.Name = 'DejaVu Sans Mono' 581 581 Font.Pitch = fpFixed … … 584 584 ParentFont = False 585 585 TabOrder = 1 586 Gutter.Width = 80586 Gutter.Width = 75 587 587 Gutter.MouseActions = <> 588 588 RightGutter.Width = 0 … … 1035 1035 inline SynLeftGutterPartList1: TSynGutterPartList 1036 1036 object SynGutterMarks1: TSynGutterMarks 1037 Width = 3 81037 Width = 36 1038 1038 MouseActions = <> 1039 1039 end 1040 1040 object SynGutterLineNumber1: TSynGutterLineNumber 1041 Width = 1 71041 Width = 15 1042 1042 MouseActions = <> 1043 1043 MarkupInfo.Background = clBtnFace … … 1061 1061 end 1062 1062 object SynGutterCodeFolding1: TSynGutterCodeFolding 1063 Width = 1 61063 Width = 15 1064 1064 MouseActions = <> 1065 1065 MarkupInfo.Background = clNone … … 1071 1071 end 1072 1072 object SpeedButtonOpenRight: TSpeedButton 1073 Left = 5 751074 Height = 3 41075 Top = 1 61076 Width = 3 61073 Left = 551 1074 Height = 33 1075 Top = 15 1076 Width = 35 1077 1077 Action = AFileOpenRight 1078 1078 Anchors = [akTop, akRight] … … 1083 1083 end 1084 1084 object OpenDialogSide: TOpenDialog 1085 Left = 3 361086 Top = 3 601085 Left = 323 1086 Top = 346 1087 1087 end 1088 1088 object MainMenu1: TMainMenu 1089 1089 Images = Core.ImageList1 1090 Left = 3 441091 Top = 4 961090 Left = 330 1091 Top = 476 1092 1092 object MenuItem1: TMenuItem 1093 1093 Caption = 'File' … … 1112 1112 object ActionList1: TActionList 1113 1113 Images = Core.ImageList1 1114 Left = 7 641115 Top = 3 601114 Left = 733 1115 Top = 346 1116 1116 object AFileOpenLeft: TAction 1117 1117 Caption = 'Open left file' -
trunk/Forms/UFormContact.lfm
r123 r128 1 1 object FormContact: TFormContact 2 2 Left = 1043 3 Height = 7 693 Height = 738 4 4 Top = 446 5 Width = 10335 Width = 992 6 6 Caption = 'Contact' 7 ClientHeight = 7 698 ClientWidth = 10339 DesignTimePPI = 1 507 ClientHeight = 738 8 ClientWidth = 992 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 LCLVersion = '2.2.0.4' 15 15 object ButtonCancel: TButton 16 Left = 90117 Height = 3 918 Top = 71619 Width = 1 2016 Left = 865 17 Height = 37 18 Top = 688 19 Width = 115 20 20 Anchors = [akRight, akBottom] 21 21 Caption = 'Cancel' … … 25 25 end 26 26 object ButtonOk: TButton 27 Left = 7 6028 Height = 3 929 Top = 71630 Width = 1 2427 Left = 730 28 Height = 37 29 Top = 688 30 Width = 119 31 31 Anchors = [akRight, akBottom] 32 32 Caption = 'OK' … … 37 37 object ButtonPrevious: TButton 38 38 Left = 8 39 Height = 3 940 Top = 71641 Width = 1 2439 Height = 37 40 Top = 688 41 Width = 119 42 42 Anchors = [akLeft, akBottom] 43 43 Caption = 'Previous' … … 48 48 end 49 49 object ButtonNext: TButton 50 Left = 1 5051 Height = 3 952 Top = 71653 Width = 1 2050 Left = 144 51 Height = 37 52 Top = 688 53 Width = 115 54 54 Anchors = [akLeft, akBottom] 55 55 Caption = 'Next' … … 61 61 object PageControlContact: TPageControl 62 62 Left = 8 63 Height = 6 9263 Height = 664 64 64 Top = 8 65 Width = 101065 Width = 970 66 66 ActivePage = TabSheetOthers 67 67 Anchors = [akTop, akLeft, akRight, akBottom] … … 71 71 object TabSheetGeneral: TTabSheet 72 72 Caption = 'General' 73 ClientHeight = 6 5174 ClientWidth = 100073 ClientHeight = 624 74 ClientWidth = 960 75 75 OnHide = TabSheetGeneralHide 76 76 OnShow = TabSheetGeneralShow 77 77 ParentFont = False 78 78 object Label2: TLabel 79 Left = 1 780 Height = 2 781 Top = 2 6082 Width = 6 679 Left = 16 80 Height = 26 81 Top = 250 82 Width = 63 83 83 Caption = 'Mobile:' 84 84 ParentFont = False 85 85 end 86 86 object EditMobile: TEdit 87 Left = 1 5088 Height = 4 389 Top = 2 5090 Width = 2 6587 Left = 144 88 Height = 42 89 Top = 240 90 Width = 254 91 91 ParentFont = False 92 92 TabOrder = 3 93 93 end 94 94 object EditPhone: TEdit 95 Left = 1 5096 Height = 4 397 Top = 2 9898 Width = 2 6595 Left = 144 96 Height = 42 97 Top = 286 98 Width = 254 99 99 ParentFont = False 100 100 TabOrder = 5 101 101 end 102 102 object Label3: TLabel 103 Left = 1 7104 Height = 2 7105 Top = 302106 Width = 62103 Left = 16 104 Height = 26 105 Top = 290 106 Width = 59 107 107 Caption = 'Phone:' 108 108 ParentFont = False 109 109 end 110 110 object EditEmail: TEdit 111 Left = 1 50112 Height = 4 3113 Top = 3 42114 Width = 2 16111 Left = 144 112 Height = 42 113 Top = 328 114 Width = 207 115 115 ParentFont = False 116 116 TabOrder = 7 117 117 end 118 118 object Label4: TLabel 119 Left = 1 7120 Height = 2 7121 Top = 3 50122 Width = 60119 Left = 16 120 Height = 26 121 Top = 336 122 Width = 58 123 123 Caption = 'E-mail:' 124 124 ParentFont = False 125 125 end 126 126 object EditBirthday: TEdit 127 Left = 1 50128 Height = 4 3129 Top = 4 42130 Width = 2 16127 Left = 144 128 Height = 42 129 Top = 424 130 Width = 207 131 131 ParentFont = False 132 132 TabOrder = 10 133 133 end 134 134 object Label22: TLabel 135 Left = 1 7136 Height = 2 7137 Top = 4 50138 Width = 82135 Left = 16 136 Height = 26 137 Top = 432 138 Width = 76 139 139 Caption = 'Birthday:' 140 140 ParentFont = False 141 141 end 142 142 object ImagePhoto: TImage 143 Left = 1 7144 Height = 21 9145 Top = 1 7146 Width = 2 16143 Left = 16 144 Height = 210 145 Top = 16 146 Width = 207 147 147 Center = True 148 148 OnClick = ImagePhotoClick … … 152 152 end 153 153 object Label24: TLabel 154 Left = 2 50155 Height = 2 7156 Top = 3 3157 Width = 94154 Left = 240 155 Height = 26 156 Top = 32 157 Width = 88 158 158 Caption = 'Full name:' 159 159 ParentFont = False 160 160 end 161 161 object EditFullName: TEdit 162 Left = 3 75163 Height = 4 3164 Top = 2 5165 Width = 3 54162 Left = 360 163 Height = 42 164 Top = 24 165 Width = 340 166 166 OnChange = EditFullNameChange 167 167 ParentFont = False … … 169 169 end 170 170 object Label44: TLabel 171 Left = 250 172 Height = 27 173 Top = 88 171 Left = 240 172 Height = 26 173 Top = 84 174 Width = 91 175 Caption = 'Nickname:' 176 ParentFont = False 177 end 178 object EditNickName: TEdit 179 Left = 361 180 Height = 42 181 Top = 77 182 Width = 215 183 ParentFont = False 184 TabOrder = 2 185 end 186 object Label45: TLabel 187 Left = 432 188 Height = 26 189 Top = 432 190 Width = 105 191 Caption = 'Anniversary:' 192 ParentFont = False 193 end 194 object EditAniversary: TEdit 195 Left = 575 196 Height = 42 197 Top = 424 198 Width = 208 199 ParentFont = False 200 TabOrder = 11 201 end 202 object Label9: TLabel 203 Left = 432 204 Height = 26 205 Top = 248 206 Width = 34 207 Caption = 'Fax:' 208 ParentFont = False 209 end 210 object EditFax: TEdit 211 Left = 575 212 Height = 42 213 Top = 240 214 Width = 254 215 ParentFont = False 216 TabOrder = 4 217 end 218 object EditPager: TEdit 219 Left = 575 220 Height = 42 221 Top = 286 222 Width = 254 223 ParentFont = False 224 TabOrder = 6 225 end 226 object Label10: TLabel 227 Left = 432 228 Height = 26 229 Top = 290 230 Width = 54 231 Caption = 'Pager:' 232 ParentFont = False 233 end 234 object Label46: TLabel 235 Left = 16 236 Height = 26 237 Top = 384 238 Width = 114 239 Caption = 'Web address:' 240 ParentFont = False 241 end 242 object EditWeb: TEdit 243 Left = 144 244 Height = 42 245 Top = 376 246 Width = 639 247 ParentFont = False 248 TabOrder = 9 249 end 250 object Label49: TLabel 251 Left = 432 252 Height = 26 253 Top = 332 254 Width = 67 255 Caption = 'Gender:' 256 ParentFont = False 257 end 258 object EditGender: TEdit 259 Left = 575 260 Height = 42 261 Top = 328 262 Width = 254 263 ParentFont = False 264 TabOrder = 8 265 end 266 object Label56: TLabel 267 Left = 16 268 Height = 26 269 Top = 480 174 270 Width = 95 175 Caption = 'Nickname:'176 ParentFont = False177 end178 object EditNickName: TEdit179 Left = 376180 Height = 43181 Top = 80182 Width = 224183 ParentFont = False184 TabOrder = 2185 end186 object Label45: TLabel187 Left = 450188 Height = 27189 Top = 450190 Width = 113191 Caption = 'Anniversary:'192 ParentFont = False193 end194 object EditAniversary: TEdit195 Left = 599196 Height = 43197 Top = 442198 Width = 217199 ParentFont = False200 TabOrder = 11201 end202 object Label9: TLabel203 Left = 450204 Height = 27205 Top = 258206 Width = 36207 Caption = 'Fax:'208 ParentFont = False209 end210 object EditFax: TEdit211 Left = 599212 Height = 43213 Top = 250214 Width = 265215 ParentFont = False216 TabOrder = 4217 end218 object EditPager: TEdit219 Left = 599220 Height = 43221 Top = 298222 Width = 265223 ParentFont = False224 TabOrder = 6225 end226 object Label10: TLabel227 Left = 450228 Height = 27229 Top = 302230 Width = 58231 Caption = 'Pager:'232 ParentFont = False233 end234 object Label46: TLabel235 Left = 17236 Height = 27237 Top = 400238 Width = 121239 Caption = 'Web address:'240 ParentFont = False241 end242 object EditWeb: TEdit243 Left = 150244 Height = 43245 Top = 392246 Width = 666247 ParentFont = False248 TabOrder = 9249 end250 object Label49: TLabel251 Left = 450252 Height = 27253 Top = 346254 Width = 73255 Caption = 'Gender:'256 ParentFont = False257 end258 object EditGender: TEdit259 Left = 599260 Height = 43261 Top = 342262 Width = 265263 ParentFont = False264 TabOrder = 8265 end266 object Label56: TLabel267 Left = 17268 Height = 27269 Top = 500270 Width = 102271 271 Caption = 'Categories:' 272 272 ParentFont = False 273 273 end 274 274 object EditCategories: TEdit 275 Left = 1 50276 Height = 4 3277 Top = 4 92278 Width = 2 65275 Left = 144 276 Height = 42 277 Top = 472 278 Width = 254 279 279 ParentFont = False 280 280 TabOrder = 12 281 281 end 282 282 object SpeedButtonWeb: TSpeedButton 283 Left = 821284 Height = 4 3283 Left = 788 284 Height = 41 285 285 Hint = 'Open in web browser' 286 Top = 3 92287 Width = 4 3286 Top = 376 287 Width = 41 288 288 Images = Core.ImageList1 289 289 ImageIndex = 15 … … 293 293 end 294 294 object SpeedButtonEmail: TSpeedButton 295 Left = 3 72296 Height = 4 3295 Left = 357 296 Height = 41 297 297 Hint = 'Open in email client' 298 Top = 3 42299 Width = 4 3298 Top = 328 299 Width = 41 300 300 Images = Core.ImageList1 301 301 ImageIndex = 16 … … 305 305 end 306 306 object SpeedButtonBirthDay: TSpeedButton 307 Left = 3 72308 Height = 4 3307 Left = 357 308 Height = 41 309 309 Hint = 'Select date' 310 Top = 4 42311 Width = 4 3310 Top = 424 311 Width = 41 312 312 Images = Core.ImageList1 313 313 ImageIndex = 17 … … 317 317 end 318 318 object SpeedButtonAniversary: TSpeedButton 319 Left = 821320 Height = 4 3319 Left = 788 320 Height = 41 321 321 Hint = 'Select date' 322 Top = 4 42323 Width = 4 3322 Top = 424 323 Width = 41 324 324 Images = Core.ImageList1 325 325 ImageIndex = 17 … … 329 329 end 330 330 object ButtonNameDetails: TButton 331 Left = 7 35332 Height = 4 3333 Top = 2 5334 Width = 12 5331 Left = 706 332 Height = 41 333 Top = 24 334 Width = 120 335 335 Caption = 'Details' 336 336 OnClick = ButtonNameDetailsClick … … 340 340 object TabSheetHome: TTabSheet 341 341 Caption = 'Home' 342 ClientHeight = 6 51343 ClientWidth = 1000342 ClientHeight = 624 343 ClientWidth = 960 344 344 OnHide = TabSheetHomeHide 345 345 OnShow = TabSheetHomeShow 346 346 ParentFont = False 347 347 object Label7: TLabel 348 Left = 1 7349 Height = 2 7350 Top = 11 9351 Width = 60348 Left = 16 349 Height = 26 350 Top = 114 351 Width = 58 352 352 Caption = 'E-mail:' 353 353 ParentFont = False 354 354 end 355 355 object EditHomeEmail: TEdit 356 Left = 1 80357 Height = 4 3358 Top = 11 7359 Width = 2 16356 Left = 173 357 Height = 42 358 Top = 112 359 Width = 207 360 360 ParentFont = False 361 361 TabOrder = 4 362 362 end 363 363 object Label11: TLabel 364 Left = 4 67365 Height = 2 7366 Top = 1 9367 Width = 3 6364 Left = 448 365 Height = 26 366 Top = 18 367 Width = 34 368 368 Caption = 'Fax:' 369 369 ParentFont = False 370 370 end 371 371 object EditHomeFax: TEdit 372 Left = 6 30373 Height = 4 3374 Top = 1 7375 Width = 2 65372 Left = 605 373 Height = 42 374 Top = 16 375 Width = 254 376 376 ParentFont = False 377 377 TabOrder = 1 378 378 end 379 379 object EditHomeMobile: TEdit 380 Left = 1 80381 Height = 4 3382 Top = 6 3383 Width = 2 65380 Left = 173 381 Height = 42 382 Top = 60 383 Width = 254 384 384 ParentFont = False 385 385 TabOrder = 2 386 386 end 387 387 object EditHomePhone: TEdit 388 Left = 1 80389 Height = 4 3390 Top = 1 7391 Width = 2 65388 Left = 173 389 Height = 42 390 Top = 16 391 Width = 254 392 392 ParentFont = False 393 393 TabOrder = 0 394 394 end 395 395 object Label14: TLabel 396 Left = 4 67397 Height = 2 7398 Top = 71399 Width = 5 8396 Left = 448 397 Height = 26 398 Top = 68 399 Width = 54 400 400 Caption = 'Pager:' 401 401 ParentFont = False 402 402 end 403 403 object EditHomePager: TEdit 404 Left = 6 30405 Height = 4 3406 Top = 6 3407 Width = 2 65404 Left = 605 405 Height = 42 406 Top = 60 407 Width = 254 408 408 ParentFont = False 409 409 TabOrder = 3 410 410 end 411 411 object Label40: TLabel 412 Left = 1 7413 Height = 2 7414 Top = 1 75415 Width = 1 21412 Left = 16 413 Height = 26 414 Top = 168 415 Width = 114 416 416 Caption = 'Web address:' 417 417 ParentFont = False 418 418 end 419 419 object EditHomeWeb: TEdit 420 Left = 1 80421 Height = 4 3422 Top = 16 8423 Width = 6 68420 Left = 173 421 Height = 42 422 Top = 161 423 Width = 641 424 424 ParentFont = False 425 425 TabOrder = 5 … … 427 427 object GroupBox1: TGroupBox 428 428 Left = 10 429 Height = 2 87430 Top = 2 25431 Width = 8 98429 Height = 276 430 Top = 216 431 Width = 862 432 432 Anchors = [akTop, akLeft, akRight] 433 433 Caption = 'Address' 434 ClientHeight = 2 85435 ClientWidth = 8 96434 ClientHeight = 274 435 ClientWidth = 860 436 436 TabOrder = 6 437 437 object Label36: TLabel 438 438 Left = 10 439 Height = 2 7440 Top = 1 9441 Width = 5 8439 Height = 26 440 Top = 18 441 Width = 54 442 442 Caption = 'Street:' 443 443 ParentFont = False … … 445 445 object Label37: TLabel 446 446 Left = 10 447 Height = 2 7448 Top = 6 9449 Width = 1 47447 Height = 26 448 Top = 66 449 Width = 137 450 450 Caption = 'Extended street:' 451 451 ParentFont = False 452 452 end 453 453 object EditHomeAddressStreetExtended: TEdit 454 Left = 1 80455 Height = 4 3456 Top = 5 8457 Width = 2 65454 Left = 173 455 Height = 42 456 Top = 56 457 Width = 254 458 458 ParentFont = False 459 459 TabOrder = 2 460 460 end 461 461 object EditHomeAddressStreet: TEdit 462 Left = 1 80463 Height = 4 3462 Left = 173 463 Height = 42 464 464 Top = 8 465 Width = 2 65465 Width = 254 466 466 ParentFont = False 467 467 TabOrder = 0 … … 469 469 object Label38: TLabel 470 470 Left = 10 471 Height = 2 7472 Top = 11 7473 Width = 6 8471 Height = 26 472 Top = 112 473 Width = 64 474 474 Caption = 'Region:' 475 475 ParentFont = False 476 476 end 477 477 object EditHomeAddressRegion: TEdit 478 Left = 1 80479 Height = 4 3480 Top = 10 8481 Width = 2 65478 Left = 173 479 Height = 42 480 Top = 104 481 Width = 254 482 482 ParentFont = False 483 483 TabOrder = 4 484 484 end 485 485 object EditHomeAddressCountry: TEdit 486 Left = 1 80487 Height = 4 3488 Top = 15 8489 Width = 2 65486 Left = 173 487 Height = 42 488 Top = 152 489 Width = 254 490 490 ParentFont = False 491 491 TabOrder = 5 … … 493 493 object Label39: TLabel 494 494 Left = 10 495 Height = 2 7496 Top = 16 7497 Width = 7 7495 Height = 26 496 Top = 160 497 Width = 71 498 498 Caption = 'Country:' 499 499 ParentFont = False 500 500 end 501 501 object Label41: TLabel 502 Left = 4 70503 Height = 2 7504 Top = 16 7505 Width = 10 7502 Left = 451 503 Height = 26 504 Top = 160 505 Width = 103 506 506 Caption = 'Postal code:' 507 507 ParentFont = False 508 508 end 509 509 object EditHomeAddressPostalCode: TEdit 510 Left = 612511 Height = 4 3512 Top = 15 8513 Width = 2 65510 Left = 588 511 Height = 42 512 Top = 152 513 Width = 254 514 514 ParentFont = False 515 515 TabOrder = 6 516 516 end 517 517 object EditHomeAddressCity: TEdit 518 Left = 612519 Height = 4 3520 Top = 5 8521 Width = 2 65518 Left = 588 519 Height = 42 520 Top = 56 521 Width = 254 522 522 ParentFont = False 523 523 TabOrder = 3 524 524 end 525 525 object Label42: TLabel 526 Left = 4 70527 Height = 2 7528 Top = 6 7529 Width = 3 9526 Left = 451 527 Height = 26 528 Top = 64 529 Width = 36 530 530 Caption = 'City:' 531 531 ParentFont = False 532 532 end 533 533 object Label43: TLabel 534 Left = 4 70535 Height = 2 7536 Top = 1 7537 Width = 13 5534 Left = 451 535 Height = 26 536 Top = 16 537 Width = 131 538 538 Caption = 'Post office box:' 539 539 ParentFont = False 540 540 end 541 541 object EditHomeAddressPostOfficeBox: TEdit 542 Left = 612543 Height = 4 3542 Left = 588 543 Height = 42 544 544 Top = 8 545 Width = 2 65545 Width = 254 546 546 ParentFont = False 547 547 TabOrder = 1 … … 549 549 object ButtonHomeAddressShow: TButton 550 550 Left = 10 551 Height = 3 9552 Top = 20 8553 Width = 1 82551 Height = 37 552 Top = 200 553 Width = 175 554 554 Caption = 'Show on map' 555 555 OnClick = ButtonHomeAddressShowClick … … 558 558 end 559 559 object Label12: TLabel 560 Left = 1 7561 Height = 2 7562 Top = 6 7563 Width = 6 6560 Left = 16 561 Height = 26 562 Top = 64 563 Width = 63 564 564 Caption = 'Mobile:' 565 565 ParentFont = False 566 566 end 567 567 object Label13: TLabel 568 Left = 1 7569 Height = 2 7570 Top = 2 1571 Width = 62568 Left = 16 569 Height = 26 570 Top = 20 571 Width = 59 572 572 Caption = 'Phone:' 573 573 ParentFont = False 574 574 end 575 575 object SpeedButtonHomeWeb: TSpeedButton 576 Left = 8 52577 Height = 4 3576 Left = 818 577 Height = 41 578 578 Hint = 'Open in web browser' 579 Top = 16 7580 Width = 4 3579 Top = 160 580 Width = 41 581 581 Images = Core.ImageList1 582 582 ImageIndex = 15 … … 586 586 end 587 587 object SpeedButtonHomeEmail: TSpeedButton 588 Left = 402589 Height = 4 3588 Left = 386 589 Height = 41 590 590 Hint = 'Open in email client' 591 Top = 11 7592 Width = 4 3591 Top = 112 592 Width = 41 593 593 Images = Core.ImageList1 594 594 ImageIndex = 16 … … 600 600 object TabSheetWork: TTabSheet 601 601 Caption = 'Work' 602 ClientHeight = 6 51603 ClientWidth = 1000602 ClientHeight = 624 603 ClientWidth = 960 604 604 OnHide = TabSheetWorkHide 605 605 OnShow = TabSheetWorkShow 606 606 object EditOrganization: TEdit 607 Left = 1 80608 Height = 4 3609 Top = 6 7610 Width = 2 65607 Left = 173 608 Height = 42 609 Top = 64 610 Width = 254 611 611 ParentFont = False 612 612 TabOrder = 2 … … 614 614 object LabelOrganization: TLabel 615 615 Left = 10 616 Height = 2 7617 Top = 7 3618 Width = 1 23616 Height = 26 617 Top = 70 618 Width = 114 619 619 Caption = 'Organization:' 620 620 ParentFont = False 621 621 end 622 622 object LabelOrganization1: TLabel 623 Left = 4 70624 Height = 2 7625 Top = 2 5626 Width = 1 16623 Left = 451 624 Height = 26 625 Top = 24 626 Width = 106 627 627 Caption = 'Department:' 628 628 ParentFont = False 629 629 end 630 630 object EditDepartment: TEdit 631 Left = 6 33632 Height = 4 3633 Top = 2 1634 Width = 2 65631 Left = 608 632 Height = 42 633 Top = 20 634 Width = 254 635 635 ParentFont = False 636 636 TabOrder = 1 … … 638 638 object Label18: TLabel 639 639 Left = 10 640 Height = 2 7641 Top = 2 1642 Width = 4 3640 Height = 26 641 Top = 20 642 Width = 41 643 643 Caption = 'Title:' 644 644 ParentFont = False 645 645 end 646 646 object EditTitle: TEdit 647 Left = 1 80648 Height = 4 3649 Top = 1 7650 Width = 2 65647 Left = 173 648 Height = 42 649 Top = 16 650 Width = 254 651 651 ParentFont = False 652 652 TabOrder = 0 653 653 end 654 654 object EditWorkWeb: TEdit 655 Left = 1 80656 Height = 4 3657 Top = 2 67658 Width = 6 68655 Left = 173 656 Height = 42 657 Top = 256 658 Width = 641 659 659 ParentFont = False 660 660 TabOrder = 8 … … 662 662 object Label32: TLabel 663 663 Left = 10 664 Height = 2 7665 Top = 2 75666 Width = 1 21664 Height = 26 665 Top = 264 666 Width = 114 667 667 Caption = 'Web address:' 668 668 ParentFont = False … … 670 670 object GroupBox2: TGroupBox 671 671 Left = 8 672 Height = 2 83673 Top = 3 25674 Width = 920672 Height = 272 673 Top = 312 674 Width = 883 675 675 Caption = 'Address' 676 ClientHeight = 2 81677 ClientWidth = 918676 ClientHeight = 270 677 ClientWidth = 881 678 678 TabOrder = 9 679 679 object Label31: TLabel 680 680 Left = 10 681 Height = 2 7682 Top = 16 7683 Width = 7 7681 Height = 26 682 Top = 160 683 Width = 71 684 684 Caption = 'Country:' 685 685 ParentFont = False 686 686 end 687 687 object EditWorkAddressCountry: TEdit 688 Left = 1 80689 Height = 4 3690 Top = 15 8691 Width = 2 65688 Left = 173 689 Height = 42 690 Top = 152 691 Width = 254 692 692 ParentFont = False 693 693 TabOrder = 5 694 694 end 695 695 object EditWorkAddressRegion: TEdit 696 Left = 1 80697 Height = 4 3698 Top = 10 8699 Width = 2 65696 Left = 173 697 Height = 42 698 Top = 104 699 Width = 254 700 700 ParentFont = False 701 701 TabOrder = 4 … … 703 703 object Label30: TLabel 704 704 Left = 10 705 Height = 2 7706 Top = 11 7707 Width = 6 8705 Height = 26 706 Top = 112 707 Width = 64 708 708 Caption = 'Region:' 709 709 ParentFont = False … … 711 711 object Label35: TLabel 712 712 Left = 10 713 Height = 2 7714 Top = 6 7715 Width = 1 47713 Height = 26 714 Top = 64 715 Width = 137 716 716 Caption = 'Extended street:' 717 717 ParentFont = False 718 718 end 719 719 object EditWorkAddressStreetExtended: TEdit 720 Left = 1 80721 Height = 4 3722 Top = 5 8723 Width = 2 65720 Left = 173 721 Height = 42 722 Top = 56 723 Width = 254 724 724 ParentFont = False 725 725 TabOrder = 2 … … 727 727 object Label28: TLabel 728 728 Left = 10 729 Height = 2 7730 Top = 1 9731 Width = 5 8729 Height = 26 730 Top = 18 731 Width = 54 732 732 Caption = 'Street:' 733 733 ParentFont = False 734 734 end 735 735 object EditWorkAddressStreet: TEdit 736 Left = 1 80737 Height = 4 3736 Left = 173 737 Height = 42 738 738 Top = 8 739 Width = 2 65739 Width = 254 740 740 ParentFont = False 741 741 TabOrder = 0 742 742 end 743 743 object Label34: TLabel 744 Left = 4 70745 Height = 2 7746 Top = 1 9747 Width = 13 5744 Left = 451 745 Height = 26 746 Top = 18 747 Width = 131 748 748 Caption = 'Post office box:' 749 749 ParentFont = False 750 750 end 751 751 object EditWorkAddressPostOfficeBox: TEdit 752 Left = 6 33753 Height = 4 3752 Left = 608 753 Height = 42 754 754 Top = 8 755 Width = 2 65755 Width = 254 756 756 ParentFont = False 757 757 TabOrder = 1 758 758 end 759 759 object EditWorkAddressCity: TEdit 760 Left = 6 33761 Height = 4 3762 Top = 5 8763 Width = 2 65760 Left = 608 761 Height = 42 762 Top = 56 763 Width = 254 764 764 ParentFont = False 765 765 TabOrder = 3 766 766 end 767 767 object Label29: TLabel 768 Left = 4 70769 Height = 2 7770 Top = 6 7771 Width = 3 9768 Left = 451 769 Height = 26 770 Top = 64 771 Width = 36 772 772 Caption = 'City:' 773 773 ParentFont = False 774 774 end 775 775 object EditWorkAddressPostalCode: TEdit 776 Left = 6 33777 Height = 4 3778 Top = 14 8779 Width = 2 65776 Left = 608 777 Height = 42 778 Top = 142 779 Width = 254 780 780 ParentFont = False 781 781 TabOrder = 6 782 782 end 783 783 object Label33: TLabel 784 Left = 4 70785 Height = 2 7786 Top = 15 6787 Width = 10 7784 Left = 451 785 Height = 26 786 Top = 150 787 Width = 103 788 788 Caption = 'Postal code:' 789 789 ParentFont = False … … 791 791 object ButtonWorkAddressShow: TButton 792 792 Left = 10 793 Height = 3 9794 Top = 20 8795 Width = 1 82793 Height = 37 794 Top = 200 795 Width = 175 796 796 Caption = 'Show on map' 797 797 OnClick = ButtonWorkAddressShowClick … … 801 801 object Label15: TLabel 802 802 Left = 10 803 Height = 2 7804 Top = 1 21805 Width = 62803 Height = 26 804 Top = 116 805 Width = 59 806 806 Caption = 'Phone:' 807 807 ParentFont = False 808 808 end 809 809 object EditWorkPhone: TEdit 810 Left = 1 80811 Height = 4 3812 Top = 11 7813 Width = 2 65810 Left = 173 811 Height = 42 812 Top = 112 813 Width = 254 814 814 ParentFont = False 815 815 TabOrder = 3 816 816 end 817 817 object Label16: TLabel 818 Left = 4 70819 Height = 2 7820 Top = 11 7821 Width = 3 6818 Left = 451 819 Height = 26 820 Top = 112 821 Width = 34 822 822 Caption = 'Fax:' 823 823 ParentFont = False 824 824 end 825 825 object EditWorkFax: TEdit 826 Left = 6 33827 Height = 4 3828 Top = 11 7829 Width = 2 65826 Left = 608 827 Height = 42 828 Top = 112 829 Width = 254 830 830 ParentFont = False 831 831 TabOrder = 4 832 832 end 833 833 object EditWorkPager: TEdit 834 Left = 6 33835 Height = 4 3836 Top = 1 62837 Width = 2 65834 Left = 608 835 Height = 42 836 Top = 156 837 Width = 254 838 838 ParentFont = False 839 839 TabOrder = 6 840 840 end 841 841 object Label17: TLabel 842 Left = 467 843 Height = 27 844 Top = 167 842 Left = 448 843 Height = 26 844 Top = 160 845 Width = 54 846 Caption = 'Pager:' 847 ParentFont = False 848 end 849 object EditWorkMobile: TEdit 850 Left = 173 851 Height = 42 852 Top = 160 853 Width = 254 854 ParentFont = False 855 TabOrder = 5 856 end 857 object Label19: TLabel 858 Left = 10 859 Height = 26 860 Top = 160 861 Width = 63 862 Caption = 'Mobile:' 863 ParentFont = False 864 end 865 object Label8: TLabel 866 Left = 10 867 Height = 26 868 Top = 210 845 869 Width = 58 846 Caption = 'Pager:'847 ParentFont = False848 end849 object EditWorkMobile: TEdit850 Left = 180851 Height = 43852 Top = 167853 Width = 265854 ParentFont = False855 TabOrder = 5856 end857 object Label19: TLabel858 Left = 10859 Height = 27860 Top = 167861 Width = 66862 Caption = 'Mobile:'863 ParentFont = False864 end865 object Label8: TLabel866 Left = 10867 Height = 27868 Top = 219869 Width = 60870 870 Caption = 'E-mail:' 871 871 ParentFont = False 872 872 end 873 873 object EditWorkEmail: TEdit 874 Left = 1 80875 Height = 4 3876 Top = 21 9877 Width = 2 18874 Left = 173 875 Height = 42 876 Top = 210 877 Width = 209 878 878 ParentFont = False 879 879 TabOrder = 7 880 880 end 881 881 object SpeedButtonWorkWeb: TSpeedButton 882 Left = 8 55883 Height = 4 3882 Left = 821 883 Height = 41 884 884 Hint = 'Open in web browser' 885 Top = 2 67886 Width = 4 3885 Top = 256 886 Width = 41 887 887 Images = Core.ImageList1 888 888 ImageIndex = 15 … … 892 892 end 893 893 object SpeedButtonWorkEmail: TSpeedButton 894 Left = 402895 Height = 4 3894 Left = 386 895 Height = 41 896 896 Hint = 'Open in email client' 897 Top = 21 9898 Width = 4 3897 Top = 210 898 Width = 41 899 899 Images = Core.ImageList1 900 900 ImageIndex = 16 … … 906 906 object TabSheetChat: TTabSheet 907 907 Caption = 'Chat' 908 ClientHeight = 6 51909 ClientWidth = 1000908 ClientHeight = 624 909 ClientWidth = 960 910 910 OnHide = TabSheetChatHide 911 911 OnShow = TabSheetChatShow 912 912 object Label20: TLabel 913 913 Left = 10 914 Height = 2 7915 Top = 2 5916 Width = 64914 Height = 26 915 Top = 24 916 Width = 59 917 917 Caption = 'Jabber:' 918 918 ParentFont = False 919 919 end 920 920 object EditJabber: TEdit 921 Left = 1 80922 Height = 4 3923 Top = 1 7924 Width = 2 65921 Left = 173 922 Height = 42 923 Top = 16 924 Width = 254 925 925 ParentFont = False 926 926 TabOrder = 0 … … 928 928 object LabelOrganization2: TLabel 929 929 Left = 10 930 Height = 2 7931 Top = 2 75932 Width = 5 8930 Height = 26 931 Top = 264 932 Width = 55 933 933 Caption = 'Skype:' 934 934 ParentFont = False 935 935 end 936 936 object EditSkype: TEdit 937 Left = 1 80938 Height = 4 3939 Top = 2 67940 Width = 2 65937 Left = 173 938 Height = 42 939 Top = 256 940 Width = 254 941 941 ParentFont = False 942 942 TabOrder = 10 … … 944 944 object Label21: TLabel 945 945 Left = 10 946 Height = 2 7947 Top = 7 5948 Width = 4 6946 Height = 26 947 Top = 72 948 Width = 45 949 949 Caption = 'MSN:' 950 950 ParentFont = False 951 951 end 952 952 object EditMsn: TEdit 953 Left = 1 80954 Height = 4 3955 Top = 6 7956 Width = 2 65953 Left = 173 954 Height = 42 955 Top = 64 956 Width = 254 957 957 ParentFont = False 958 958 TabOrder = 2 959 959 end 960 960 object LabelOrganization3: TLabel 961 Left = 4 70962 Height = 2 7963 Top = 7 5964 Width = 3 7961 Left = 451 962 Height = 26 963 Top = 72 964 Width = 36 965 965 Caption = 'ICQ:' 966 966 ParentFont = False 967 967 end 968 968 object EditIcq: TEdit 969 Left = 6 33970 Height = 4 3971 Top = 71972 Width = 2 65969 Left = 608 970 Height = 42 971 Top = 68 972 Width = 254 973 973 ParentFont = False 974 974 TabOrder = 3 … … 976 976 object Label23: TLabel 977 977 Left = 10 978 Height = 2 7979 Top = 12 5980 Width = 3 5978 Height = 26 979 Top = 120 980 Width = 33 981 981 Caption = 'IRC:' 982 982 ParentFont = False 983 983 end 984 984 object EditIrc: TEdit 985 Left = 1 80986 Height = 4 3987 Top = 11 7988 Width = 2 65985 Left = 173 986 Height = 42 987 Top = 112 988 Width = 254 989 989 ParentFont = False 990 990 TabOrder = 4 991 991 end 992 992 object LabelOrganization4: TLabel 993 Left = 4 70994 Height = 2 7995 Top = 12 5996 Width = 40993 Left = 451 994 Height = 26 995 Top = 120 996 Width = 39 997 997 Caption = 'AIM:' 998 998 ParentFont = False 999 999 end 1000 1000 object EditAim: TEdit 1001 Left = 6 331002 Height = 4 31003 Top = 1 211004 Width = 2 651001 Left = 608 1002 Height = 42 1003 Top = 116 1004 Width = 254 1005 1005 ParentFont = False 1006 1006 TabOrder = 5 … … 1008 1008 object Label47: TLabel 1009 1009 Left = 10 1010 Height = 2 71011 Top = 1 751012 Width = 10 91010 Height = 26 1011 Top = 168 1012 Width = 105 1013 1013 Caption = 'Google Talk:' 1014 1014 ParentFont = False 1015 1015 end 1016 1016 object EditGoogleTalk: TEdit 1017 Left = 1 801018 Height = 4 31019 Top = 16 71020 Width = 2 651017 Left = 173 1018 Height = 42 1019 Top = 160 1020 Width = 254 1021 1021 ParentFont = False 1022 1022 TabOrder = 6 1023 1023 end 1024 1024 object LabelOrganization5: TLabel 1025 Left = 4 701026 Height = 2 71027 Top = 1 751028 Width = 6 51025 Left = 451 1026 Height = 26 1027 Top = 168 1028 Width = 62 1029 1029 Caption = 'Yahoo!:' 1030 1030 ParentFont = False 1031 1031 end 1032 1032 object EditYahoo: TEdit 1033 Left = 6 331034 Height = 4 31035 Top = 1 711036 Width = 2 651033 Left = 608 1034 Height = 42 1035 Top = 164 1036 Width = 254 1037 1037 ParentFont = False 1038 1038 TabOrder = 7 … … 1040 1040 object Label48: TLabel 1041 1041 Left = 10 1042 Height = 2 71043 Top = 2 251044 Width = 12 71042 Height = 26 1043 Top = 216 1044 Width = 121 1045 1045 Caption = 'Windows Live:' 1046 1046 ParentFont = False 1047 1047 end 1048 1048 object EditWindowsLive: TEdit 1049 Left = 1 801050 Height = 4 31051 Top = 2 171052 Width = 2 651049 Left = 173 1050 Height = 42 1051 Top = 208 1052 Width = 254 1053 1053 ParentFont = False 1054 1054 TabOrder = 8 1055 1055 end 1056 1056 object LabelOrganization6: TLabel 1057 Left = 4 701058 Height = 2 71059 Top = 2 251060 Width = 3 51057 Left = 451 1058 Height = 26 1059 Top = 216 1060 Width = 33 1061 1061 Caption = 'QQ:' 1062 1062 ParentFont = False 1063 1063 end 1064 1064 object EditQq: TEdit 1065 Left = 6 331066 Height = 4 31067 Top = 2 211068 Width = 2 651065 Left = 608 1066 Height = 42 1067 Top = 212 1068 Width = 254 1069 1069 ParentFont = False 1070 1070 TabOrder = 9 1071 1071 end 1072 1072 object Label55: TLabel 1073 Left = 4 701074 Height = 2 71075 Top = 2 51076 Width = 631073 Left = 451 1074 Height = 26 1075 Top = 24 1076 Width = 59 1077 1077 Caption = 'Matrix:' 1078 1078 ParentFont = False 1079 1079 end 1080 1080 object EditMatrix: TEdit 1081 Left = 6 331082 Height = 4 31083 Top = 2 11084 Width = 2 651081 Left = 608 1082 Height = 42 1083 Top = 20 1084 Width = 254 1085 1085 ParentFont = False 1086 1086 TabOrder = 1 … … 1088 1088 object Label57: TLabel 1089 1089 Left = 10 1090 Height = 2 71091 Top = 3 251092 Width = 1031090 Height = 26 1091 Top = 312 1092 Width = 99 1093 1093 Caption = 'GroupWise:' 1094 1094 ParentFont = False 1095 1095 end 1096 1096 object EditGroupWise: TEdit 1097 Left = 1 801098 Height = 4 31099 Top = 3 171100 Width = 2 651097 Left = 173 1098 Height = 42 1099 Top = 304 1100 Width = 254 1101 1101 ParentFont = False 1102 1102 TabOrder = 11 1103 1103 end 1104 1104 object LabelOrganization12: TLabel 1105 Left = 4 701106 Height = 2 71107 Top = 3 251108 Width = 1031105 Left = 451 1106 Height = 26 1107 Top = 312 1108 Width = 95 1109 1109 Caption = 'GaduGadu:' 1110 1110 ParentFont = False 1111 1111 end 1112 1112 object EditGaduGadu: TEdit 1113 Left = 6 331114 Height = 4 31115 Top = 3 211116 Width = 2 651113 Left = 608 1114 Height = 42 1115 Top = 308 1116 Width = 254 1117 1117 ParentFont = False 1118 1118 TabOrder = 12 … … 1121 1121 object TabSheetSocial: TTabSheet 1122 1122 Caption = 'Social' 1123 ClientHeight = 6 511124 ClientWidth = 10001123 ClientHeight = 624 1124 ClientWidth = 960 1125 1125 OnHide = TabSheetSocialHide 1126 1126 OnShow = TabSheetSocialShow 1127 1127 object Label50: TLabel 1128 Left = 470 1129 Height = 27 1130 Top = 171 1128 Left = 451 1129 Height = 26 1130 Top = 164 1131 Width = 79 1132 Caption = 'Myspace:' 1133 ParentFont = False 1134 end 1135 object EditMySpace: TEdit 1136 Left = 608 1137 Height = 42 1138 Top = 160 1139 Width = 254 1140 ParentFont = False 1141 TabOrder = 7 1142 end 1143 object EditTwitter: TEdit 1144 Left = 173 1145 Height = 42 1146 Top = 64 1147 Width = 254 1148 ParentFont = False 1149 TabOrder = 2 1150 end 1151 object Label51: TLabel 1152 Left = 10 1153 Height = 26 1154 Top = 68 1155 Width = 63 1156 Caption = 'Twitter:' 1157 ParentFont = False 1158 end 1159 object Label52: TLabel 1160 Left = 10 1161 Height = 26 1162 Top = 116 1163 Width = 92 1164 Caption = 'Instagram:' 1165 ParentFont = False 1166 end 1167 object Label53: TLabel 1168 Left = 10 1169 Height = 26 1170 Top = 164 1171 Width = 78 1172 Caption = 'LinkedIn:' 1173 ParentFont = False 1174 end 1175 object Label54: TLabel 1176 Left = 10 1177 Height = 26 1178 Top = 212 1179 Width = 83 1180 Caption = 'Snapchat:' 1181 ParentFont = False 1182 end 1183 object EditSnapchat: TEdit 1184 Left = 173 1185 Height = 42 1186 Top = 208 1187 Width = 254 1188 ParentFont = False 1189 TabOrder = 8 1190 end 1191 object EditLinkedIn: TEdit 1192 Left = 173 1193 Height = 42 1194 Top = 160 1195 Width = 254 1196 ParentFont = False 1197 TabOrder = 6 1198 end 1199 object EditInstagram: TEdit 1200 Left = 173 1201 Height = 42 1202 Top = 112 1203 Width = 254 1204 ParentFont = False 1205 TabOrder = 4 1206 end 1207 object LabelOrganization7: TLabel 1208 Left = 451 1209 Height = 26 1210 Top = 24 1131 1211 Width = 84 1132 Caption = 'Myspace:' 1133 ParentFont = False 1134 end 1135 object EditMySpace: TEdit 1136 Left = 633 1137 Height = 43 1138 Top = 167 1139 Width = 265 1140 ParentFont = False 1141 TabOrder = 7 1142 end 1143 object EditTwitter: TEdit 1144 Left = 180 1145 Height = 43 1146 Top = 67 1147 Width = 265 1148 ParentFont = False 1149 TabOrder = 2 1150 end 1151 object Label51: TLabel 1152 Left = 10 1153 Height = 27 1154 Top = 71 1155 Width = 68 1156 Caption = 'Twitter:' 1157 ParentFont = False 1158 end 1159 object Label52: TLabel 1160 Left = 10 1161 Height = 27 1162 Top = 121 1163 Width = 98 1164 Caption = 'Instagram:' 1165 ParentFont = False 1166 end 1167 object Label53: TLabel 1168 Left = 10 1169 Height = 27 1170 Top = 171 1171 Width = 83 1172 Caption = 'LinkedIn:' 1173 ParentFont = False 1174 end 1175 object Label54: TLabel 1176 Left = 10 1177 Height = 27 1178 Top = 221 1179 Width = 89 1180 Caption = 'Snapchat:' 1181 ParentFont = False 1182 end 1183 object EditSnapchat: TEdit 1184 Left = 180 1185 Height = 43 1186 Top = 217 1187 Width = 265 1188 ParentFont = False 1189 TabOrder = 8 1190 end 1191 object EditLinkedIn: TEdit 1192 Left = 180 1193 Height = 43 1194 Top = 167 1195 Width = 265 1196 ParentFont = False 1197 TabOrder = 6 1198 end 1199 object EditInstagram: TEdit 1200 Left = 180 1201 Height = 43 1202 Top = 117 1203 Width = 265 1204 ParentFont = False 1205 TabOrder = 4 1206 end 1207 object LabelOrganization7: TLabel 1208 Left = 470 1209 Height = 27 1210 Top = 25 1212 Caption = 'PeerTube:' 1213 ParentFont = False 1214 end 1215 object LabelOrganization8: TLabel 1216 Left = 451 1217 Height = 26 1218 Top = 116 1219 Width = 77 1220 Caption = 'YouTube:' 1221 ParentFont = False 1222 end 1223 object EditMastodon: TEdit 1224 Left = 171 1225 Height = 42 1226 Top = 16 1227 Width = 254 1228 ParentFont = False 1229 TabOrder = 0 1230 end 1231 object LabelOrganization9: TLabel 1232 Left = 10 1233 Height = 26 1234 Top = 24 1211 1235 Width = 90 1212 Caption = 'PeerTube:'1213 ParentFont = False1214 end1215 object LabelOrganization8: TLabel1216 Left = 4701217 Height = 271218 Top = 1211219 Width = 821220 Caption = 'YouTube:'1221 ParentFont = False1222 end1223 object EditMastodon: TEdit1224 Left = 1781225 Height = 431226 Top = 171227 Width = 2651228 ParentFont = False1229 TabOrder = 01230 end1231 object LabelOrganization9: TLabel1232 Left = 101233 Height = 271234 Top = 251235 Width = 951236 1236 Caption = 'Mastodon:' 1237 1237 ParentFont = False 1238 1238 end 1239 1239 object LabelOrganization10: TLabel 1240 Left = 4 701241 Height = 2 71242 Top = 2 211243 Width = 641240 Left = 451 1241 Height = 26 1242 Top = 212 1243 Width = 59 1244 1244 Caption = 'Reddit:' 1245 1245 ParentFont = False 1246 1246 end 1247 1247 object EditReddit: TEdit 1248 Left = 6 331249 Height = 4 31250 Top = 2 171251 Width = 2 651248 Left = 608 1249 Height = 42 1250 Top = 208 1251 Width = 254 1252 1252 ParentFont = False 1253 1253 TabOrder = 9 1254 1254 end 1255 1255 object EditPeerTube: TEdit 1256 Left = 6 331257 Height = 4 31258 Top = 1 71259 Width = 2 651256 Left = 608 1257 Height = 42 1258 Top = 16 1259 Width = 254 1260 1260 ParentFont = False 1261 1261 TabOrder = 1 1262 1262 end 1263 1263 object EditYouTube: TEdit 1264 Left = 6 331265 Height = 4 31266 Top = 11 71267 Width = 2 651264 Left = 608 1265 Height = 42 1266 Top = 112 1267 Width = 254 1268 1268 ParentFont = False 1269 1269 TabOrder = 5 1270 1270 end 1271 1271 object EditFacebook: TEdit 1272 Left = 6 331273 Height = 4 31274 Top = 6 71275 Width = 2 651272 Left = 608 1273 Height = 42 1274 Top = 64 1275 Width = 254 1276 1276 ParentFont = False 1277 1277 TabOrder = 3 1278 1278 end 1279 1279 object LabelOrganization11: TLabel 1280 Left = 4 701281 Height = 2 71282 Top = 711283 Width = 901280 Left = 451 1281 Height = 26 1282 Top = 68 1283 Width = 86 1284 1284 Caption = 'Facebook:' 1285 1285 ParentFont = False … … 1288 1288 object TabSheetOthers: TTabSheet 1289 1289 Caption = 'Others' 1290 ClientHeight = 6 511291 ClientWidth = 10001290 ClientHeight = 624 1291 ClientWidth = 960 1292 1292 OnHide = TabSheetOthersHide 1293 1293 OnShow = TabSheetOthersShow 1294 1294 object MemoNotes: TMemo 1295 Left = 1 71296 Height = 2 891297 Top = 501298 Width = 6 711295 Left = 16 1296 Height = 276 1297 Top = 48 1298 Width = 644 1299 1299 Anchors = [akTop, akLeft, akRight, akBottom] 1300 1300 ParentFont = False … … 1304 1304 end 1305 1305 object Label6: TLabel 1306 Left = 1 71307 Height = 2 71308 Top = 1 71309 Width = 5 71306 Left = 16 1307 Height = 26 1308 Top = 16 1309 Width = 55 1310 1310 Caption = 'Notes:' 1311 1311 ParentFont = False 1312 1312 end 1313 1313 object BarcodeQR1: TBarcodeQR 1314 Left = 7041315 Height = 2 861316 Top = 501317 Width = 2 801314 Left = 676 1315 Height = 275 1316 Top = 48 1317 Width = 269 1318 1318 ParentColor = False 1319 1319 Text = 'TBarcodeQR' 1320 1320 end 1321 1321 object Label1: TLabel 1322 Left = 7041323 Height = 2 71324 Top = 1 61325 Width = 801322 Left = 677 1323 Height = 26 1324 Top = 15 1325 Width = 76 1326 1326 Anchors = [akTop, akRight] 1327 1327 Caption = 'QR code:' … … 1336 1336 object ActionList1: TActionList 1337 1337 Images = Core.ImageList1 1338 Left = 6 321339 Top = 6081338 Left = 607 1339 Top = 584 1340 1340 object APhotoLoad: TAction 1341 1341 Caption = 'Load from file' … … 1361 1361 object PopupMenuPhoto: TPopupMenu 1362 1362 Images = Core.ImageList1 1363 Left = 8 641364 Top = 6081363 Left = 829 1364 Top = 584 1365 1365 object MenuItem4: TMenuItem 1366 1366 Action = APhotoShow … … 1381 1381 object OpenPictureDialog1: TOpenPictureDialog 1382 1382 Title = 'Open existing file' 1383 Left = 1 751384 Top = 5 751383 Left = 168 1384 Top = 552 1385 1385 end 1386 1386 object SavePictureDialog1: TSavePictureDialog 1387 1387 Title = 'Save file as' 1388 Left = 1 761389 Top = 4 881388 Left = 169 1389 Top = 468 1390 1390 end 1391 1391 object CalendarDialog1: TCalendarDialog … … 1394 1394 OKCaption = '&OK' 1395 1395 CancelCaption = 'Cancel' 1396 Left = 4 481397 Top = 6081396 Left = 430 1397 Top = 584 1398 1398 end 1399 1399 object PopupMenuQrCode: TPopupMenu 1400 Left = 5 281401 Top = 4 721400 Left = 507 1401 Top = 453 1402 1402 object MenuItemSaveQrToFile: TMenuItem 1403 1403 Caption = 'Save to file' -
trunk/Forms/UFormContacts.lfm
r95 r128 1 1 object FormContacts: TFormContacts 2 2 Left = 400 3 Height = 9 463 Height = 908 4 4 Top = 212 5 Width = 12 605 Width = 1210 6 6 Caption = 'Contacts' 7 ClientHeight = 9 468 ClientWidth = 12 609 DesignTimePPI = 1 507 ClientHeight = 908 8 ClientWidth = 1210 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 16 16 object ListView1: TListView 17 17 Left = 0 18 Height = 8 4418 Height = 810 19 19 Top = 0 20 Width = 12 6020 Width = 1210 21 21 Align = alClient 22 22 Columns = < 23 23 item 24 24 Caption = 'Full Name' 25 Width = 3 1225 Width = 300 26 26 end 27 27 item 28 28 Caption = 'First name' 29 Width = 15 629 Width = 150 30 30 end 31 31 item 32 32 Caption = 'Middle name' 33 Width = 15 633 Width = 150 34 34 end 35 35 item 36 36 Caption = 'Last Name' 37 Width = 15 637 Width = 150 38 38 end 39 39 item 40 40 Caption = 'Phone' 41 Width = 15 641 Width = 150 42 42 end 43 43 item 44 44 Caption = 'Mobile' 45 Width = 15 645 Width = 150 46 46 end 47 47 item 48 48 Caption = 'Home phone' 49 Width = 15 649 Width = 150 50 50 end 51 51 item 52 52 Caption = 'Work phone' 53 Width = 15 653 Width = 150 54 54 end> 55 55 MultiSelect = True … … 67 67 object ToolBar1: TToolBar 68 68 Left = 0 69 Height = 4170 Top = 8 7771 Width = 12 6069 Height = 39 70 Top = 842 71 Width = 1210 72 72 Align = alBottom 73 73 Images = Core.ImageList1 … … 82 82 end 83 83 object ToolButton2: TToolButton 84 Left = 3 784 Left = 36 85 85 Top = 2 86 86 Action = AModify 87 87 end 88 88 object ToolButton3: TToolButton 89 Left = 10 989 Left = 106 90 90 Top = 2 91 91 Action = ARemove 92 92 end 93 93 object ToolButton4: TToolButton 94 Left = 7 394 Left = 71 95 95 Top = 2 96 96 Action = AClone 97 97 end 98 98 object ToolButton5: TToolButton 99 Left = 14 5100 Height = 3 499 Left = 141 100 Height = 33 101 101 Top = 2 102 102 Style = tbsSeparator 103 103 end 104 104 object ToolButton6: TToolButton 105 Left = 1 53105 Left = 149 106 106 Top = 2 107 107 Action = ALoadFromFile 108 108 end 109 109 object ToolButton7: TToolButton 110 Left = 18 9110 Left = 184 111 111 Top = 2 112 112 Action = ASaveToFile … … 115 115 object ListViewFilter1: TListViewFilter 116 116 Left = 0 117 Height = 3 3118 Top = 8 44119 Width = 12 60117 Height = 32 118 Top = 810 119 Width = 1210 120 120 OnChange = ListViewFilter1Change 121 121 Align = alBottom … … 123 123 object StatusBar1: TStatusBar 124 124 Left = 0 125 Height = 2 8126 Top = 918127 Width = 12 60125 Height = 27 126 Top = 881 127 Width = 1210 128 128 Panels = < 129 129 item 130 Width = 5 2130 Width = 50 131 131 end> 132 132 SimplePanel = False … … 134 134 object PopupMenuContact: TPopupMenu 135 135 Images = Core.ImageList1 136 Left = 4 53137 Top = 2 74136 Left = 435 137 Top = 263 138 138 object MenuItem1: TMenuItem 139 139 Action = AAdd … … 175 175 object ActionList1: TActionList 176 176 Images = Core.ImageList1 177 Left = 7 63178 Top = 2 68177 Left = 732 178 Top = 257 179 179 object AAdd: TAction 180 180 Caption = 'Add' … … 241 241 Column = 0 242 242 Order = soNone 243 Left = 5 50244 Top = 4 46243 Left = 528 244 Top = 428 245 245 end 246 246 object SaveDialog1: TSaveDialog 247 Left = 7 50248 Top = 4 25247 Left = 720 248 Top = 408 249 249 end 250 250 object OpenDialog1: TOpenDialog 251 Left = 7 50252 Top = 500251 Left = 720 252 Top = 480 253 253 end 254 254 end -
trunk/Forms/UFormContacts.pas
r127 r128 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd; 7 Menus, ActnList, UContact, UListViewSort, LazUTF8, Clipbrd, 8 Generics.Collections; 8 9 9 10 type … … 76 77 FContacts: TContacts; 77 78 FUpdateCount: Integer; 78 procedure FilterList(List: T FPGObjectList<TObject>);79 procedure FilterList(List: TObjectList<TObject>); 79 80 procedure SetContacts(AValue: TContacts); 80 81 function GetPreviousContact(Contact: TContact): TContact; … … 188 189 end; 189 190 190 procedure TFormContacts.FilterList(List: T FPGObjectList<TObject>);191 procedure TFormContacts.FilterList(List: TObjectList<TObject>); 191 192 var 192 193 I: Integer; … … 194 195 K: Integer; 195 196 FoundCount: Integer; 197 Item: TContact; 196 198 begin 197 199 for I := List.Count - 1 downto 0 do begin 198 200 if List.Items[I] is TContact then begin 199 with TContact(List.Items[I]) do begin 201 Item := TContact(List.Items[I]); 202 with Item do begin 200 203 FoundCount := 0; 201 204 for J := 0 to FilterItems.Count - 1 do 202 205 if FilterItems[J].FieldIndex = cfNone then begin 203 for K := 0 to TContact(List.Items[I]).GetFields.Count - 1 do begin206 for K := 0 to Item.GetFields.Count - 1 do begin 204 207 if Pos(UTF8LowerCase(FilterItems[J].Value), 205 UTF8LowerCase( TContact(List.Items[I]).Fields[TContact.GetFields[K].Index])) > 0 then begin208 UTF8LowerCase(Item.Fields[TContact.GetFields[K].Index])) > 0 then begin 206 209 Inc(FoundCount); 207 210 Break; … … 210 213 end else begin 211 214 if Pos(UTF8LowerCase(FilterItems[J].Value), 212 UTF8LowerCase( TContact(List.Items[I]).Fields[FilterItems[J].FieldIndex])) > 0 then215 UTF8LowerCase(Item.Fields[FilterItems[J].FieldIndex])) > 0 then 213 216 Inc(FoundCount); 214 217 end; -
trunk/Forms/UFormFind.lfm
r103 r128 1 1 object FormFind: TFormFind 2 2 Left = 469 3 Height = 5 453 Height = 523 4 4 Top = 407 5 Width = 8 415 Width = 807 6 6 ActiveControl = EditValue 7 7 Caption = 'Find' 8 ClientHeight = 5 459 ClientWidth = 8 4110 DesignTimePPI = 1 508 ClientHeight = 523 9 ClientWidth = 807 10 DesignTimePPI = 144 11 11 OnClose = FormClose 12 12 OnCreate = FormCreate … … 16 16 object Panel1: TPanel 17 17 Left = 0 18 Height = 6018 Height = 58 19 19 Top = 0 20 Width = 8 4120 Width = 807 21 21 Align = alTop 22 22 BevelOuter = bvNone 23 ClientHeight = 6024 ClientWidth = 8 4123 ClientHeight = 58 24 ClientWidth = 807 25 25 ParentFont = False 26 26 TabOrder = 0 27 27 object ComboBoxField: TComboBox 28 Left = 1 9229 Height = 4 230 Top = 1 731 Width = 2 5028 Left = 184 29 Height = 41 30 Top = 16 31 Width = 240 32 32 ItemHeight = 0 33 33 OnChange = ComboBoxFieldChange … … 37 37 end 38 38 object Label1: TLabel 39 Left = 1 440 Height = 2 741 Top = 2042 Width = 1 4239 Left = 13 40 Height = 26 41 Top = 19 42 Width = 135 43 43 Caption = 'By contact field:' 44 44 ParentFont = False 45 45 end 46 46 object EditValue: TEdit 47 Left = 4 5848 Height = 4 349 Top = 1 750 Width = 2 1747 Left = 440 48 Height = 42 49 Top = 16 50 Width = 208 51 51 OnKeyPress = EditValueKeyPress 52 52 TabOrder = 1 53 53 end 54 54 object ButtonFind: TButton 55 Left = 6 9256 Height = 4057 Top = 1 758 Width = 11 855 Left = 664 56 Height = 38 57 Top = 16 58 Width = 113 59 59 Caption = 'Find' 60 60 OnClick = ButtonFindClick -
trunk/Forms/UFormFind.pas
r127 r128 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ExtCtrls, StdCtrls, ActnList, Menus, fgl,UContact, UFormContacts;7 ExtCtrls, StdCtrls, ActnList, Menus, UContact, UFormContacts; 8 8 9 9 type -
trunk/Forms/UFormFindDuplicity.lfm
r103 r128 1 1 object FormFindDuplicity: TFormFindDuplicity 2 2 Left = 455 3 Height = 5 453 Height = 523 4 4 Top = 355 5 Width = 8 415 Width = 807 6 6 Caption = 'Find duplicities' 7 ClientHeight = 5 458 ClientWidth = 8 419 DesignTimePPI = 1 507 ClientHeight = 523 8 ClientWidth = 807 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 15 15 object ListView1: TListView 16 16 Left = 5 17 Height = 4 7518 Top = 6 519 Width = 83117 Height = 455 18 Top = 63 19 Width = 797 20 20 Align = alClient 21 21 BorderSpacing.Around = 5 … … 23 23 item 24 24 Caption = 'Field' 25 Width = 18 825 Width = 180 26 26 end 27 27 item 28 28 Caption = 'Contacts' 29 Width = 3 7529 Width = 360 30 30 end 31 31 item 32 32 Caption = 'Count' 33 Width = 2 5333 Width = 243 34 34 end> 35 35 OwnerData = True … … 45 45 object Panel1: TPanel 46 46 Left = 0 47 Height = 6047 Height = 58 48 48 Top = 0 49 Width = 8 4149 Width = 807 50 50 Align = alTop 51 51 BevelOuter = bvNone 52 ClientHeight = 6053 ClientWidth = 8 4152 ClientHeight = 58 53 ClientWidth = 807 54 54 ParentFont = False 55 55 TabOrder = 1 56 56 object ComboBoxField: TComboBox 57 Left = 16 758 Height = 4 259 Top = 1 760 Width = 3 4057 Left = 160 58 Height = 41 59 Top = 16 60 Width = 326 61 61 ItemHeight = 0 62 62 OnChange = ComboBoxFieldChange … … 66 66 end 67 67 object Label1: TLabel 68 Left = 1 469 Height = 2 770 Top = 2071 Width = 1 4268 Left = 13 69 Height = 26 70 Top = 19 71 Width = 135 72 72 Caption = 'By contact field:' 73 73 ParentFont = False 74 74 end 75 75 object ButtonMerge: TButton 76 Left = 51777 Height = 4078 Top = 1 579 Width = 11 876 Left = 496 77 Height = 38 78 Top = 14 79 Width = 113 80 80 Caption = 'Merge' 81 81 OnClick = ButtonMergeClick … … 84 84 end 85 85 object ActionList1: TActionList 86 Left = 2 7387 Top = 1 6086 Left = 262 87 Top = 154 88 88 object AShowContacts: TAction 89 89 Caption = 'Show contacts' … … 92 92 end 93 93 object PopupMenu1: TPopupMenu 94 Left = 9 495 Top = 1 5594 Left = 90 95 Top = 149 96 96 object MenuItem1: TMenuItem 97 97 Action = AShowContacts -
trunk/Forms/UFormFindDuplicity.pas
r127 r128 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 ExtCtrls, StdCtrls, ActnList, Menus, fgl, UContact; 7 ExtCtrls, StdCtrls, ActnList, Menus, UContact, Generics.Collections, 8 Generics.Defaults; 8 9 9 10 type … … 20 21 { TFoundItems } 21 22 22 TFoundItems = class(T FPGObjectList<TFoundItem>)23 TFoundItems = class(TObjectList<TFoundItem>) 23 24 function SearchByField(Field: string): TFoundItem; 24 25 end; … … 135 136 end; 136 137 137 function FoundItemsSort(const Item1, Item2: TFoundItem): Integer;138 function FoundItemsSort(constref Item1, Item2: TFoundItem): Integer; 138 139 begin 139 140 if Item1.Contacts.Count < Item2.Contacts.Count then Result := 1 … … 161 162 end; 162 163 end; 163 FoundItems.Sort( FoundItemsSort);164 FoundItems.Sort(TComparer<TFoundItem>.Construct(FoundItemsSort)); 164 165 ReloadList; 165 166 end; -
trunk/Forms/UFormImage.lfm
r103 r128 1 1 object FormImage: TFormImage 2 2 Left = 761 3 Height = 5 463 Height = 524 4 4 Top = 539 5 Width = 7 415 Width = 711 6 6 Caption = 'Photo' 7 ClientHeight = 5 468 ClientWidth = 7 419 Constraints.MinHeight = 17 810 Constraints.MinWidth = 7 4111 DesignTimePPI = 1 507 ClientHeight = 524 8 ClientWidth = 711 9 Constraints.MinHeight = 171 10 Constraints.MinWidth = 711 11 DesignTimePPI = 144 12 12 OnClose = FormClose 13 13 OnCreate = FormCreate … … 16 16 LCLVersion = '2.2.0.4' 17 17 object ImagePhoto: TImage 18 Left = 1 619 Height = 41220 Top = 1 621 Width = 70718 Left = 15 19 Height = 396 20 Top = 15 21 Width = 679 22 22 Anchors = [akTop, akLeft, akRight, akBottom] 23 23 Center = True … … 26 26 end 27 27 object ButtonLoad: TButton 28 Left = 1 629 Height = 3 930 Top = 4 9231 Width = 1 7628 Left = 15 29 Height = 37 30 Top = 473 31 Width = 169 32 32 Anchors = [akLeft, akBottom] 33 33 Caption = 'Load from file' … … 36 36 end 37 37 object ButtonSave: TButton 38 Left = 20039 Height = 3 940 Top = 4 9141 Width = 16 838 Left = 192 39 Height = 37 40 Top = 472 41 Width = 161 42 42 Anchors = [akLeft, akBottom] 43 43 Caption = 'Save to file' … … 46 46 end 47 47 object ButtonClear: TButton 48 Left = 3 7649 Height = 3 950 Top = 4 9251 Width = 10 448 Left = 361 49 Height = 37 50 Top = 473 51 Width = 100 52 52 Anchors = [akLeft, akBottom] 53 53 Caption = 'Clear' … … 56 56 end 57 57 object EditUrl: TEdit 58 Left = 8 859 Height = 4 360 Top = 4 3561 Width = 6 3558 Left = 84 59 Height = 42 60 Top = 417 61 Width = 610 62 62 Anchors = [akLeft, akRight, akBottom] 63 63 OnChange = EditUrlChange … … 65 65 end 66 66 object ButtonCancel: TButton 67 Left = 50468 Height = 3 969 Top = 4 9270 Width = 10 467 Left = 483 68 Height = 37 69 Top = 473 70 Width = 100 71 71 Anchors = [akRight, akBottom] 72 72 Caption = 'Cancel' … … 75 75 end 76 76 object ButtonOk: TButton 77 Left = 61978 Height = 3 979 Top = 4 9280 Width = 10 477 Left = 594 78 Height = 37 79 Top = 473 80 Width = 100 81 81 Anchors = [akRight, akBottom] 82 82 Caption = 'OK' … … 85 85 end 86 86 object Label1: TLabel 87 Left = 1 688 Height = 2 789 Top = 4 4390 Width = 4187 Left = 15 88 Height = 26 89 Top = 425 90 Width = 38 91 91 Anchors = [akLeft, akBottom] 92 92 Caption = 'URL:' 93 93 end 94 94 object OpenPictureDialog1: TOpenPictureDialog 95 Left = 1 3296 Top = 2 1695 Left = 127 96 Top = 207 97 97 end 98 98 object SavePictureDialog1: TSavePictureDialog 99 Left = 3 20100 Top = 2 1699 Left = 307 100 Top = 207 101 101 end 102 102 end -
trunk/Forms/UFormProperties.pas
r127 r128 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8; 7 Menus, ActnList, UContact, UDataFile, UListViewSort, LazUTF8, 8 Generics.Collections; 8 9 9 10 type … … 64 65 FProperties: TContactProperties; 65 66 FUpdateCount: Integer; 66 procedure FilterList(List: T FPGObjectList<TObject>);67 procedure FilterList(List: TObjectList<TObject>); 67 68 procedure SetProperties(AValue: TContactProperties); 68 69 procedure DoUpdateInterface; … … 167 168 end; 168 169 169 procedure TFormProperties.FilterList(List: T FPGObjectList<TObject>);170 procedure TFormProperties.FilterList(List: TObjectList<TObject>); 170 171 var 171 172 I: Integer; -
trunk/Forms/UFormTest.pas
r127 r128 49 49 50 50 uses 51 UCore, UFormTestCase, UContact , UTestCases;51 UCore, UFormTestCase, UContact; 52 52 53 53 { TFormTest } -
trunk/Packages/Common/Common.lpk
r90 r128 33 33 <Other> 34 34 <CompilerMessages> 35 <IgnoredMessages idx6058="True" idx50 24="True" idx3124="True" idx3123="True"/>35 <IgnoredMessages idx6058="True" idx5071="True" idx5024="True" idx3124="True" idx3123="True"/> 36 36 </CompilerMessages> 37 37 </Other> -
trunk/Packages/Common/UDebugLog.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, fgl, SyncObjs;6 Classes, SysUtils, FileUtil, Generics.Collections, SyncObjs; 7 7 8 8 type … … 13 13 Group: string; 14 14 Text: string; 15 end; 16 17 TDebugLogItems = class(TObjectList<TDebugLogItem>) 15 18 end; 16 19 … … 27 30 procedure SetMaxCount(const AValue: Integer); 28 31 public 29 Items: T FPGObjectList<TDebugLogItem>;32 Items: TDebugLogItems; 30 33 Lock: TCriticalSection; 31 34 procedure Add(Text: string; Group: string = ''); … … 116 119 begin 117 120 inherited; 118 Items := T FPGObjectList<TDebugLogItem>.Create;121 Items := TDebugLogItems.Create; 119 122 Lock := TCriticalSection.Create; 120 123 MaxCount := 100; … … 125 128 destructor TDebugLog.Destroy; 126 129 begin 127 Items.Free;128 Lock.Free;130 FreeAndNil(Items); 131 FreeAndNil(Lock); 129 132 inherited; 130 133 end; -
trunk/Packages/Common/UFindFile.pas
r90 r128 35 35 private 36 36 s : TStringList; 37 38 37 fSubFolder : boolean; 39 38 fAttr: TFileAttrib; 40 39 fPath : string; 41 40 fFileMask : string; 42 43 41 procedure SetPath(Value: string); 44 42 procedure FileSearch(const inPath : string); … … 46 44 constructor Create(AOwner: TComponent); override; 47 45 destructor Destroy; override; 48 49 46 function SearchForFiles: TStringList; 50 47 published … … 64 61 65 62 procedure Register; 63 66 64 67 65 implementation -
trunk/Packages/Common/UJobProgressView.pas
r127 r128 5 5 uses 6 6 SysUtils, Variants, Classes, Graphics, Controls, Forms, Syncobjs, 7 Dialogs, ComCtrls, StdCtrls, ExtCtrls, fgl, UThreading, Math,7 Dialogs, ComCtrls, StdCtrls, ExtCtrls, Generics.Collections, UThreading, Math, 8 8 DateUtils; 9 9 … … 69 69 end; 70 70 71 TJobs = class(T FPGObjectList<TJob>)71 TJobs = class(TObjectList<TJob>) 72 72 end; 73 73 -
trunk/Packages/Common/ULanguages.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, fgl;6 Classes, SysUtils, Generics.Collections; 7 7 8 8 type … … 15 15 { TLanguages } 16 16 17 TLanguages = class(T FPGObjectList<TLanguage>)17 TLanguages = class(TObjectList<TLanguage>) 18 18 function SearchByCode(ACode: string): TLanguage; 19 19 procedure AddNew(Code: string; Name: string); -
trunk/Packages/Common/UListViewSort.pas
r127 r128 7 7 uses 8 8 {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils, 9 Controls, DateUtils, Dialogs, fgl,Forms, Grids, StdCtrls, ExtCtrls,10 LclIntf, LclType, LResources ;9 Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls, 10 LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults; 11 11 12 12 type … … 17 17 TCompareEvent = function (Item1, Item2: TObject): Integer of object; 18 18 TListFilterEvent = procedure (ListViewSort: TListViewSort) of object; 19 20 TObjects = TObjectList<TObject>; 19 21 20 22 { TListViewSort } … … 50 52 {$ENDIF} 51 53 public 52 List: TFPGObjectList<TObject>;53 Source: TFPGObjectList<TObject>;54 Source: TObjects; 55 List: TObjects; 54 56 constructor Create(AOwner: TComponent); override; 55 57 destructor Destroy; override; … … 336 338 ListViewSortCompare: TCompareEvent; 337 339 338 function ListViewCompare(const Item1, Item2: TObject): Integer;340 function ListViewCompare(constref Item1, Item2: TObject): Integer; 339 341 begin 340 342 Result := ListViewSortCompare(Item1, Item2); … … 347 349 ListViewSortCompare := Compare; 348 350 if (List.Count > 0) then 349 List.Sort( ListViewCompare);351 List.Sort(TComparer<TObject>.Construct(ListViewCompare)); 350 352 end; 351 353 … … 353 355 begin 354 356 if Assigned(FOnFilter) then FOnFilter(Self) 355 else if Assigned(Source) then 356 List.Assign(Source) else 357 else if Assigned(Source) then begin 357 358 List.Clear; 359 List.AddRange(Source); 360 end else List.Clear; 358 361 if ListView.Items.Count <> List.Count then 359 362 ListView.Items.Count := List.Count; … … 410 413 begin 411 414 inherited; 412 List := T FPGObjectList<TObject>.Create;413 List. FreeObjects := False;415 List := TObjects.Create; 416 List.OwnsObjects := False; 414 417 end; 415 418 416 419 destructor TListViewSort.Destroy; 417 420 begin 418 List.Free;421 FreeAndNil(List); 419 422 inherited; 420 423 end; -
trunk/Packages/Common/UMetaCanvas.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, Graphics, Types, fgl;6 Classes, SysUtils, Graphics, Types, Generics.Collections; 7 7 8 8 type … … 17 17 end; 18 18 19 TCanvasObjects = class(T FPGObjectList<TCanvasObject>)19 TCanvasObjects = class(TObjectList<TCanvasObject>) 20 20 end; 21 21 -
trunk/Packages/Common/UPool.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, syncobjs, fgl, UThreading;6 Classes, SysUtils, syncobjs, Generics.Collections, UThreading; 7 7 8 8 type … … 20 20 function NewItemObject: TObject; virtual; 21 21 public 22 Items: T FPGObjectList<TObject>;23 FreeItems: T FPGObjectList<TObject>;22 Items: TObjectList<TObject>; 23 FreeItems: TObjectList<TObject>; 24 24 function Acquire: TObject; virtual; 25 25 procedure Release(Item: TObject); virtual; … … 183 183 begin 184 184 inherited; 185 Items := T FPGObjectList<TObject>.Create;186 FreeItems := T FPGObjectList<TObject>.Create;187 FreeItems. FreeObjects := False;185 Items := TObjectList<TObject>.Create; 186 FreeItems := TObjectList<TObject>.Create; 187 FreeItems.OwnsObjects := False; 188 188 FReleaseEvent := TEvent.Create(nil, False, False, ''); 189 189 end; -
trunk/Packages/Common/UScaleDPI.pas
r127 r128 6 6 7 7 uses 8 Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils, fgl; 8 Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils, 9 Generics.Collections; 9 10 10 11 type … … 26 27 end; 27 28 28 TControlDimensions = class(T FPGObjectList<TControlDimension>)29 TControlDimensions = class(TObjectList<TControlDimension>) 29 30 end; 30 31 -
trunk/Packages/Common/UTheme.pas
r127 r128 5 5 uses 6 6 Classes, SysUtils, Graphics, ComCtrls, Controls, ExtCtrls, Menus, StdCtrls, 7 Spin, Forms, fgl, Grids;7 Spin, Forms, Generics.Collections, Grids; 8 8 9 9 type … … 19 19 { TThemes } 20 20 21 TThemes = class(T FPGObjectList<TTheme>)21 TThemes = class(TObjectList<TTheme>) 22 22 function AddNew(Name: string): TTheme; 23 23 function FindByName(Name: string): TTheme; -
trunk/Packages/Common/UThreading.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, Forms, fgl, SyncObjs;6 Classes, SysUtils, Forms, Generics.Collections, SyncObjs; 7 7 8 8 type … … 99 99 { TThreadList } 100 100 101 TThreadList = class(T FPGObjectList<TVirtualThread>)101 TThreadList = class(TObjectList<TVirtualThread>) 102 102 function FindById(Id: TThreadID): TVirtualThread; 103 103 constructor Create; virtual; … … 358 358 ThreadListLock := TCriticalSection.Create; 359 359 ThreadList := TThreadList.Create; 360 ThreadList. FreeObjects := False;360 ThreadList.OwnsObjects := False; 361 361 362 362 finalization -
trunk/Packages/Common/UTranslator.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, Forms, ExtCtrls, Controls, fgl,LazFileUtils, LazUTF8,6 Classes, SysUtils, Forms, ExtCtrls, Controls, LazFileUtils, LazUTF8, 7 7 Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType, 8 LCLVersion ;8 LCLVersion, Generics.Collections; 9 9 10 10 type 11 11 THandleStringEvent = function (AValue: string): string of object; 12 12 13 TPoFiles = class(T FPGObjectList<TPOFile>)13 TPoFiles = class(TObjectList<TPOFile>) 14 14 end; 15 15 … … 25 25 { TComponentExcludesList } 26 26 27 TComponentExcludesList = class(T FPGObjectList<TComponentExcludes>)27 TComponentExcludesList = class(TObjectList<TComponentExcludes>) 28 28 function FindByClassType(AClassType: TClass): TComponentExcludes; 29 29 procedure DumpToStrings(Strings: TStrings); … … 288 288 Item := Component.ClassType; 289 289 while Assigned(Item) do begin 290 //ShowMessage(Component.Name + ', ' + Component.ClassName + ', ' + Item.ClassName + ', ' + PropertyName);291 290 Excludes := ComponentExcludes.FindByClassType(Item.ClassType); 292 291 if Assigned(Excludes) then begin -
trunk/Packages/SynEditEx/SynEditEx.lpk
r121 r128 7 7 <Version Value="11"/> 8 8 <SearchPaths> 9 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS) "/>9 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> 10 10 </SearchPaths> 11 <Parsing> 12 <SyntaxOptions> 13 <SyntaxMode Value="Delphi"/> 14 <CStyleOperator Value="False"/> 15 <AllowLabel Value="False"/> 16 <CPPInline Value="False"/> 17 </SyntaxOptions> 18 </Parsing> 19 <CodeGeneration> 20 <Optimizations> 21 <OptimizationLevel Value="0"/> 22 </Optimizations> 23 </CodeGeneration> 24 <Linking> 25 <Debugging> 26 <GenerateDebugInfo Value="False"/> 27 </Debugging> 28 </Linking> 11 29 </CompilerOptions> 12 30 <Files> -
trunk/Packages/SynEditEx/USynEditEx.pas
r121 r128 1 1 unit USynEditEx; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/Packages/lazbarcodes/demo
-
Property svn:ignore
set to
LazBarcodeDemo
LazBarcodeDemo.lps
LazBarcodeDemo.res
lib
-
Property svn:ignore
set to
-
trunk/UContact.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, fgl, Dialogs, UDataFile, LazUTF8, Base64, Graphics; 6 Classes, SysUtils, Generics.Collections, Generics.Defaults, Dialogs, 7 UDataFile, LazUTF8, Base64, Graphics, UListViewSort; 7 8 8 9 type … … 62 63 cfPeerTube, cfLinkedIn, cfMastodon, cfMySpace, cfReddit); 63 64 64 TContactFieldIndexes = T FPGList<TContactFieldIndex>;65 TContactFieldIndexes = TList<TContactFieldIndex>; 65 66 66 67 TContactFilterItem = class … … 71 72 { TContactFilterItems } 72 73 73 TContactFilterItems = class(T FPGObjectList<TContactFilterItem>)74 TContactFilterItems = class(TObjectList<TContactFilterItem>) 74 75 function AddNew(FieldIndex: TContactFieldIndex; Value: string): TContactFilterItem; 75 76 end; … … 98 99 { TContactFields } 99 100 100 TContactFields = class(T FPGObjectList<TContactField>)101 TContactFields = class(TObjectList<TContactField>) 101 102 private 102 103 Indexes: array[TContactFieldIndex] of TContactField; … … 143 144 { TContactProperties } 144 145 145 TContactProperties = class(T FPGObjectList<TContactProperty>)146 TContactProperties = class(TObjectList<TContactProperty>) 146 147 function AddNew(Name, Value: string): TContactProperty; 147 148 procedure Assign(Source: TContactProperties); 148 procedure AssignToList(List: T FPGObjectList<TObject>);149 procedure AssignToList(List: TObjects); 149 150 function GetByName(Name: string): TContactProperty; 150 151 function GetByNameGroups(Name: string; Groups: TStringArray; … … 197 198 { TContacts } 198 199 199 TContacts = class(T FPGObjectList<TContact>)200 TContacts = class(TObjectList<TContact>) 200 201 ContactsFile: TContactsFile; 201 202 procedure Assign(Source: TContacts); 202 203 procedure AddContacts(Contacts: TContacts); 203 204 procedure InsertContacts(Index: Integer; Contacts: TContacts); 204 procedure AssignToList(List: T FPGObjectList<TObject>);205 procedure AssignToList(List: TObjects); 205 206 function AddNew: TContact; 206 207 function Search(Text: string; FieldIndex: TContactFieldIndex): TContact; … … 854 855 end; 855 856 856 procedure TContactProperties.AssignToList(List: T FPGObjectList<TObject>);857 procedure TContactProperties.AssignToList(List: TObjects); 857 858 var 858 859 I: Integer; … … 1126 1127 end; 1127 1128 1128 procedure TContacts.AssignToList(List: T FPGObjectList<TObject>);1129 var 1130 I: Integer; 1131 begin 1132 while List.Count > Count do List.Delete(List.Count - 1);1133 while List.Count < Count do List.Add(nil);1134 for I := 0 to Count - 1 do1129 procedure TContacts.AssignToList(List: TObjects); 1130 var 1131 I: Integer; 1132 begin 1133 while List.Count > Count do 1134 List.Delete(List.Count - 1); 1135 for I := 0 to List.Count - 1 do 1135 1136 List[I] := Items[I]; 1137 while List.Count < Count do 1138 List.Add(Items[List.Count]); 1136 1139 end; 1137 1140 … … 1906 1909 end; 1907 1910 1908 function CompareContactFullName(const Item1, Item2: TContact): Integer;1911 function CompareContactFullName(constref Item1, Item2: TContact): Integer; 1909 1912 begin 1910 1913 Result := CompareStr(Item1.Fields[cfFullName], Item2.Fields[cfFullName]); 1911 1914 end; 1912 1915 1913 function ComparePropertyName(const Item1, Item2: TContactProperty): Integer;1916 function ComparePropertyName(constref Item1, Item2: TContactProperty): Integer; 1914 1917 begin 1915 1918 Result := CompareStr(Item1.Name + ';' + Item1.Attributes.Text, … … 1921 1924 I: Integer; 1922 1925 begin 1923 Contacts.Sort( CompareContactFullName);1926 Contacts.Sort(TComparer<TContact>.Construct(CompareContactFullName)); 1924 1927 for I := 0 to Contacts.Count - 1 do 1925 Contacts[I].Properties.Sort( ComparePropertyName);1928 Contacts[I].Properties.Sort(TComparer<TContactProperty>.Construct(ComparePropertyName)); 1926 1929 end; 1927 1930 -
trunk/UDataFile.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, fgl;6 Classes, SysUtils, Generics.Collections; 7 7 8 8 type … … 32 32 TDataFileClass = class of TDataFile; 33 33 34 TDataFiles = class(T FPGObjectList<TDataFile>)34 TDataFiles = class(TObjectList<TDataFile>) 35 35 end; 36 36 -
trunk/UTest.pas
r127 r128 4 4 5 5 uses 6 Classes, SysUtils, fgl, UContact;6 Classes, SysUtils, Generics.Collections, UContact; 7 7 8 8 type … … 26 26 { TTestCases } 27 27 28 TTestCases = class(T FPGObjectList<TTestCase>)28 TTestCases = class(TObjectList<TTestCase>) 29 29 function AddNew(Name: string; TestClass: TTestCaseClass): TTestCase; 30 30 end; -
trunk/vCardStudio.lpi
r126 r128 69 69 <Other> 70 70 <CompilerMessages> 71 <IgnoredMessages idx6058="True" idx50 24="True" idx3124="True" idx3123="True"/>71 <IgnoredMessages idx6058="True" idx5071="True" idx5024="True" idx3124="True" idx3123="True"/> 72 72 </CompilerMessages> 73 73 </Other> … … 75 75 </Item2> 76 76 <SharedMatrixOptions Count="2"> 77 <Item1 ID="186308868222" Targets="Common " Modes="Debug" Value="-g -gl -gh -CirotR -O1"/>78 <Item2 ID="035947176865" Targets="Common " Modes="Release" Value="-CX -XX -O3"/>77 <Item1 ID="186308868222" Targets="Common,SynEditEx" Modes="Debug" Value="-g -gl -gh -CirotR -O1"/> 78 <Item2 ID="035947176865" Targets="Common,SynEditEx" Modes="Release" Value="-CX -XX -O3"/> 79 79 </SharedMatrixOptions> 80 80 </BuildModes> … … 320 320 <Other> 321 321 <CompilerMessages> 322 <IgnoredMessages idx6058="True" idx50 24="True" idx3124="True" idx3123="True"/>322 <IgnoredMessages idx6058="True" idx5071="True" idx5024="True" idx3124="True" idx3123="True"/> 323 323 </CompilerMessages> 324 324 </Other>
Note:
See TracChangeset
for help on using the changeset viewer.