Changeset 139 for trunk/Forms


Ignore:
Timestamp:
Aug 26, 2022, 8:09:41 PM (2 years ago)
Author:
chronos
Message:
  • Fixed: Wrong assignment during openning contact image form.
  • Fixed: QR code generation error if contact text is too big (with photo or logo).
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r133 r139  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.2.0.4'
     14  LCLVersion = '2.2.2.0'
    1515  object ButtonCancel: TButton
    1616    Left = 865
    … …  
    6464    Top = 8
    6565    Width = 970
    66     ActivePage = TabSheetGeneral
     66    ActivePage = TabSheetOthers
    6767    Anchors = [akTop, akLeft, akRight, akBottom]
    6868    ParentFont = False
    69     TabIndex = 0
     69    TabIndex = 5
    7070    TabOrder = 4
    7171    object TabSheetGeneral: TTabSheet
    … …  
    8282        Width = 63
    8383        Caption = 'Mobile:'
     84        ParentColor = False
    8485        ParentFont = False
    8586      end
    8687      object EditMobile: TEdit
    8788        Left = 144
    88         Height = 42
     89        Height = 43
    8990        Top = 240
    9091        Width = 254
    … …  
    9495      object EditPhone: TEdit
    9596        Left = 144
    96         Height = 42
     97        Height = 43
    9798        Top = 286
    9899        Width = 254
    … …  
    106107        Width = 59
    107108        Caption = 'Phone:'
     109        ParentColor = False
    108110        ParentFont = False
    109111      end
    110112      object EditEmail: TEdit
    111113        Left = 144
    112         Height = 42
     114        Height = 43
    113115        Top = 328
    114116        Width = 207
    … …  
    122124        Width = 58
    123125        Caption = 'E-mail:'
     126        ParentColor = False
    124127        ParentFont = False
    125128      end
    126129      object EditBirthday: TEdit
    127130        Left = 144
    128         Height = 42
     131        Height = 43
    129132        Top = 424
    130133        Width = 207
    … …  
    138141        Width = 76
    139142        Caption = 'Birthday:'
     143        ParentColor = False
    140144        ParentFont = False
    141145      end
    … …  
    157161        Width = 88
    158162        Caption = 'Full name:'
     163        ParentColor = False
    159164        ParentFont = False
    160165      end
    161166      object EditFullName: TEdit
    162167        Left = 360
    163         Height = 42
     168        Height = 43
    164169        Top = 24
    165170        Width = 340
    … …  
    174179        Width = 91
    175180        Caption = 'Nickname:'
     181        ParentColor = False
    176182        ParentFont = False
    177183      end
    178184      object EditNickName: TEdit
    179185        Left = 361
    180         Height = 42
     186        Height = 43
    181187        Top = 77
    182188        Width = 215
    … …  
    190196        Width = 105
    191197        Caption = 'Anniversary:'
     198        ParentColor = False
    192199        ParentFont = False
    193200      end
    194201      object EditAniversary: TEdit
    195202        Left = 575
    196         Height = 42
     203        Height = 43
    197204        Top = 424
    198205        Width = 208
    … …  
    206213        Width = 34
    207214        Caption = 'Fax:'
     215        ParentColor = False
    208216        ParentFont = False
    209217      end
    210218      object EditFax: TEdit
    211219        Left = 575
    212         Height = 42
     220        Height = 43
    213221        Top = 240
    214222        Width = 254
    … …  
    218226      object EditPager: TEdit
    219227        Left = 575
    220         Height = 42
     228        Height = 43
    221229        Top = 286
    222230        Width = 254
    … …  
    230238        Width = 54
    231239        Caption = 'Pager:'
     240        ParentColor = False
    232241        ParentFont = False
    233242      end
    … …  
    238247        Width = 114
    239248        Caption = 'Web address:'
     249        ParentColor = False
    240250        ParentFont = False
    241251      end
    242252      object EditWeb: TEdit
    243253        Left = 144
    244         Height = 42
     254        Height = 43
    245255        Top = 376
    246256        Width = 639
    … …  
    254264        Width = 67
    255265        Caption = 'Gender:'
     266        ParentColor = False
    256267        ParentFont = False
    257268      end
    258269      object EditGender: TEdit
    259270        Left = 575
    260         Height = 42
     271        Height = 43
    261272        Top = 328
    262273        Width = 254
    … …  
    270281        Width = 95
    271282        Caption = 'Categories:'
     283        ParentColor = False
    272284        ParentFont = False
    273285      end
    274286      object EditCategories: TEdit
    275287        Left = 144
    276         Height = 42
     288        Height = 43
    277289        Top = 472
    278290        Width = 254
    … …  
    351363        Width = 58
    352364        Caption = 'E-mail:'
     365        ParentColor = False
    353366        ParentFont = False
    354367      end
    355368      object EditHomeEmail: TEdit
    356369        Left = 173
    357         Height = 42
     370        Height = 43
    358371        Top = 112
    359372        Width = 207
    … …  
    367380        Width = 34
    368381        Caption = 'Fax:'
     382        ParentColor = False
    369383        ParentFont = False
    370384      end
    371385      object EditHomeFax: TEdit
    372386        Left = 605
    373         Height = 42
     387        Height = 43
    374388        Top = 16
    375389        Width = 254
    … …  
    379393      object EditHomeMobile: TEdit
    380394        Left = 173
    381         Height = 42
     395        Height = 43
    382396        Top = 60
    383397        Width = 254
    … …  
    387401      object EditHomePhone: TEdit
    388402        Left = 173
    389         Height = 42
     403        Height = 43
    390404        Top = 16
    391405        Width = 254
    … …  
    399413        Width = 54
    400414        Caption = 'Pager:'
     415        ParentColor = False
    401416        ParentFont = False
    402417      end
    403418      object EditHomePager: TEdit
    404419        Left = 605
    405         Height = 42
     420        Height = 43
    406421        Top = 60
    407422        Width = 254
    … …  
    415430        Width = 114
    416431        Caption = 'Web address:'
     432        ParentColor = False
    417433        ParentFont = False
    418434      end
    419435      object EditHomeWeb: TEdit
    420436        Left = 173
    421         Height = 42
     437        Height = 43
    422438        Top = 161
    423439        Width = 641
    … …  
    441457          Width = 54
    442458          Caption = 'Street:'
     459          ParentColor = False
    443460          ParentFont = False
    444461        end
    … …  
    449466          Width = 137
    450467          Caption = 'Extended street:'
     468          ParentColor = False
    451469          ParentFont = False
    452470        end
    453471        object EditHomeAddressStreetExtended: TEdit
    454472          Left = 173
    455           Height = 42
     473          Height = 43
    456474          Top = 56
    457475          Width = 254
    … …  
    461479        object EditHomeAddressStreet: TEdit
    462480          Left = 173
    463           Height = 42
     481          Height = 43
    464482          Top = 8
    465483          Width = 254
    … …  
    473491          Width = 64
    474492          Caption = 'Region:'
     493          ParentColor = False
    475494          ParentFont = False
    476495        end
    477496        object EditHomeAddressRegion: TEdit
    478497          Left = 173
    479           Height = 42
     498          Height = 43
    480499          Top = 104
    481500          Width = 254
    … …  
    485504        object EditHomeAddressCountry: TEdit
    486505          Left = 173
    487           Height = 42
     506          Height = 43
    488507          Top = 152
    489508          Width = 254
    … …  
    497516          Width = 71
    498517          Caption = 'Country:'
     518          ParentColor = False
    499519          ParentFont = False
    500520        end
    … …  
    505525          Width = 103
    506526          Caption = 'Postal code:'
     527          ParentColor = False
    507528          ParentFont = False
    508529        end
    509530        object EditHomeAddressPostalCode: TEdit
    510531          Left = 588
    511           Height = 42
     532          Height = 43
    512533          Top = 152
    513534          Width = 254
    … …  
    517538        object EditHomeAddressCity: TEdit
    518539          Left = 588
    519           Height = 42
     540          Height = 43
    520541          Top = 56
    521542          Width = 254
    … …  
    529550          Width = 36
    530551          Caption = 'City:'
     552          ParentColor = False
    531553          ParentFont = False
    532554        end
    … …  
    537559          Width = 131
    538560          Caption = 'Post office box:'
     561          ParentColor = False
    539562          ParentFont = False
    540563        end
    541564        object EditHomeAddressPostOfficeBox: TEdit
    542565          Left = 588
    543           Height = 42
     566          Height = 43
    544567          Top = 8
    545568          Width = 254
    … …  
    563586        Width = 63
    564587        Caption = 'Mobile:'
     588        ParentColor = False
    565589        ParentFont = False
    566590      end
    … …  
    571595        Width = 59
    572596        Caption = 'Phone:'
     597        ParentColor = False
    573598        ParentFont = False
    574599      end
    … …  
    606631      object EditOrganization: TEdit
    607632        Left = 173
    608         Height = 42
     633        Height = 43
    609634        Top = 64
    610635        Width = 254
    … …  
    618643        Width = 114
    619644        Caption = 'Organization:'
     645        ParentColor = False
    620646        ParentFont = False
    621647      end
    … …  
    626652        Width = 106
    627653        Caption = 'Department:'
     654        ParentColor = False
    628655        ParentFont = False
    629656      end
    630657      object EditDepartment: TEdit
    631658        Left = 608
    632         Height = 42
     659        Height = 43
    633660        Top = 20
    634661        Width = 254
    … …  
    642669        Width = 41
    643670        Caption = 'Title:'
     671        ParentColor = False
    644672        ParentFont = False
    645673      end
    646674      object EditTitle: TEdit
    647675        Left = 173
    648         Height = 42
     676        Height = 43
    649677        Top = 16
    650678        Width = 254
    … …  
    654682      object EditWorkWeb: TEdit
    655683        Left = 173
    656         Height = 42
     684        Height = 43
    657685        Top = 256
    658686        Width = 641
    … …  
    666694        Width = 114
    667695        Caption = 'Web address:'
     696        ParentColor = False
    668697        ParentFont = False
    669698      end
    … …  
    683712          Width = 71
    684713          Caption = 'Country:'
     714          ParentColor = False
    685715          ParentFont = False
    686716        end
    687717        object EditWorkAddressCountry: TEdit
    688718          Left = 173
    689           Height = 42
     719          Height = 43
    690720          Top = 152
    691721          Width = 254
    … …  
    695725        object EditWorkAddressRegion: TEdit
    696726          Left = 173
    697           Height = 42
     727          Height = 43
    698728          Top = 104
    699729          Width = 254
    … …  
    707737          Width = 64
    708738          Caption = 'Region:'
     739          ParentColor = False
    709740          ParentFont = False
    710741        end
    … …  
    715746          Width = 137
    716747          Caption = 'Extended street:'
     748          ParentColor = False
    717749          ParentFont = False
    718750        end
    719751        object EditWorkAddressStreetExtended: TEdit
    720752          Left = 173
    721           Height = 42
     753          Height = 43
    722754          Top = 56
    723755          Width = 254
    … …  
    731763          Width = 54
    732764          Caption = 'Street:'
     765          ParentColor = False
    733766          ParentFont = False
    734767        end
    735768        object EditWorkAddressStreet: TEdit
    736769          Left = 173
    737           Height = 42
     770          Height = 43
    738771          Top = 8
    739772          Width = 254
    … …  
    747780          Width = 131
    748781          Caption = 'Post office box:'
     782          ParentColor = False
    749783          ParentFont = False
    750784        end
    751785        object EditWorkAddressPostOfficeBox: TEdit
    752786          Left = 608
    753           Height = 42
     787          Height = 43
    754788          Top = 8
    755789          Width = 254
    … …  
    759793        object EditWorkAddressCity: TEdit
    760794          Left = 608
    761           Height = 42
     795          Height = 43
    762796          Top = 56
    763797          Width = 254
    … …  
    771805          Width = 36
    772806          Caption = 'City:'
     807          ParentColor = False
    773808          ParentFont = False
    774809        end
    775810        object EditWorkAddressPostalCode: TEdit
    776811          Left = 608
    777           Height = 42
     812          Height = 43
    778813          Top = 142
    779814          Width = 254
    … …  
    787822          Width = 103
    788823          Caption = 'Postal code:'
     824          ParentColor = False
    789825          ParentFont = False
    790826        end
    … …  
    805841        Width = 59
    806842        Caption = 'Phone:'
     843        ParentColor = False
    807844        ParentFont = False
    808845      end
    809846      object EditWorkPhone: TEdit
    810847        Left = 173
    811         Height = 42
     848        Height = 43
    812849        Top = 112
    813850        Width = 254
    … …  
    821858        Width = 34
    822859        Caption = 'Fax:'
     860        ParentColor = False
    823861        ParentFont = False
    824862      end
    825863      object EditWorkFax: TEdit
    826864        Left = 608
    827         Height = 42
     865        Height = 43
    828866        Top = 112
    829867        Width = 254
    … …  
    833871      object EditWorkPager: TEdit
    834872        Left = 608
    835         Height = 42
     873        Height = 43
    836874        Top = 156
    837875        Width = 254
    … …  
    845883        Width = 54
    846884        Caption = 'Pager:'
     885        ParentColor = False
    847886        ParentFont = False
    848887      end
    849888      object EditWorkMobile: TEdit
    850889        Left = 173
    851         Height = 42
     890        Height = 43
    852891        Top = 160
    853892        Width = 254
    … …  
    861900        Width = 63
    862901        Caption = 'Mobile:'
     902        ParentColor = False
    863903        ParentFont = False
    864904      end
    … …  
    869909        Width = 58
    870910        Caption = 'E-mail:'
     911        ParentColor = False
    871912        ParentFont = False
    872913      end
    873914      object EditWorkEmail: TEdit
    874915        Left = 173
    875         Height = 42
     916        Height = 43
    876917        Top = 210
    877918        Width = 209
    … …  
    916957        Width = 59
    917958        Caption = 'Jabber:'
     959        ParentColor = False
    918960        ParentFont = False
    919961      end
    920962      object EditJabber: TEdit
    921963        Left = 173
    922         Height = 42
     964        Height = 43
    923965        Top = 16
    924966        Width = 254
    … …  
    932974        Width = 55
    933975        Caption = 'Skype:'
     976        ParentColor = False
    934977        ParentFont = False
    935978      end
    936979      object EditSkype: TEdit
    937980        Left = 173
    938         Height = 42
     981        Height = 43
    939982        Top = 256
    940983        Width = 254
    … …  
    948991        Width = 45
    949992        Caption = 'MSN:'
     993        ParentColor = False
    950994        ParentFont = False
    951995      end
    952996      object EditMsn: TEdit
    953997        Left = 173
    954         Height = 42
     998        Height = 43
    955999        Top = 64
    9561000        Width = 254
    … …  
    9641008        Width = 36
    9651009        Caption = 'ICQ:'
     1010        ParentColor = False
    9661011        ParentFont = False
    9671012      end
    9681013      object EditIcq: TEdit
    9691014        Left = 608
    970         Height = 42
     1015        Height = 43
    9711016        Top = 68
    9721017        Width = 254
    … …  
    9801025        Width = 33
    9811026        Caption = 'IRC:'
     1027        ParentColor = False
    9821028        ParentFont = False
    9831029      end
    9841030      object EditIrc: TEdit
    9851031        Left = 173
    986         Height = 42
     1032        Height = 43
    9871033        Top = 112
    9881034        Width = 254
    … …  
    9961042        Width = 39
    9971043        Caption = 'AIM:'
     1044        ParentColor = False
    9981045        ParentFont = False
    9991046      end
    10001047      object EditAim: TEdit
    10011048        Left = 608
    1002         Height = 42
     1049        Height = 43
    10031050        Top = 116
    10041051        Width = 254
    … …  
    10121059        Width = 105
    10131060        Caption = 'Google Talk:'
     1061        ParentColor = False
    10141062        ParentFont = False
    10151063      end
    10161064      object EditGoogleTalk: TEdit
    10171065        Left = 173
    1018         Height = 42
     1066        Height = 43
    10191067        Top = 160
    10201068        Width = 254
    … …  
    10281076        Width = 62
    10291077        Caption = 'Yahoo!:'
     1078        ParentColor = False
    10301079        ParentFont = False
    10311080      end
    10321081      object EditYahoo: TEdit
    10331082        Left = 608
    1034         Height = 42
     1083        Height = 43
    10351084        Top = 164
    10361085        Width = 254
    … …  
    10441093        Width = 121
    10451094        Caption = 'Windows Live:'
     1095        ParentColor = False
    10461096        ParentFont = False
    10471097      end
    10481098      object EditWindowsLive: TEdit
    10491099        Left = 173
    1050         Height = 42
     1100        Height = 43
    10511101        Top = 208
    10521102        Width = 254
    … …  
    10601110        Width = 33
    10611111        Caption = 'QQ:'
     1112        ParentColor = False
    10621113        ParentFont = False
    10631114      end
    10641115      object EditQq: TEdit
    10651116        Left = 608
    1066         Height = 42
     1117        Height = 43
    10671118        Top = 212
    10681119        Width = 254
    … …  
    10761127        Width = 59
    10771128        Caption = 'Matrix:'
     1129        ParentColor = False
    10781130        ParentFont = False
    10791131      end
    10801132      object EditMatrix: TEdit
    10811133        Left = 608
    1082         Height = 42
     1134        Height = 43
    10831135        Top = 20
    10841136        Width = 254
    … …  
    10921144        Width = 99
    10931145        Caption = 'GroupWise:'
     1146        ParentColor = False
    10941147        ParentFont = False
    10951148      end
    10961149      object EditGroupWise: TEdit
    10971150        Left = 173
    1098         Height = 42
     1151        Height = 43
    10991152        Top = 304
    11001153        Width = 254
    … …  
    11081161        Width = 95
    11091162        Caption = 'GaduGadu:'
     1163        ParentColor = False
    11101164        ParentFont = False
    11111165      end
    11121166      object EditGaduGadu: TEdit
    11131167        Left = 608
    1114         Height = 42
     1168        Height = 43
    11151169        Top = 308
    11161170        Width = 254
    … …  
    11311185        Width = 79
    11321186        Caption = 'Myspace:'
     1187        ParentColor = False
    11331188        ParentFont = False
    11341189      end
    11351190      object EditMySpace: TEdit
    11361191        Left = 608
    1137         Height = 42
     1192        Height = 43
    11381193        Top = 160
    11391194        Width = 254
    … …  
    11431198      object EditTwitter: TEdit
    11441199        Left = 173
    1145         Height = 42
     1200        Height = 43
    11461201        Top = 64
    11471202        Width = 254
    … …  
    11551210        Width = 63
    11561211        Caption = 'Twitter:'
     1212        ParentColor = False
    11571213        ParentFont = False
    11581214      end
    … …  
    11631219        Width = 92
    11641220        Caption = 'Instagram:'
     1221        ParentColor = False
    11651222        ParentFont = False
    11661223      end
    … …  
    11711228        Width = 78
    11721229        Caption = 'LinkedIn:'
     1230        ParentColor = False
    11731231        ParentFont = False
    11741232      end
    … …  
    11791237        Width = 83
    11801238        Caption = 'Snapchat:'
     1239        ParentColor = False
    11811240        ParentFont = False
    11821241      end
    11831242      object EditSnapchat: TEdit
    11841243        Left = 173
    1185         Height = 42
     1244        Height = 43
    11861245        Top = 208
    11871246        Width = 254
    … …  
    11911250      object EditLinkedIn: TEdit
    11921251        Left = 173
    1193         Height = 42
     1252        Height = 43
    11941253        Top = 160
    11951254        Width = 254
    … …  
    11991258      object EditInstagram: TEdit
    12001259        Left = 173
    1201         Height = 42
     1260        Height = 43
    12021261        Top = 112
    12031262        Width = 254
    … …  
    12111270        Width = 84
    12121271        Caption = 'PeerTube:'
     1272        ParentColor = False
    12131273        ParentFont = False
    12141274      end
    … …  
    12191279        Width = 77
    12201280        Caption = 'YouTube:'
     1281        ParentColor = False
    12211282        ParentFont = False
    12221283      end
    12231284      object EditMastodon: TEdit
    12241285        Left = 171
    1225         Height = 42
     1286        Height = 43
    12261287        Top = 16
    12271288        Width = 254
    … …  
    12351296        Width = 90
    12361297        Caption = 'Mastodon:'
     1298        ParentColor = False
    12371299        ParentFont = False
    12381300      end
    … …  
    12431305        Width = 59
    12441306        Caption = 'Reddit:'
     1307        ParentColor = False
    12451308        ParentFont = False
    12461309      end
    12471310      object EditReddit: TEdit
    12481311        Left = 608
    1249         Height = 42
     1312        Height = 43
    12501313        Top = 208
    12511314        Width = 254
    … …  
    12551318      object EditPeerTube: TEdit
    12561319        Left = 608
    1257         Height = 42
     1320        Height = 43
    12581321        Top = 16
    12591322        Width = 254
    … …  
    12631326      object EditYouTube: TEdit
    12641327        Left = 608
    1265         Height = 42
     1328        Height = 43
    12661329        Top = 112
    12671330        Width = 254
    … …  
    12711334      object EditFacebook: TEdit
    12721335        Left = 608
    1273         Height = 42
     1336        Height = 43
    12741337        Top = 64
    12751338        Width = 254
    … …  
    12831346        Width = 86
    12841347        Caption = 'Facebook:'
     1348        ParentColor = False
    12851349        ParentFont = False
    12861350      end
    … …  
    12921356      OnHide = TabSheetOthersHide
    12931357      OnShow = TabSheetOthersShow
    1294       object MemoNotes: TMemo
    1295         Left = 16
    1296         Height = 276
    1297         Top = 48
    1298         Width = 644
    1299         Anchors = [akTop, akLeft, akRight, akBottom]
    1300         ParentFont = False
    1301         ParentShowHint = False
    1302         ScrollBars = ssAutoBoth
     1358      object PanelNotes: TPanel
     1359        Left = 0
     1360        Height = 624
     1361        Top = 0
     1362        Width = 584
     1363        Align = alClient
     1364        BevelOuter = bvNone
     1365        ClientHeight = 624
     1366        ClientWidth = 584
    13031367        TabOrder = 0
    1304       end
    1305       object Label6: TLabel
    1306         Left = 16
    1307         Height = 26
    1308         Top = 16
    1309         Width = 55
    1310         Caption = 'Notes:'
    1311         ParentFont = False
    1312       end
    1313       object BarcodeQR1: TBarcodeQR
    1314         Left = 676
    1315         Height = 275
    1316         Top = 48
    1317         Width = 269
    1318         ParentColor = False
    1319         Text = 'TBarcodeQR'
    1320       end
    1321       object Label1: TLabel
    1322         Left = 677
    1323         Height = 26
    1324         Top = 15
    1325         Width = 76
    1326         Anchors = [akTop, akRight]
    1327         Caption = 'QR code:'
     1368        object MemoNotes: TMemo
     1369          Left = 8
     1370          Height = 561
     1371          Top = 47
     1372          Width = 564
     1373          Anchors = [akTop, akLeft, akRight, akBottom]
     1374          ParentFont = False
     1375          ParentShowHint = False
     1376          ScrollBars = ssAutoBoth
     1377          TabOrder = 0
     1378        end
     1379        object Label6: TLabel
     1380          Left = 8
     1381          Height = 26
     1382          Top = 16
     1383          Width = 55
     1384          Caption = 'Notes:'
     1385          ParentColor = False
     1386          ParentFont = False
     1387        end
     1388      end
     1389      object Splitter1: TSplitter
     1390        Left = 584
     1391        Height = 624
     1392        Top = 0
     1393        Width = 8
     1394        Align = alRight
     1395        ResizeAnchor = akRight
     1396      end
     1397      object PanelQrCode: TPanel
     1398        Left = 592
     1399        Height = 624
     1400        Top = 0
     1401        Width = 368
     1402        Align = alRight
     1403        BevelOuter = bvNone
     1404        ClientHeight = 624
     1405        ClientWidth = 368
     1406        TabOrder = 2
     1407        OnResize = PanelQrCodeResize
     1408        object Label1: TLabel
     1409          Left = 8
     1410          Height = 26
     1411          Top = 16
     1412          Width = 76
     1413          Caption = 'QR code:'
     1414          ParentColor = False
     1415        end
     1416        object BarcodeQR1: TBarcodeQR
     1417          Left = 8
     1418          Height = 313
     1419          Top = 47
     1420          Width = 336
     1421          ParentColor = False
     1422          Text = 'TBarcodeQR'
     1423        end
    13281424      end
    13291425    end

  • trunk/Forms/UFormContact.lrj

    r123 r139  
    8989{"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"},
    9090{"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"},
     91{"hash":74080234,"name":"tformcontact.label1.caption","sourcebytes":[81,82,32,99,111,100,101,58],"value":"QR code:"},
    9192{"hash":144712418,"name":"tformcontact.barcodeqr1.text","sourcebytes":[84,66,97,114,99,111,100,101,81,82],"value":"TBarcodeQR"},
    92 {"hash":74080234,"name":"tformcontact.label1.caption","sourcebytes":[81,82,32,99,111,100,101,58],"value":"QR code:"},
    9393{"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"},
    9494{"hash":8431845,"name":"tformcontact.aphotoload.caption","sourcebytes":[76,111,97,100,32,102,114,111,109,32,102,105,108,101],"value":"Load from file"},

  • trunk/Forms/UFormContact.pas

    r133 r139  
    171171    OpenPictureDialog1: TOpenPictureDialog;
    172172    PageControlContact: TPageControl;
     173    PanelNotes: TPanel;
     174    PanelQrCode: TPanel;
    173175    PopupMenuQrCode: TPopupMenu;
    174176    PopupMenuPhoto: TPopupMenu;
    … …  
    182184    SpeedButtonWorkEmail: TSpeedButton;
    183185    SpeedButtonWorkWeb: TSpeedButton;
     186    Splitter1: TSplitter;
    184187    TabSheetAll: TTabSheet;
    185188    TabSheetChat: TTabSheet;
    … …  
    206209    procedure ImagePhotoClick(Sender: TObject);
    207210    procedure MenuItemSaveQrToFileClick(Sender: TObject);
     211    procedure PanelQrCodeResize(Sender: TObject);
    208212    procedure SpeedButtonHomeWebClick(Sender: TObject);
    209213    procedure SpeedButtonAniversaryClick(Sender: TObject);
    … …  
    378382end;
    379383
     384procedure TFormContact.PanelQrCodeResize(Sender: TObject);
     385begin
     386  BarcodeQR1.SetBounds(BarcodeQR1.Left, BarcodeQR1.Top,
     387    PanelQrCode.Width - BarcodeQR1.Left * 2,
     388    PanelQrCode.Width - BarcodeQR1.Left * 2);
     389end;
     390
    380391procedure TFormContact.SpeedButtonHomeWebClick(Sender: TObject);
    381392begin
    … …  
    563574
    564575procedure TFormContact.TabSheetOthersShow(Sender: TObject);
     576var
     577  ContactWithoutImages: TContact;
    565578begin
    566579  MemoNotes.Lines.Text := Contact.Fields[cfNote];
    567580  BarcodeQR1.Text := Contact.AsString;
     581  if BarcodeQR1.ErrorString <> '' then begin
     582    ContactWithoutImages := TContact.Create;
     583    try
     584      ContactWithoutImages.Assign(Contact);
     585      ContactWithoutImages.ParentVCard := Contact.ParentVCard;
     586      while ContactWithoutImages.HasField(cfPhoto) do
     587        ContactWithoutImages.Fields[cfPhoto] := '';
     588      while ContactWithoutImages.HasField(cfLogo) do
     589        ContactWithoutImages.Fields[cfLogo] := '';
     590      BarcodeQR1.Text := ContactWithoutImages.AsString;
     591      if BarcodeQR1.ErrorString <> '' then begin
     592        BarcodeQR1.Text := '';
     593        BarcodeQR1.Visible := False;
     594      end else BarcodeQR1.Visible := True;
     595    finally
     596      ContactWithoutImages.Free;
     597    end;
     598  end else BarcodeQR1.Visible := True;
    568599end;
    569600
    … …  
    819850
    820851  // Set Barcode unpublished properties
    821   BarcodeQR1.Anchors := [akTop, akRight];
     852  BarcodeQR1.Anchors := [akTop, akLeft];
    822853  BarcodeQR1.PopupMenu := PopupMenuQrCode;
    823854end;
Note: See TracChangeset for help on using the changeset viewer.