Changeset 93 for trunk/Forms


Ignore:
Timestamp:
Feb 3, 2022, 10:30:03 PM (3 years ago)
Author:
chronos
Message:
  • Fixed: Non-string properties were incorrectly escaped.
  • Modified: Avoid loading and storing contact image during switching tabs.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r89 r93  
    11object FormContact: TFormContact
    22  Left = 604
    3   Height = 742
     3  Height = 773
    44  Top = 484
    5   Width = 991
     5  Width = 1032
    66  Caption = 'Contact'
    7   ClientHeight = 742
    8   ClientWidth = 991
    9   DesignTimePPI = 144
     7  ClientHeight = 773
     8  ClientWidth = 1032
     9  DesignTimePPI = 150
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.0.12.0'
     14  LCLVersion = '2.2.0.4'
    1515  object PageControlContact: TPageControl
    1616    Left = 8
    17     Height = 668
     17    Height = 696
    1818    Top = 8
    19     Width = 969
     19    Width = 1009
    2020    ActivePage = TabSheetAll
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    2525    object TabSheetGeneral: TTabSheet
    2626      Caption = 'General'
    27       ClientHeight = 628
    28       ClientWidth = 959
     27      ClientHeight = 655
     28      ClientWidth = 999
    2929      OnHide = TabSheetGeneralHide
    3030      OnShow = TabSheetGeneralShow
    3131      ParentFont = False
    3232      object Label1: TLabel
    33         Left = 240
    34         Height = 24
    35         Top = 80
     33        Left = 250
     34        Height = 27
     35        Top = 83
     36        Width = 101
     37        Caption = 'First name:'
     38        ParentFont = False
     39      end
     40      object EditFirstName: TEdit
     41        Left = 375
     42        Height = 43
     43        Top = 75
     44        Width = 161
     45        ParentFont = False
     46        TabOrder = 1
     47      end
     48      object Label2: TLabel
     49        Left = 17
     50        Height = 27
     51        Top = 260
     52        Width = 66
     53        Caption = 'Mobile:'
     54        ParentFont = False
     55      end
     56      object EditMobile: TEdit
     57        Left = 150
     58        Height = 43
     59        Top = 250
     60        Width = 265
     61        ParentFont = False
     62        TabOrder = 7
     63      end
     64      object EditPhone: TEdit
     65        Left = 150
     66        Height = 43
     67        Top = 298
     68        Width = 265
     69        ParentFont = False
     70        TabOrder = 9
     71      end
     72      object Label3: TLabel
     73        Left = 17
     74        Height = 27
     75        Top = 302
     76        Width = 62
     77        Caption = 'Phone:'
     78        ParentFont = False
     79      end
     80      object EditEmail: TEdit
     81        Left = 150
     82        Height = 43
     83        Top = 342
     84        Width = 265
     85        ParentFont = False
     86        TabOrder = 11
     87      end
     88      object Label4: TLabel
     89        Left = 17
     90        Height = 27
     91        Top = 350
     92        Width = 60
     93        Caption = 'E-mail:'
     94        ParentFont = False
     95      end
     96      object EditLastName: TEdit
     97        Left = 699
     98        Height = 43
     99        Top = 75
     100        Width = 161
     101        ParentFont = False
     102        TabOrder = 2
     103      end
     104      object Label5: TLabel
     105        Left = 558
     106        Height = 27
     107        Top = 83
    36108        Width = 94
    37         Caption = 'First name:'
    38         ParentColor = False
    39         ParentFont = False
    40       end
    41       object EditFirstName: TEdit
    42         Left = 360
    43         Height = 42
    44         Top = 72
    45         Width = 155
    46         ParentFont = False
    47         TabOrder = 1
    48       end
    49       object Label2: TLabel
    50         Left = 16
    51         Height = 24
    52         Top = 250
    53         Width = 63
    54         Caption = 'Mobile:'
    55         ParentColor = False
    56         ParentFont = False
    57       end
    58       object EditMobile: TEdit
    59         Left = 144
    60         Height = 42
    61         Top = 240
    62         Width = 254
    63         ParentFont = False
    64         TabOrder = 7
    65       end
    66       object EditPhone: TEdit
    67         Left = 144
    68         Height = 42
    69         Top = 286
    70         Width = 254
    71         ParentFont = False
    72         TabOrder = 9
    73       end
    74       object Label3: TLabel
    75         Left = 16
    76         Height = 24
    77         Top = 290
    78         Width = 59
    79         Caption = 'Phone:'
    80         ParentColor = False
    81         ParentFont = False
    82       end
    83       object EditEmail: TEdit
    84         Left = 144
    85         Height = 42
    86         Top = 328
    87         Width = 254
    88         ParentFont = False
    89         TabOrder = 11
    90       end
    91       object Label4: TLabel
    92         Left = 16
    93         Height = 24
    94         Top = 336
    95         Width = 58
    96         Caption = 'E-mail:'
    97         ParentColor = False
    98         ParentFont = False
    99       end
    100       object EditLastName: TEdit
    101         Left = 671
    102         Height = 42
    103         Top = 72
    104         Width = 155
    105         ParentFont = False
    106         TabOrder = 2
    107       end
    108       object Label5: TLabel
    109         Left = 536
    110         Height = 24
    111         Top = 80
    112         Width = 87
    113109        Caption = 'Last name'
    114         ParentColor = False
    115110        ParentFont = False
    116111      end
    117112      object EditBirthday: TEdit
    118         Left = 144
    119         Height = 42
    120         Top = 424
    121         Width = 254
     113        Left = 150
     114        Height = 43
     115        Top = 442
     116        Width = 265
    122117        ParentFont = False
    123118        TabOrder = 14
    124119      end
    125120      object Label22: TLabel
    126         Left = 16
    127         Height = 24
    128         Top = 432
    129         Width = 76
     121        Left = 17
     122        Height = 27
     123        Top = 450
     124        Width = 82
    130125        Caption = 'Birthday:'
    131         ParentColor = False
    132126        ParentFont = False
    133127      end
    134128      object ImagePhoto: TImage
    135         Left = 16
    136         Height = 210
    137         Top = 16
    138         Width = 207
     129        Left = 17
     130        Height = 219
     131        Top = 17
     132        Width = 216
    139133        Center = True
    140134        OnClick = APhotoLoadExecute
    … …  
    144138      end
    145139      object Label24: TLabel
    146         Left = 240
    147         Height = 24
    148         Top = 32
    149         Width = 88
     140        Left = 250
     141        Height = 27
     142        Top = 33
     143        Width = 94
    150144        Caption = 'Full name:'
    151         ParentColor = False
    152145        ParentFont = False
    153146      end
    154147      object EditFullName: TEdit
    155         Left = 360
    156         Height = 42
    157         Top = 24
    158         Width = 467
     148        Left = 375
     149        Height = 43
     150        Top = 25
     151        Width = 486
    159152        ParentFont = False
    160153        TabOrder = 0
    161154      end
    162155      object Label25: TLabel
    163         Left = 536
    164         Height = 24
    165         Top = 128
    166         Width = 116
     156        Left = 558
     157        Height = 27
     158        Top = 133
     159        Width = 124
    167160        Caption = 'Middle name:'
    168         ParentColor = False
    169161        ParentFont = False
    170162      end
    171163      object EditMiddleName: TEdit
    172         Left = 671
    173         Height = 42
    174         Top = 120
    175         Width = 155
     164        Left = 699
     165        Height = 43
     166        Top = 125
     167        Width = 161
    176168        ParentFont = False
    177169        TabOrder = 4
    178170      end
    179171      object Label26: TLabel
    180         Left = 240
    181         Height = 24
    182         Top = 176
    183         Width = 101
     172        Left = 250
     173        Height = 27
     174        Top = 183
     175        Width = 106
    184176        Caption = 'Title before:'
    185         ParentColor = False
    186177        ParentFont = False
    187178      end
    188179      object EditTitleBefore: TEdit
    189         Left = 360
    190         Height = 42
    191         Top = 168
    192         Width = 155
     180        Left = 375
     181        Height = 43
     182        Top = 175
     183        Width = 161
    193184        ParentFont = False
    194185        TabOrder = 5
    195186      end
    196187      object Label27: TLabel
    197         Left = 536
    198         Height = 24
    199         Top = 176
    200         Width = 85
     188        Left = 558
     189        Height = 27
     190        Top = 183
     191        Width = 91
    201192        Caption = 'Title after:'
    202         ParentColor = False
    203193        ParentFont = False
    204194      end
    205195      object EditTitleAfter: TEdit
    206         Left = 671
    207         Height = 42
    208         Top = 168
    209         Width = 155
     196        Left = 699
     197        Height = 43
     198        Top = 175
     199        Width = 161
    210200        ParentFont = False
    211201        TabOrder = 6
    212202      end
    213203      object Label44: TLabel
    214         Left = 240
    215         Height = 24
    216         Top = 128
    217         Width = 91
     204        Left = 250
     205        Height = 27
     206        Top = 133
     207        Width = 95
    218208        Caption = 'Nickname:'
    219         ParentColor = False
    220209        ParentFont = False
    221210      end
    222211      object EditNickName: TEdit
    223         Left = 360
    224         Height = 42
    225         Top = 120
    226         Width = 155
     212        Left = 375
     213        Height = 43
     214        Top = 125
     215        Width = 161
    227216        ParentFont = False
    228217        TabOrder = 3
    229218      end
    230219      object Label45: TLabel
    231         Left = 432
    232         Height = 24
    233         Top = 432
    234         Width = 105
     220        Left = 450
     221        Height = 27
     222        Top = 450
     223        Width = 113
    235224        Caption = 'Anniversary:'
    236         ParentColor = False
    237225        ParentFont = False
    238226      end
    239227      object EditAniversary: TEdit
    240         Left = 575
    241         Height = 42
    242         Top = 424
    243         Width = 254
     228        Left = 599
     229        Height = 43
     230        Top = 442
     231        Width = 265
    244232        ParentFont = False
    245233        TabOrder = 15
    246234      end
    247235      object Label9: TLabel
    248         Left = 432
    249         Height = 24
    250         Top = 248
    251         Width = 34
     236        Left = 450
     237        Height = 27
     238        Top = 258
     239        Width = 36
    252240        Caption = 'Fax:'
    253         ParentColor = False
    254241        ParentFont = False
    255242      end
    256243      object EditFax: TEdit
    257         Left = 575
    258         Height = 42
    259         Top = 240
    260         Width = 254
     244        Left = 599
     245        Height = 43
     246        Top = 250
     247        Width = 265
    261248        ParentFont = False
    262249        TabOrder = 8
    263250      end
    264251      object EditPager: TEdit
    265         Left = 575
    266         Height = 42
    267         Top = 286
    268         Width = 254
     252        Left = 599
     253        Height = 43
     254        Top = 298
     255        Width = 265
    269256        ParentFont = False
    270257        TabOrder = 10
    271258      end
    272259      object Label10: TLabel
    273         Left = 432
    274         Height = 24
    275         Top = 290
    276         Width = 54
     260        Left = 450
     261        Height = 27
     262        Top = 302
     263        Width = 58
    277264        Caption = 'Pager:'
    278         ParentColor = False
    279265        ParentFont = False
    280266      end
    281267      object Label46: TLabel
    282         Left = 16
    283         Height = 24
    284         Top = 384
    285         Width = 114
     268        Left = 17
     269        Height = 27
     270        Top = 400
     271        Width = 121
    286272        Caption = 'Web address:'
    287         ParentColor = False
    288273        ParentFont = False
    289274      end
    290275      object EditWeb: TEdit
    291         Left = 144
    292         Height = 42
    293         Top = 376
    294         Width = 683
     276        Left = 150
     277        Height = 43
     278        Top = 392
     279        Width = 711
    295280        ParentFont = False
    296281        TabOrder = 13
    297282      end
    298283      object Label49: TLabel
    299         Left = 432
    300         Height = 24
    301         Top = 332
    302         Width = 67
     284        Left = 450
     285        Height = 27
     286        Top = 346
     287        Width = 73
    303288        Caption = 'Gender:'
    304         ParentColor = False
    305289        ParentFont = False
    306290      end
    307291      object EditGender: TEdit
    308         Left = 575
    309         Height = 42
    310         Top = 328
    311         Width = 254
     292        Left = 599
     293        Height = 43
     294        Top = 342
     295        Width = 265
    312296        ParentFont = False
    313297        TabOrder = 12
    314298      end
    315299      object Label56: TLabel
    316         Left = 16
    317         Height = 24
    318         Top = 480
    319         Width = 95
     300        Left = 17
     301        Height = 27
     302        Top = 500
     303        Width = 102
    320304        Caption = 'Categories:'
    321         ParentColor = False
    322305        ParentFont = False
    323306      end
    324307      object EditCategories: TEdit
    325         Left = 144
    326         Height = 42
    327         Top = 472
    328         Width = 254
     308        Left = 150
     309        Height = 43
     310        Top = 492
     311        Width = 265
    329312        ParentFont = False
    330313        TabOrder = 16
    … …  
    333316    object TabSheetHome: TTabSheet
    334317      Caption = 'Home'
    335       ClientHeight = 628
    336       ClientWidth = 959
     318      ClientHeight = 655
     319      ClientWidth = 999
    337320      OnHide = TabSheetHomeHide
    338321      OnShow = TabSheetHomeShow
    339322      ParentFont = False
    340323      object Label7: TLabel
    341         Left = 16
    342         Height = 24
    343         Top = 114
     324        Left = 17
     325        Height = 27
     326        Top = 119
     327        Width = 60
     328        Caption = 'E-mail:'
     329        ParentFont = False
     330      end
     331      object EditHomeEmail: TEdit
     332        Left = 180
     333        Height = 43
     334        Top = 117
     335        Width = 265
     336        ParentFont = False
     337        TabOrder = 4
     338      end
     339      object Label11: TLabel
     340        Left = 467
     341        Height = 27
     342        Top = 19
     343        Width = 36
     344        Caption = 'Fax:'
     345        ParentFont = False
     346      end
     347      object EditHomeFax: TEdit
     348        Left = 630
     349        Height = 43
     350        Top = 17
     351        Width = 265
     352        ParentFont = False
     353        TabOrder = 1
     354      end
     355      object EditHomeMobile: TEdit
     356        Left = 180
     357        Height = 43
     358        Top = 63
     359        Width = 265
     360        ParentFont = False
     361        TabOrder = 2
     362      end
     363      object EditHomePhone: TEdit
     364        Left = 180
     365        Height = 43
     366        Top = 17
     367        Width = 265
     368        ParentFont = False
     369        TabOrder = 0
     370      end
     371      object Label14: TLabel
     372        Left = 467
     373        Height = 27
     374        Top = 71
    344375        Width = 58
    345         Caption = 'E-mail:'
    346         ParentColor = False
    347         ParentFont = False
    348       end
    349       object EditHomeEmail: TEdit
    350         Left = 173
    351         Height = 42
    352         Top = 112
    353         Width = 254
    354         ParentFont = False
    355         TabOrder = 4
    356       end
    357       object Label11: TLabel
    358         Left = 448
    359         Height = 24
    360         Top = 18
    361         Width = 34
    362         Caption = 'Fax:'
    363         ParentColor = False
    364         ParentFont = False
    365       end
    366       object EditHomeFax: TEdit
    367         Left = 605
    368         Height = 42
    369         Top = 16
    370         Width = 254
    371         ParentFont = False
    372         TabOrder = 1
    373       end
    374       object EditHomeMobile: TEdit
    375         Left = 173
    376         Height = 42
    377         Top = 60
    378         Width = 254
    379         ParentFont = False
    380         TabOrder = 2
    381       end
    382       object EditHomePhone: TEdit
    383         Left = 173
    384         Height = 42
    385         Top = 16
    386         Width = 254
    387         ParentFont = False
    388         TabOrder = 0
    389       end
    390       object Label14: TLabel
    391         Left = 448
    392         Height = 24
    393         Top = 68
    394         Width = 54
    395376        Caption = 'Pager:'
    396         ParentColor = False
    397377        ParentFont = False
    398378      end
    399379      object EditHomePager: TEdit
    400         Left = 605
    401         Height = 42
    402         Top = 60
    403         Width = 254
     380        Left = 630
     381        Height = 43
     382        Top = 63
     383        Width = 265
    404384        ParentFont = False
    405385        TabOrder = 3
    406386      end
    407387      object Label40: TLabel
    408         Left = 16
    409         Height = 24
    410         Top = 168
    411         Width = 114
     388        Left = 17
     389        Height = 27
     390        Top = 175
     391        Width = 121
    412392        Caption = 'Web address:'
    413         ParentColor = False
    414393        ParentFont = False
    415394      end
    416395      object EditHomeWeb: TEdit
    417         Left = 173
    418         Height = 42
    419         Top = 160
    420         Width = 683
     396        Left = 180
     397        Height = 43
     398        Top = 167
     399        Width = 711
    421400        ParentFont = False
    422401        TabOrder = 5
    … …  
    424403      object GroupBox1: TGroupBox
    425404        Left = 10
    426         Height = 242
    427         Top = 216
    428         Width = 922
     405        Height = 252
     406        Top = 225
     407        Width = 961
    429408        Anchors = [akTop, akLeft, akRight]
    430409        Caption = 'Address'
    431         ClientHeight = 215
    432         ClientWidth = 920
     410        ClientHeight = 250
     411        ClientWidth = 959
    433412        TabOrder = 6
    434413        object Label36: TLabel
    435414          Left = 8
    436           Height = 24
    437           Top = 18
    438           Width = 54
     415          Height = 27
     416          Top = 19
     417          Width = 58
    439418          Caption = 'Street:'
    440           ParentColor = False
    441419          ParentFont = False
    442420        end
    443421        object Label37: TLabel
    444422          Left = 10
    445           Height = 24
    446           Top = 66
    447           Width = 137
     423          Height = 27
     424          Top = 69
     425          Width = 147
    448426          Caption = 'Extended street:'
    449           ParentColor = False
    450427          ParentFont = False
    451428        end
    452429        object EditHomeAddressStreetExtended: TEdit
    453           Left = 173
    454           Height = 42
    455           Top = 56
    456           Width = 254
     430          Left = 180
     431          Height = 43
     432          Top = 58
     433          Width = 265
    457434          ParentFont = False
    458435          TabOrder = 2
    459436        end
    460437        object EditHomeAddressStreet: TEdit
    461           Left = 173
    462           Height = 42
     438          Left = 180
     439          Height = 43
    463440          Top = 8
    464           Width = 254
     441          Width = 265
    465442          ParentFont = False
    466443          TabOrder = 0
    … …  
    468445        object Label38: TLabel
    469446          Left = 10
    470           Height = 24
    471           Top = 112
    472           Width = 64
     447          Height = 27
     448          Top = 117
     449          Width = 68
    473450          Caption = 'Region:'
    474           ParentColor = False
    475451          ParentFont = False
    476452        end
    477453        object EditHomeAddressRegion: TEdit
    478           Left = 173
    479           Height = 42
    480           Top = 104
    481           Width = 254
     454          Left = 180
     455          Height = 43
     456          Top = 108
     457          Width = 265
    482458          ParentFont = False
    483459          TabOrder = 4
    484460        end
    485461        object EditHomeAddressCountry: TEdit
    486           Left = 173
    487           Height = 42
    488           Top = 152
    489           Width = 254
     462          Left = 180
     463          Height = 43
     464          Top = 158
     465          Width = 265
    490466          ParentFont = False
    491467          TabOrder = 5
    … …  
    493469        object Label39: TLabel
    494470          Left = 10
    495           Height = 24
    496           Top = 160
    497           Width = 71
     471          Height = 27
     472          Top = 167
     473          Width = 77
    498474          Caption = 'Country:'
    499           ParentColor = False
    500475          ParentFont = False
    501476        end
    502477        object Label41: TLabel
    503           Left = 451
    504           Height = 24
    505           Top = 160
    506           Width = 103
     478          Left = 470
     479          Height = 27
     480          Top = 167
     481          Width = 107
    507482          Caption = 'Postal code:'
    508           ParentColor = False
    509483          ParentFont = False
    510484        end
    511485        object EditHomeAddressPostalCode: TEdit
    512           Left = 588
    513           Height = 42
    514           Top = 152
    515           Width = 254
     486          Left = 612
     487          Height = 43
     488          Top = 158
     489          Width = 265
    516490          ParentFont = False
    517491          TabOrder = 6
    518492        end
    519493        object EditHomeAddressCity: TEdit
    520           Left = 588
    521           Height = 42
    522           Top = 56
    523           Width = 254
     494          Left = 612
     495          Height = 43
     496          Top = 58
     497          Width = 265
    524498          ParentFont = False
    525499          TabOrder = 3
    526500        end
    527501        object Label42: TLabel
    528           Left = 451
    529           Height = 24
    530           Top = 64
    531           Width = 36
     502          Left = 470
     503          Height = 27
     504          Top = 67
     505          Width = 39
    532506          Caption = 'City:'
    533           ParentColor = False
    534507          ParentFont = False
    535508        end
    536509        object Label43: TLabel
    537           Left = 451
    538           Height = 24
    539           Top = 16
    540           Width = 131
     510          Left = 470
     511          Height = 27
     512          Top = 17
     513          Width = 135
    541514          Caption = 'Post office box:'
    542           ParentColor = False
    543515          ParentFont = False
    544516        end
    545517        object EditHomeAddressPostOfficeBox: TEdit
    546           Left = 588
    547           Height = 42
     518          Left = 612
     519          Height = 43
    548520          Top = 8
    549           Width = 254
     521          Width = 265
    550522          ParentFont = False
    551523          TabOrder = 1
    … …  
    553525      end
    554526      object Label12: TLabel
    555         Left = 16
    556         Height = 24
    557         Top = 64
    558         Width = 63
     527        Left = 17
     528        Height = 27
     529        Top = 67
     530        Width = 66
    559531        Caption = 'Mobile:'
    560         ParentColor = False
    561532        ParentFont = False
    562533      end
    563534      object Label13: TLabel
    564         Left = 16
    565         Height = 24
    566         Top = 20
    567         Width = 59
     535        Left = 17
     536        Height = 27
     537        Top = 21
     538        Width = 62
    568539        Caption = 'Phone:'
    569         ParentColor = False
    570540        ParentFont = False
    571541      end
    … …  
    573543    object TabSheetWork: TTabSheet
    574544      Caption = 'Work'
    575       ClientHeight = 628
    576       ClientWidth = 959
     545      ClientHeight = 655
     546      ClientWidth = 999
    577547      OnHide = TabSheetWorkHide
    578548      OnShow = TabSheetWorkShow
    579549      object EditOrganization: TEdit
    580         Left = 173
    581         Height = 42
    582         Top = 64
    583         Width = 254
     550        Left = 180
     551        Height = 43
     552        Top = 67
     553        Width = 265
    584554        ParentFont = False
    585555        TabOrder = 2
    … …  
    587557      object LabelOrganization: TLabel
    588558        Left = 10
    589         Height = 24
    590         Top = 70
    591         Width = 114
     559        Height = 27
     560        Top = 73
     561        Width = 123
    592562        Caption = 'Organization:'
    593         ParentColor = False
    594563        ParentFont = False
    595564      end
    596565      object LabelOrganization1: TLabel
    597         Left = 451
    598         Height = 24
    599         Top = 24
    600         Width = 106
     566        Left = 470
     567        Height = 27
     568        Top = 25
     569        Width = 116
    601570        Caption = 'Department:'
    602         ParentColor = False
    603571        ParentFont = False
    604572      end
    605573      object EditDepartment: TEdit
    606         Left = 608
    607         Height = 42
    608         Top = 20
    609         Width = 254
     574        Left = 633
     575        Height = 43
     576        Top = 21
     577        Width = 265
    610578        ParentFont = False
    611579        TabOrder = 1
    … …  
    613581      object Label18: TLabel
    614582        Left = 10
    615         Height = 24
    616         Top = 20
    617         Width = 41
     583        Height = 27
     584        Top = 21
     585        Width = 43
    618586        Caption = 'Title:'
    619         ParentColor = False
    620587        ParentFont = False
    621588      end
    622589      object EditTitle: TEdit
    623         Left = 173
    624         Height = 42
    625         Top = 16
    626         Width = 254
     590        Left = 180
     591        Height = 43
     592        Top = 17
     593        Width = 265
    627594        ParentFont = False
    628595        TabOrder = 0
    629596      end
    630597      object EditWorkWeb: TEdit
    631         Left = 173
    632         Height = 42
    633         Top = 256
    634         Width = 683
     598        Left = 180
     599        Height = 43
     600        Top = 267
     601        Width = 711
    635602        ParentFont = False
    636603        TabOrder = 8
    … …  
    638605      object Label32: TLabel
    639606        Left = 10
    640         Height = 24
    641         Top = 264
    642         Width = 114
     607        Height = 27
     608        Top = 275
     609        Width = 121
    643610        Caption = 'Web address:'
    644         ParentColor = False
    645611        ParentFont = False
    646612      end
    647613      object GroupBox2: TGroupBox
    648614        Left = 8
    649         Height = 247
    650         Top = 312
    651         Width = 911
     615        Height = 257
     616        Top = 325
     617        Width = 949
    652618        Caption = 'Address'
    653         ClientHeight = 220
    654         ClientWidth = 909
     619        ClientHeight = 255
     620        ClientWidth = 947
    655621        TabOrder = 9
    656622        object Label31: TLabel
    657623          Left = 10
    658           Height = 24
    659           Top = 160
    660           Width = 71
     624          Height = 27
     625          Top = 167
     626          Width = 77
    661627          Caption = 'Country:'
    662           ParentColor = False
    663628          ParentFont = False
    664629        end
    665630        object EditAddressWorkCountry: TEdit
    666           Left = 173
    667           Height = 42
    668           Top = 152
    669           Width = 254
     631          Left = 180
     632          Height = 43
     633          Top = 158
     634          Width = 265
    670635          ParentFont = False
    671636          TabOrder = 5
    672637        end
    673638        object EditAddressWorkRegion: TEdit
    674           Left = 173
    675           Height = 42
    676           Top = 104
    677           Width = 254
     639          Left = 180
     640          Height = 43
     641          Top = 108
     642          Width = 265
    678643          ParentFont = False
    679644          TabOrder = 4
    … …  
    681646        object Label30: TLabel
    682647          Left = 10
    683           Height = 24
    684           Top = 112
    685           Width = 64
     648          Height = 27
     649          Top = 117
     650          Width = 68
    686651          Caption = 'Region:'
    687           ParentColor = False
    688652          ParentFont = False
    689653        end
    690654        object Label35: TLabel
    691655          Left = 10
    692           Height = 24
    693           Top = 64
    694           Width = 137
     656          Height = 27
     657          Top = 67
     658          Width = 147
    695659          Caption = 'Extended street:'
    696           ParentColor = False
    697660          ParentFont = False
    698661        end
    699662        object EditAddressWorkStreetExtended: TEdit
    700           Left = 173
    701           Height = 42
    702           Top = 56
    703           Width = 254
     663          Left = 180
     664          Height = 43
     665          Top = 58
     666          Width = 265
    704667          ParentFont = False
    705668          TabOrder = 2
    … …  
    707670        object Label28: TLabel
    708671          Left = 10
    709           Height = 24
    710           Top = 18
    711           Width = 54
     672          Height = 27
     673          Top = 19
     674          Width = 58
    712675          Caption = 'Street:'
    713           ParentColor = False
    714676          ParentFont = False
    715677        end
    716678        object EditAddressWorkStreet: TEdit
    717           Left = 173
    718           Height = 42
     679          Left = 180
     680          Height = 43
    719681          Top = 8
    720           Width = 254
     682          Width = 265
    721683          ParentFont = False
    722684          TabOrder = 0
    723685        end
    724686        object Label34: TLabel
    725           Left = 451
    726           Height = 24
    727           Top = 18
    728           Width = 131
     687          Left = 470
     688          Height = 27
     689          Top = 19
     690          Width = 135
    729691          Caption = 'Post office box:'
    730           ParentColor = False
    731692          ParentFont = False
    732693        end
    733694        object EditAddressWorkPostOfficeBox: TEdit
    734           Left = 608
    735           Height = 42
     695          Left = 633
     696          Height = 43
    736697          Top = 8
    737           Width = 254
     698          Width = 265
    738699          ParentFont = False
    739700          TabOrder = 1
    740701        end
    741702        object EditAddressWorkCity: TEdit
    742           Left = 608
    743           Height = 42
    744           Top = 56
    745           Width = 254
     703          Left = 633
     704          Height = 43
     705          Top = 58
     706          Width = 265
    746707          ParentFont = False
    747708          TabOrder = 3
    748709        end
    749710        object Label29: TLabel
    750           Left = 451
    751           Height = 24
    752           Top = 64
    753           Width = 36
     711          Left = 470
     712          Height = 27
     713          Top = 67
     714          Width = 39
    754715          Caption = 'City:'
    755           ParentColor = False
    756716          ParentFont = False
    757717        end
    758718        object EditAddressWorkPostalCode: TEdit
    759           Left = 608
    760           Height = 42
    761           Top = 142
    762           Width = 254
     719          Left = 633
     720          Height = 43
     721          Top = 148
     722          Width = 265
    763723          ParentFont = False
    764724          TabOrder = 6
    765725        end
    766726        object Label33: TLabel
    767           Left = 451
    768           Height = 24
    769           Top = 150
    770           Width = 103
     727          Left = 470
     728          Height = 27
     729          Top = 156
     730          Width = 107
    771731          Caption = 'Postal code:'
    772           ParentColor = False
    773732          ParentFont = False
    774733        end
    … …  
    776735      object Label15: TLabel
    777736        Left = 10
    778         Height = 24
    779         Top = 116
    780         Width = 59
     737        Height = 27
     738        Top = 121
     739        Width = 62
    781740        Caption = 'Phone:'
    782         ParentColor = False
    783741        ParentFont = False
    784742      end
    785743      object EditWorkPhone: TEdit
    786         Left = 173
    787         Height = 42
    788         Top = 112
    789         Width = 254
     744        Left = 180
     745        Height = 43
     746        Top = 117
     747        Width = 265
    790748        ParentFont = False
    791749        TabOrder = 3
    792750      end
    793751      object Label16: TLabel
    794         Left = 451
    795         Height = 24
    796         Top = 112
    797         Width = 34
     752        Left = 470
     753        Height = 27
     754        Top = 117
     755        Width = 36
    798756        Caption = 'Fax:'
    799         ParentColor = False
    800757        ParentFont = False
    801758      end
    802759      object EditWorkFax: TEdit
    803         Left = 608
    804         Height = 42
    805         Top = 112
    806         Width = 254
     760        Left = 633
     761        Height = 43
     762        Top = 117
     763        Width = 265
    807764        ParentFont = False
    808765        TabOrder = 4
    809766      end
    810767      object EditWorkPager: TEdit
    811         Left = 608
    812         Height = 42
    813         Top = 156
    814         Width = 254
     768        Left = 633
     769        Height = 43
     770        Top = 162
     771        Width = 265
    815772        ParentFont = False
    816773        TabOrder = 6
    817774      end
    818775      object Label17: TLabel
    819         Left = 448
    820         Height = 24
    821         Top = 160
    822         Width = 54
     776        Left = 467
     777        Height = 27
     778        Top = 167
     779        Width = 58
    823780        Caption = 'Pager:'
    824         ParentColor = False
    825781        ParentFont = False
    826782      end
    827783      object EditWorkMobile: TEdit
    828         Left = 173
    829         Height = 42
    830         Top = 160
    831         Width = 254
     784        Left = 180
     785        Height = 43
     786        Top = 167
     787        Width = 265
    832788        ParentFont = False
    833789        TabOrder = 5
    … …  
    835791      object Label19: TLabel
    836792        Left = 10
    837         Height = 24
    838         Top = 160
    839         Width = 63
     793        Height = 27
     794        Top = 167
     795        Width = 66
    840796        Caption = 'Mobile:'
    841         ParentColor = False
    842797        ParentFont = False
    843798      end
    844799      object Label8: TLabel
    845800        Left = 10
    846         Height = 24
    847         Top = 210
    848         Width = 58
     801        Height = 27
     802        Top = 219
     803        Width = 60
    849804        Caption = 'E-mail:'
    850         ParentColor = False
    851805        ParentFont = False
    852806      end
    853807      object EditWorkEmail: TEdit
    854         Left = 173
    855         Height = 42
    856         Top = 210
    857         Width = 254
     808        Left = 180
     809        Height = 43
     810        Top = 219
     811        Width = 265
    858812        ParentFont = False
    859813        TabOrder = 7
    … …  
    862816    object TabSheetChat: TTabSheet
    863817      Caption = 'Chat'
    864       ClientHeight = 628
    865       ClientWidth = 959
     818      ClientHeight = 655
     819      ClientWidth = 999
    866820      OnHide = TabSheetChatHide
    867821      OnShow = TabSheetChatShow
    868822      object Label20: TLabel
    869823        Left = 10
    870         Height = 24
    871         Top = 24
    872         Width = 59
     824        Height = 27
     825        Top = 25
     826        Width = 64
    873827        Caption = 'Jabber:'
    874         ParentColor = False
    875828        ParentFont = False
    876829      end
    877830      object EditJabber: TEdit
    878         Left = 173
    879         Height = 42
    880         Top = 16
    881         Width = 254
     831        Left = 180
     832        Height = 43
     833        Top = 17
     834        Width = 265
    882835        ParentFont = False
    883836        TabOrder = 0
    … …  
    885838      object LabelOrganization2: TLabel
    886839        Left = 10
    887         Height = 24
    888         Top = 264
    889         Width = 55
     840        Height = 27
     841        Top = 275
     842        Width = 58
    890843        Caption = 'Skype:'
    891         ParentColor = False
    892844        ParentFont = False
    893845      end
    894846      object EditSkype: TEdit
    895         Left = 173
    896         Height = 42
    897         Top = 256
    898         Width = 254
     847        Left = 180
     848        Height = 43
     849        Top = 267
     850        Width = 265
    899851        ParentFont = False
    900852        TabOrder = 10
    … …  
    902854      object Label21: TLabel
    903855        Left = 10
    904         Height = 24
    905         Top = 72
    906         Width = 45
     856        Height = 27
     857        Top = 75
     858        Width = 46
    907859        Caption = 'MSN:'
    908         ParentColor = False
    909860        ParentFont = False
    910861      end
    911862      object EditMsn: TEdit
    912         Left = 173
    913         Height = 42
    914         Top = 64
    915         Width = 254
     863        Left = 180
     864        Height = 43
     865        Top = 67
     866        Width = 265
    916867        ParentFont = False
    917868        TabOrder = 2
    918869      end
    919870      object LabelOrganization3: TLabel
    920         Left = 451
    921         Height = 24
    922         Top = 72
    923         Width = 36
     871        Left = 470
     872        Height = 27
     873        Top = 75
     874        Width = 37
    924875        Caption = 'ICQ:'
    925         ParentColor = False
    926876        ParentFont = False
    927877      end
    928878      object EditIcq: TEdit
    929         Left = 608
    930         Height = 42
    931         Top = 68
    932         Width = 254
     879        Left = 633
     880        Height = 43
     881        Top = 71
     882        Width = 265
    933883        ParentFont = False
    934884        TabOrder = 3
    … …  
    936886      object Label23: TLabel
    937887        Left = 10
    938         Height = 24
    939         Top = 120
    940         Width = 33
     888        Height = 27
     889        Top = 125
     890        Width = 35
    941891        Caption = 'IRC:'
    942         ParentColor = False
    943892        ParentFont = False
    944893      end
    945894      object EditIrc: TEdit
    946         Left = 173
    947         Height = 42
    948         Top = 112
    949         Width = 254
     895        Left = 180
     896        Height = 43
     897        Top = 117
     898        Width = 265
    950899        ParentFont = False
    951900        TabOrder = 4
    952901      end
    953902      object LabelOrganization4: TLabel
    954         Left = 451
    955         Height = 24
    956         Top = 120
    957         Width = 39
     903        Left = 470
     904        Height = 27
     905        Top = 125
     906        Width = 40
    958907        Caption = 'AIM:'
    959         ParentColor = False
    960908        ParentFont = False
    961909      end
    962910      object EditAim: TEdit
    963         Left = 608
    964         Height = 42
    965         Top = 116
    966         Width = 254
     911        Left = 633
     912        Height = 43
     913        Top = 121
     914        Width = 265
    967915        ParentFont = False
    968916        TabOrder = 5
    … …  
    970918      object Label47: TLabel
    971919        Left = 10
    972         Height = 24
    973         Top = 168
    974         Width = 105
     920        Height = 27
     921        Top = 175
     922        Width = 109
    975923        Caption = 'Google Talk:'
    976         ParentColor = False
    977924        ParentFont = False
    978925      end
    979926      object EditGoogleTalk: TEdit
    980         Left = 173
    981         Height = 42
    982         Top = 160
    983         Width = 254
     927        Left = 180
     928        Height = 43
     929        Top = 167
     930        Width = 265
    984931        ParentFont = False
    985932        TabOrder = 6
    986933      end
    987934      object LabelOrganization5: TLabel
    988         Left = 451
    989         Height = 24
    990         Top = 168
    991         Width = 62
     935        Left = 470
     936        Height = 27
     937        Top = 175
     938        Width = 65
    992939        Caption = 'Yahoo!:'
    993         ParentColor = False
    994940        ParentFont = False
    995941      end
    996942      object EditYahoo: TEdit
    997         Left = 608
    998         Height = 42
    999         Top = 164
    1000         Width = 254
     943        Left = 633
     944        Height = 43
     945        Top = 171
     946        Width = 265
    1001947        ParentFont = False
    1002948        TabOrder = 7
    … …  
    1004950      object Label48: TLabel
    1005951        Left = 10
    1006         Height = 24
    1007         Top = 216
    1008         Width = 121
     952        Height = 27
     953        Top = 225
     954        Width = 127
    1009955        Caption = 'Windows Live:'
    1010         ParentColor = False
    1011956        ParentFont = False
    1012957      end
    1013958      object EditWindowsLive: TEdit
    1014         Left = 173
    1015         Height = 42
    1016         Top = 208
    1017         Width = 254
     959        Left = 180
     960        Height = 43
     961        Top = 217
     962        Width = 265
    1018963        ParentFont = False
    1019964        TabOrder = 8
    1020965      end
    1021966      object LabelOrganization6: TLabel
    1022         Left = 451
    1023         Height = 24
    1024         Top = 216
    1025         Width = 33
     967        Left = 470
     968        Height = 27
     969        Top = 225
     970        Width = 35
    1026971        Caption = 'QQ:'
    1027         ParentColor = False
    1028972        ParentFont = False
    1029973      end
    1030974      object EditQq: TEdit
    1031         Left = 608
    1032         Height = 42
    1033         Top = 212
    1034         Width = 254
     975        Left = 633
     976        Height = 43
     977        Top = 221
     978        Width = 265
    1035979        ParentFont = False
    1036980        TabOrder = 9
    1037981      end
    1038982      object Label55: TLabel
    1039         Left = 451
    1040         Height = 24
    1041         Top = 24
    1042         Width = 59
     983        Left = 470
     984        Height = 27
     985        Top = 25
     986        Width = 63
    1043987        Caption = 'Matrix:'
    1044         ParentColor = False
    1045988        ParentFont = False
    1046989      end
    1047990      object EditMatrix: TEdit
    1048         Left = 608
    1049         Height = 42
    1050         Top = 20
    1051         Width = 254
     991        Left = 633
     992        Height = 43
     993        Top = 21
     994        Width = 265
    1052995        ParentFont = False
    1053996        TabOrder = 1
    … …  
    1055998      object Label57: TLabel
    1056999        Left = 10
    1057         Height = 24
    1058         Top = 312
    1059         Width = 99
     1000        Height = 27
     1001        Top = 325
     1002        Width = 103
    10601003        Caption = 'GroupWise:'
    1061         ParentColor = False
    10621004        ParentFont = False
    10631005      end
    10641006      object EditGroupWise: TEdit
    1065         Left = 173
    1066         Height = 42
    1067         Top = 304
    1068         Width = 254
     1007        Left = 180
     1008        Height = 43
     1009        Top = 317
     1010        Width = 265
    10691011        ParentFont = False
    10701012        TabOrder = 11
    10711013      end
    10721014      object LabelOrganization12: TLabel
    1073         Left = 451
    1074         Height = 24
    1075         Top = 312
    1076         Width = 95
     1015        Left = 470
     1016        Height = 27
     1017        Top = 325
     1018        Width = 103
    10771019        Caption = 'GaduGadu:'
    1078         ParentColor = False
    10791020        ParentFont = False
    10801021      end
    10811022      object EditGaduGadu: TEdit
    1082         Left = 608
    1083         Height = 42
    1084         Top = 308
    1085         Width = 254
     1023        Left = 633
     1024        Height = 43
     1025        Top = 321
     1026        Width = 265
    10861027        ParentFont = False
    10871028        TabOrder = 12
    … …  
    10901031    object TabSheetSocial: TTabSheet
    10911032      Caption = 'Social'
    1092       ClientHeight = 628
    1093       ClientWidth = 959
     1033      ClientHeight = 655
     1034      ClientWidth = 999
    10941035      OnHide = TabSheetSocialHide
    10951036      OnShow = TabSheetSocialShow
    10961037      object Label50: TLabel
    1097         Left = 451
    1098         Height = 24
    1099         Top = 164
    1100         Width = 79
     1038        Left = 470
     1039        Height = 27
     1040        Top = 171
     1041        Width = 84
    11011042        Caption = 'Myspace:'
    1102         ParentColor = False
    11031043        ParentFont = False
    11041044      end
    11051045      object EditMySpace: TEdit
    1106         Left = 608
    1107         Height = 42
    1108         Top = 160
    1109         Width = 254
     1046        Left = 633
     1047        Height = 43
     1048        Top = 167
     1049        Width = 265
    11101050        ParentFont = False
    11111051        TabOrder = 7
    11121052      end
    11131053      object EditTwitter: TEdit
    1114         Left = 173
    1115         Height = 42
    1116         Top = 64
    1117         Width = 254
     1054        Left = 180
     1055        Height = 43
     1056        Top = 67
     1057        Width = 265
    11181058        ParentFont = False
    11191059        TabOrder = 2
    … …  
    11211061      object Label51: TLabel
    11221062        Left = 10
    1123         Height = 24
    1124         Top = 68
    1125         Width = 63
     1063        Height = 27
     1064        Top = 71
     1065        Width = 68
    11261066        Caption = 'Twitter:'
    1127         ParentColor = False
    11281067        ParentFont = False
    11291068      end
    11301069      object Label52: TLabel
    11311070        Left = 10
    1132         Height = 24
    1133         Top = 116
    1134         Width = 92
     1071        Height = 27
     1072        Top = 121
     1073        Width = 98
    11351074        Caption = 'Instagram:'
    1136         ParentColor = False
    11371075        ParentFont = False
    11381076      end
    11391077      object Label53: TLabel
    11401078        Left = 10
    1141         Height = 24
    1142         Top = 164
    1143         Width = 78
     1079        Height = 27
     1080        Top = 171
     1081        Width = 83
    11441082        Caption = 'LinkedIn:'
    1145         ParentColor = False
    11461083        ParentFont = False
    11471084      end
    11481085      object Label54: TLabel
    11491086        Left = 10
    1150         Height = 24
    1151         Top = 212
    1152         Width = 83
     1087        Height = 27
     1088        Top = 221
     1089        Width = 89
    11531090        Caption = 'Snapchat:'
    1154         ParentColor = False
    11551091        ParentFont = False
    11561092      end
    11571093      object EditSnapchat: TEdit
    1158         Left = 173
    1159         Height = 42
    1160         Top = 208
    1161         Width = 254
     1094        Left = 180
     1095        Height = 43
     1096        Top = 217
     1097        Width = 265
    11621098        ParentFont = False
    11631099        TabOrder = 8
    11641100      end
    11651101      object EditLinkedIn: TEdit
    1166         Left = 173
    1167         Height = 42
    1168         Top = 160
    1169         Width = 254
     1102        Left = 180
     1103        Height = 43
     1104        Top = 167
     1105        Width = 265
    11701106        ParentFont = False
    11711107        TabOrder = 6
    11721108      end
    11731109      object EditInstagram: TEdit
    1174         Left = 173
    1175         Height = 42
    1176         Top = 112
    1177         Width = 254
     1110        Left = 180
     1111        Height = 43
     1112        Top = 117
     1113        Width = 265
    11781114        ParentFont = False
    11791115        TabOrder = 4
    11801116      end
    11811117      object LabelOrganization7: TLabel
    1182         Left = 451
    1183         Height = 24
    1184         Top = 24
    1185         Width = 84
     1118        Left = 470
     1119        Height = 27
     1120        Top = 25
     1121        Width = 90
    11861122        Caption = 'PeerTube:'
    1187         ParentColor = False
    11881123        ParentFont = False
    11891124      end
    11901125      object LabelOrganization8: TLabel
    1191         Left = 451
    1192         Height = 24
    1193         Top = 116
    1194         Width = 77
     1126        Left = 470
     1127        Height = 27
     1128        Top = 121
     1129        Width = 82
    11951130        Caption = 'YouTube:'
    1196         ParentColor = False
    11971131        ParentFont = False
    11981132      end
    11991133      object EditMastodon: TEdit
    1200         Left = 171
    1201         Height = 42
    1202         Top = 16
    1203         Width = 254
     1134        Left = 178
     1135        Height = 43
     1136        Top = 17
     1137        Width = 265
    12041138        ParentFont = False
    12051139        TabOrder = 0
    … …  
    12071141      object LabelOrganization9: TLabel
    12081142        Left = 10
    1209         Height = 24
    1210         Top = 24
     1143        Height = 27
     1144        Top = 25
     1145        Width = 95
     1146        Caption = 'Mastodon:'
     1147        ParentFont = False
     1148      end
     1149      object LabelOrganization10: TLabel
     1150        Left = 470
     1151        Height = 27
     1152        Top = 221
     1153        Width = 64
     1154        Caption = 'Reddit:'
     1155        ParentFont = False
     1156      end
     1157      object EditReddit: TEdit
     1158        Left = 633
     1159        Height = 43
     1160        Top = 217
     1161        Width = 265
     1162        ParentFont = False
     1163        TabOrder = 9
     1164      end
     1165      object EditPeerTube: TEdit
     1166        Left = 633
     1167        Height = 43
     1168        Top = 17
     1169        Width = 265
     1170        ParentFont = False
     1171        TabOrder = 1
     1172      end
     1173      object EditYouTube: TEdit
     1174        Left = 633
     1175        Height = 43
     1176        Top = 117
     1177        Width = 265
     1178        ParentFont = False
     1179        TabOrder = 5
     1180      end
     1181      object EditFacebook: TEdit
     1182        Left = 633
     1183        Height = 43
     1184        Top = 67
     1185        Width = 265
     1186        ParentFont = False
     1187        TabOrder = 3
     1188      end
     1189      object LabelOrganization11: TLabel
     1190        Left = 470
     1191        Height = 27
     1192        Top = 71
    12111193        Width = 90
    1212         Caption = 'Mastodon:'
    1213         ParentColor = False
    1214         ParentFont = False
    1215       end
    1216       object LabelOrganization10: TLabel
    1217         Left = 451
    1218         Height = 24
    1219         Top = 212
    1220         Width = 59
    1221         Caption = 'Reddit:'
    1222         ParentColor = False
    1223         ParentFont = False
    1224       end
    1225       object EditReddit: TEdit
    1226         Left = 608
    1227         Height = 42
    1228         Top = 208
    1229         Width = 254
    1230         ParentFont = False
    1231         TabOrder = 9
    1232       end
    1233       object EditPeerTube: TEdit
    1234         Left = 608
    1235         Height = 42
    1236         Top = 16
    1237         Width = 254
    1238         ParentFont = False
    1239         TabOrder = 1
    1240       end
    1241       object EditYouTube: TEdit
    1242         Left = 608
    1243         Height = 42
    1244         Top = 112
    1245         Width = 254
    1246         ParentFont = False
    1247         TabOrder = 5
    1248       end
    1249       object EditFacebook: TEdit
    1250         Left = 608
    1251         Height = 42
    1252         Top = 64
    1253         Width = 254
    1254         ParentFont = False
    1255         TabOrder = 3
    1256       end
    1257       object LabelOrganization11: TLabel
    1258         Left = 451
    1259         Height = 24
    1260         Top = 68
    1261         Width = 86
    12621194        Caption = 'Facebook:'
    1263         ParentColor = False
    12641195        ParentFont = False
    12651196      end
    … …  
    12671198    object TabSheetOthers: TTabSheet
    12681199      Caption = 'Others'
    1269       ClientHeight = 628
    1270       ClientWidth = 959
     1200      ClientHeight = 655
     1201      ClientWidth = 999
    12711202      OnHide = TabSheetOthersHide
    12721203      OnShow = TabSheetOthersShow
    12731204      object MemoNotes: TMemo
    1274         Left = 16
    1275         Height = 280
    1276         Top = 48
    1277         Width = 925
     1205        Left = 17
     1206        Height = 293
     1207        Top = 50
     1208        Width = 963
    12781209        Anchors = [akTop, akLeft, akRight, akBottom]
    12791210        ParentFont = False
    … …  
    12831214      end
    12841215      object Label6: TLabel
    1285         Left = 16
    1286         Height = 24
    1287         Top = 16
    1288         Width = 55
     1216        Left = 17
     1217        Height = 27
     1218        Top = 17
     1219        Width = 57
    12891220        Caption = 'Notes:'
    1290         ParentColor = False
    12911221        ParentFont = False
    12921222      end
    … …  
    12991229  end
    13001230  object ButtonCancel: TButton
    1301     Left = 864
    1302     Height = 37
    1303     Top = 692
    1304     Width = 115
     1231    Left = 900
     1232    Height = 39
     1233    Top = 720
     1234    Width = 120
    13051235    Anchors = [akRight, akBottom]
    13061236    Caption = 'Cancel'
    … …  
    13101240  end
    13111241  object ButtonOk: TButton
    1312     Left = 729
    1313     Height = 37
    1314     Top = 692
    1315     Width = 119
     1242    Left = 759
     1243    Height = 39
     1244    Top = 720
     1245    Width = 124
    13161246    Anchors = [akRight, akBottom]
    13171247    Caption = 'OK'
    … …  
    13221252  object ButtonPrevious: TButton
    13231253    Left = 8
    1324     Height = 37
    1325     Top = 686
    1326     Width = 119
     1254    Height = 39
     1255    Top = 714
     1256    Width = 124
    13271257    Anchors = [akLeft, akBottom]
    13281258    Caption = 'Previous'
    … …  
    13331263  end
    13341264  object ButtonNext: TButton
    1335     Left = 144
    1336     Height = 37
    1337     Top = 688
    1338     Width = 115
     1265    Left = 150
     1266    Height = 39
     1267    Top = 716
     1268    Width = 120
    13391269    Anchors = [akLeft, akBottom]
    13401270    Caption = 'Next'
    … …  
    13461276  object ActionList1: TActionList
    13471277    Images = Core.ImageList1
    1348     Left = 592
    1349     Top = 528
     1278    Left = 617
     1279    Top = 550
    13501280    object APhotoLoad: TAction
    13511281      Caption = 'Load from file'
    … …  
    13631293  object PopupMenuPhoto: TPopupMenu
    13641294    Images = Core.ImageList1
    1365     Left = 464
    1366     Top = 488
     1295    Left = 483
     1296    Top = 508
    13671297    object MenuItem1: TMenuItem
    13681298      Action = APhotoLoad
    … …  
    13761306  end
    13771307  object OpenPictureDialog1: TOpenPictureDialog
    1378     Left = 168
    1379     Top = 552
     1308    Left = 175
     1309    Top = 575
    13801310  end
    13811311  object SavePictureDialog1: TSavePictureDialog
    1382     Left = 197
    1383     Top = 617
     1312    Left = 205
     1313    Top = 643
    13841314  end
    13851315end

  • trunk/Forms/UFormContact.pas

    r77 r93  
    203203  private
    204204    FProfilePhotoActive: Boolean;
     205    FProfilePhotoLoaded: Boolean;
     206    FProfilePhotoModified: Boolean;
    205207    procedure SetProfilePhotoActive(AValue: Boolean);
    206208  private
    … …  
    240242  FormProperties.Align := alClient;
    241243  FormProperties.Show;
     244
     245  FProfilePhotoLoaded := False;
    242246
    243247  // Force to load default profile image
    … …  
    320324
    321325  // Photo
     326  if FProfilePhotoModified then begin
    322327  if ProfilePhotoActive then begin
    323328    PhotoProperty := Contact.GetProperty(cfPhoto);
    … …  
    388393       Contact.Properties.Remove(PhotoProperty);
    389394  end;
     395    FProfilePhotoModified := False;
     396  end;
    390397
    391398  ReloadAllPropertiesTab;
    … …  
    421428  // Photo
    422429  PhotoProperty := Contact.GetProperty(cfPhoto);
     430  if not FProfilePhotoLoaded then begin
    423431  if Assigned(PhotoProperty) then begin
     432    FProfilePhotoLoaded := True;
     433    FProfilePhotoModified := True;
    424434    Photo := Contact.Fields[cfPhoto];
    425435    if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin
    … …  
    497507    end else ProfilePhotoActive := False;
    498508  end else ProfilePhotoActive := False;
     509  end;
    499510end;
    500511
    … …  
    662673  if OpenPictureDialog1.Execute then begin
    663674    ImagePhoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
     675    FProfilePhotoModified := True;
     676    FProfilePhotoLoaded := True;
    664677    ProfilePhotoActive := True;
    665678  end;
    … …  
    668681procedure TFormContact.APhotoClearExecute(Sender: TObject);
    669682begin
     683  FProfilePhotoModified := True;
    670684  ProfilePhotoActive := False;
    671685end;
Note: See TracChangeset for help on using the changeset viewer.