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/UFormProperty.lfm

    r89 r103  
    11object FormProperty: TFormProperty
    22  Left = 760
    3   Height = 418
     3  Height = 435
    44  Top = 576
    5   Width = 726
     5  Width = 756
    66  Caption = 'Field'
    7   ClientHeight = 418
    8   ClientWidth = 726
    9   DesignTimePPI = 144
     7  ClientHeight = 435
     8  ClientWidth = 756
     9  DesignTimePPI = 150
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.0.12.0'
     13  LCLVersion = '2.2.0.4'
    1414  object ButtonOk: TButton
    15     Left = 460
    16     Height = 37
    17     Top = 365
    18     Width = 119
     15    Left = 479
     16    Height = 39
     17    Top = 379
     18    Width = 124
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'OK'
    … …  
    2525  end
    2626  object ButtonCancel: TButton
    27     Left = 596
    28     Height = 37
    29     Top = 365
    30     Width = 115
     27    Left = 620
     28    Height = 39
     29    Top = 379
     30    Width = 120
    3131    Anchors = [akRight, akBottom]
    3232    Caption = 'Cancel'
    … …  
    3636  end
    3737  object Label1: TLabel
    38     Left = 24
    39     Height = 24
    40     Top = 80
    41     Width = 56
     38    Left = 25
     39    Height = 27
     40    Top = 83
     41    Width = 59
    4242    Caption = 'Name:'
    43     ParentColor = False
    4443  end
    4544  object EditName: TEdit
    46     Left = 168
    47     Height = 42
    48     Top = 72
    49     Width = 532
     45    Left = 175
     46    Height = 43
     47    Top = 75
     48    Width = 554
    5049    Anchors = [akTop, akLeft, akRight]
    5150    OnChange = EditNameChange
    … …  
    5352  end
    5453  object Label2: TLabel
    55     Left = 24
    56     Height = 24
    57     Top = 128
    58     Width = 88
     54    Left = 25
     55    Height = 27
     56    Top = 133
     57    Width = 95
    5958    Caption = 'Attributes:'
    60     ParentColor = False
    6159  end
    6260  object EditAttributes: TEdit
    63     Left = 168
    64     Height = 42
    65     Top = 124
    66     Width = 532
     61    Left = 175
     62    Height = 43
     63    Top = 129
     64    Width = 554
    6765    Anchors = [akTop, akLeft, akRight]
    6866    OnChange = EditAttributesChange
    … …  
    7068  end
    7169  object Label3: TLabel
    72     Left = 24
    73     Height = 24
    74     Top = 180
    75     Width = 60
     70    Left = 25
     71    Height = 27
     72    Top = 188
     73    Width = 64
    7674    Caption = 'Values:'
    77     ParentColor = False
    7875  end
    7976  object EditValues: TEdit
    80     Left = 168
    81     Height = 42
    82     Top = 172
    83     Width = 532
     77    Left = 175
     78    Height = 43
     79    Top = 179
     80    Width = 554
    8481    Anchors = [akTop, akLeft, akRight]
    8582    TabOrder = 3
    8683  end
    8784  object Label4: TLabel
    88     Left = 24
    89     Height = 24
    90     Top = 32
    91     Width = 45
     85    Left = 25
     86    Height = 27
     87    Top = 33
     88    Width = 48
    9289    Caption = 'Field:'
    93     ParentColor = False
    9490  end
    9591  object ComboBoxField: TComboBox
    96     Left = 168
    97     Height = 41
    98     Top = 24
    99     Width = 532
     92    Left = 175
     93    Height = 42
     94    Top = 25
     95    Width = 554
    10096    Anchors = [akTop, akLeft, akRight]
    10197    ItemHeight = 0
Note: See TracChangeset for help on using the changeset viewer.