Ignore:
Timestamp:
Feb 9, 2022, 3:51:26 PM (3 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/UFormFind.lfm

    r82 r103  
    11object FormFind: TFormFind
    22  Left = 469
    3   Height = 523
     3  Height = 545
    44  Top = 407
    5   Width = 807
     5  Width = 841
    66  ActiveControl = EditValue
    77  Caption = 'Find'
    8   ClientHeight = 523
    9   ClientWidth = 807
    10   DesignTimePPI = 144
     8  ClientHeight = 545
     9  ClientWidth = 841
     10  DesignTimePPI = 150
    1111  OnClose = FormClose
    1212  OnCreate = FormCreate
    1313  OnDestroy = FormDestroy
    1414  OnShow = FormShow
    15   LCLVersion = '2.0.12.0'
     15  LCLVersion = '2.2.0.4'
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 58
     18    Height = 60
    1919    Top = 0
    20     Width = 807
     20    Width = 841
    2121    Align = alTop
    2222    BevelOuter = bvNone
    23     ClientHeight = 58
    24     ClientWidth = 807
     23    ClientHeight = 60
     24    ClientWidth = 841
    2525    ParentFont = False
    2626    TabOrder = 0
    2727    object ComboBoxField: TComboBox
    28       Left = 184
    29       Height = 41
    30       Top = 16
    31       Width = 240
     28      Left = 192
     29      Height = 42
     30      Top = 17
     31      Width = 250
    3232      ItemHeight = 0
    3333      OnChange = ComboBoxFieldChange
    … …  
    3737    end
    3838    object Label1: TLabel
    39       Left = 13
    40       Height = 24
    41       Top = 19
    42       Width = 135
     39      Left = 14
     40      Height = 27
     41      Top = 20
     42      Width = 142
    4343      Caption = 'By contact field:'
    44       ParentColor = False
    4544      ParentFont = False
    4645    end
    4746    object EditValue: TEdit
    48       Left = 440
    49       Height = 42
    50       Top = 16
    51       Width = 208
     47      Left = 458
     48      Height = 43
     49      Top = 17
     50      Width = 217
    5251      OnKeyPress = EditValueKeyPress
    5352      TabOrder = 1
    5453    end
    5554    object ButtonFind: TButton
    56       Left = 664
    57       Height = 38
    58       Top = 16
    59       Width = 113
     55      Left = 692
     56      Height = 40
     57      Top = 17
     58      Width = 118
    6059      Caption = 'Find'
    6160      OnClick = ButtonFindClick
Note: See TracChangeset for help on using the changeset viewer.