Ignore:
Timestamp:
Feb 9, 2022, 3:51:26 PM (2 years ago)
Author:
chronos
Message:
  • Added: Support for profile photo as URL.
  • Added: New UContactImage form to show profile photo in bigger size and with URL.
  • Modified: Profile photo image load/save handling moved to separate unit UContactImage.
  • Fixed: Some dynamically created forms were not translated.
  • Added: Remember last used file name for image open/save dialog.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormFindDuplicity.lfm

    r82 r103  
    11object FormFindDuplicity: TFormFindDuplicity
    22  Left = 455
    3   Height = 523
     3  Height = 545
    44  Top = 355
    5   Width = 807
     5  Width = 841
    66  Caption = 'Find duplicities'
    7   ClientHeight = 523
    8   ClientWidth = 807
    9   DesignTimePPI = 144
     7  ClientHeight = 545
     8  ClientWidth = 841
     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 ListView1: TListView
    1616    Left = 5
    17     Height = 455
    18     Top = 63
    19     Width = 797
     17    Height = 475
     18    Top = 65
     19    Width = 831
    2020    Align = alClient
    2121    BorderSpacing.Around = 5
    … …  
    2323      item
    2424        Caption = 'Field'
    25         Width = 180
     25        Width = 188
    2626      end   
    2727      item
    2828        Caption = 'Contacts'
    29         Width = 360
     29        Width = 375
    3030      end   
    3131      item
    3232        Caption = 'Count'
    33         Width = 242
     33        Width = 253
    3434      end>
    3535    OwnerData = True
    … …  
    4545  object Panel1: TPanel
    4646    Left = 0
    47     Height = 58
     47    Height = 60
    4848    Top = 0
    49     Width = 807
     49    Width = 841
    5050    Align = alTop
    5151    BevelOuter = bvNone
    52     ClientHeight = 58
    53     ClientWidth = 807
     52    ClientHeight = 60
     53    ClientWidth = 841
    5454    ParentFont = False
    5555    TabOrder = 1
    5656    object ComboBoxField: TComboBox
    57       Left = 160
    58       Height = 41
    59       Top = 16
    60       Width = 326
     57      Left = 167
     58      Height = 42
     59      Top = 17
     60      Width = 340
    6161      ItemHeight = 0
    6262      OnChange = ComboBoxFieldChange
    … …  
    6666    end
    6767    object Label1: TLabel
    68       Left = 13
    69       Height = 24
    70       Top = 19
    71       Width = 135
     68      Left = 14
     69      Height = 27
     70      Top = 20
     71      Width = 142
    7272      Caption = 'By contact field:'
    73       ParentColor = False
    7473      ParentFont = False
    7574    end
    7675    object ButtonMerge: TButton
    77       Left = 496
    78       Height = 38
    79       Top = 14
    80       Width = 113
     76      Left = 517
     77      Height = 40
     78      Top = 15
     79      Width = 118
    8180      Caption = 'Merge'
    8281      OnClick = ButtonMergeClick
    … …  
    8584  end
    8685  object ActionList1: TActionList
    87     Left = 262
    88     Top = 154
     86    Left = 273
     87    Top = 160
    8988    object AShowContacts: TAction
    9089      Caption = 'Show contacts'
    … …  
    9392  end
    9493  object PopupMenu1: TPopupMenu
    95     Left = 90
    96     Top = 149
     94    Left = 94
     95    Top = 155
    9796    object MenuItem1: TMenuItem
    9897      Action = AShowContacts
Note: See TracChangeset for help on using the changeset viewer.