Ignore:
Timestamp:
Mar 16, 2022, 11:35:08 AM (2 years ago)
Author:
chronos
Message:
  • Added: QR code image visible in contact others tab. It can be saved as image to file.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r112 r123  
    11object FormContact: TFormContact
    2   Left = 1063
    3   Height = 773
    4   Top = 449
    5   Width = 1032
     2  Left = 1043
     3  Height = 769
     4  Top = 446
     5  Width = 1033
    66  Caption = 'Contact'
    7   ClientHeight = 773
    8   ClientWidth = 1032
     7  ClientHeight = 769
     8  ClientWidth = 1033
    99  DesignTimePPI = 150
    1010  OnClose = FormClose
    … …  
    1414  LCLVersion = '2.2.0.4'
    1515  object ButtonCancel: TButton
    16     Left = 900
     16    Left = 901
    1717    Height = 39
    18     Top = 720
     18    Top = 716
    1919    Width = 120
    2020    Anchors = [akRight, akBottom]
    … …  
    2525  end
    2626  object ButtonOk: TButton
    27     Left = 759
     27    Left = 760
    2828    Height = 39
    29     Top = 720
     29    Top = 716
    3030    Width = 124
    3131    Anchors = [akRight, akBottom]
    … …  
    3838    Left = 8
    3939    Height = 39
    40     Top = 720
     40    Top = 716
    4141    Width = 124
    4242    Anchors = [akLeft, akBottom]
    … …  
    5050    Left = 150
    5151    Height = 39
    52     Top = 720
     52    Top = 716
    5353    Width = 120
    5454    Anchors = [akLeft, akBottom]
    … …  
    6161  object PageControlContact: TPageControl
    6262    Left = 8
    63     Height = 696
     63    Height = 692
    6464    Top = 8
    65     Width = 1009
    66     ActivePage = TabSheetGeneral
     65    Width = 1010
     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
    7272      Caption = 'General'
    73       ClientHeight = 655
    74       ClientWidth = 999
     73      ClientHeight = 651
     74      ClientWidth = 1000
    7575      OnHide = TabSheetGeneralHide
    7676      OnShow = TabSheetGeneralShow
    … …  
    340340    object TabSheetHome: TTabSheet
    341341      Caption = 'Home'
    342       ClientHeight = 655
    343       ClientWidth = 999
     342      ClientHeight = 651
     343      ClientWidth = 1000
    344344      OnHide = TabSheetHomeHide
    345345      OnShow = TabSheetHomeShow
    … …  
    429429        Height = 287
    430430        Top = 225
    431         Width = 897
     431        Width = 898
    432432        Anchors = [akTop, akLeft, akRight]
    433433        Caption = 'Address'
    434434        ClientHeight = 285
    435         ClientWidth = 895
     435        ClientWidth = 896
    436436        TabOrder = 6
    437437        object Label36: TLabel
    … …  
    600600    object TabSheetWork: TTabSheet
    601601      Caption = 'Work'
    602       ClientHeight = 655
    603       ClientWidth = 999
     602      ClientHeight = 651
     603      ClientWidth = 1000
    604604      OnHide = TabSheetWorkHide
    605605      OnShow = TabSheetWorkShow
    … …  
    906906    object TabSheetChat: TTabSheet
    907907      Caption = 'Chat'
    908       ClientHeight = 655
    909       ClientWidth = 999
     908      ClientHeight = 651
     909      ClientWidth = 1000
    910910      OnHide = TabSheetChatHide
    911911      OnShow = TabSheetChatShow
    … …  
    11211121    object TabSheetSocial: TTabSheet
    11221122      Caption = 'Social'
    1123       ClientHeight = 655
    1124       ClientWidth = 999
     1123      ClientHeight = 651
     1124      ClientWidth = 1000
    11251125      OnHide = TabSheetSocialHide
    11261126      OnShow = TabSheetSocialShow
    … …  
    12881288    object TabSheetOthers: TTabSheet
    12891289      Caption = 'Others'
    1290       ClientHeight = 655
    1291       ClientWidth = 999
     1290      ClientHeight = 651
     1291      ClientWidth = 1000
    12921292      OnHide = TabSheetOthersHide
    12931293      OnShow = TabSheetOthersShow
    12941294      object MemoNotes: TMemo
    12951295        Left = 17
    1296         Height = 293
     1296        Height = 289
    12971297        Top = 50
    1298         Width = 963
     1298        Width = 671
    12991299        Anchors = [akTop, akLeft, akRight, akBottom]
    13001300        ParentFont = False
    … …  
    13101310        Caption = 'Notes:'
    13111311        ParentFont = False
     1312      end
     1313      object BarcodeQR1: TBarcodeQR
     1314        Left = 704
     1315        Height = 286
     1316        Top = 50
     1317        Width = 280
     1318        ParentColor = False
     1319        Text = 'TBarcodeQR'
     1320      end
     1321      object Label1: TLabel
     1322        Left = 704
     1323        Height = 27
     1324        Top = 16
     1325        Width = 80
     1326        Anchors = [akTop, akRight]
     1327        Caption = 'QR code:'
    13121328      end
    13131329    end
    … …  
    13811397    Top = 608
    13821398  end
     1399  object PopupMenuQrCode: TPopupMenu
     1400    Left = 528
     1401    Top = 472
     1402    object MenuItemSaveQrToFile: TMenuItem
     1403      Caption = 'Save to file'
     1404      OnClick = MenuItemSaveQrToFileClick
     1405    end
     1406  end
    13831407end
Note: See TracChangeset for help on using the changeset viewer.