Ignore:
Timestamp:
Dec 8, 2021, 4:44:21 PM (3 years ago)
Author:
chronos
Message:
  • Added: Show textual name of contact field in contact field form and prefill field name and attributes. Update that name back according used field name and attributes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormProperty.lfm

    r39 r56  
    11object FormProperty: TFormProperty
    22  Left = 760
    3   Height = 525
    4   Top = 469
    5   Width = 802
     3  Height = 418
     4  Top = 576
     5  Width = 726
    66  Caption = 'Field'
    7   ClientHeight = 525
    8   ClientWidth = 802
     7  ClientHeight = 418
     8  ClientWidth = 726
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
    … …  
    1313  LCLVersion = '2.0.12.0'
    1414  object ButtonOk: TButton
    15     Left = 536
     15    Left = 460
    1616    Height = 37
    17     Top = 472
     17    Top = 365
    1818    Width = 119
    1919    Anchors = [akRight, akBottom]
    … …  
    2525  end
    2626  object ButtonCancel: TButton
    27     Left = 672
     27    Left = 596
    2828    Height = 37
    29     Top = 472
     29    Top = 365
    3030    Width = 115
    3131    Anchors = [akRight, akBottom]
    … …  
    3838    Left = 24
    3939    Height = 24
    40     Top = 20
     40    Top = 80
    4141    Width = 56
    4242    Caption = 'Name:'
    … …  
    4444  end
    4545  object EditName: TEdit
    46     Left = 166
     46    Left = 168
    4747    Height = 42
    48     Top = 20
    49     Width = 322
     48    Top = 72
     49    Width = 532
     50    Anchors = [akTop, akLeft, akRight]
     51    OnChange = EditNameChange
    5052    TabOrder = 2
    5153  end
    … …  
    5355    Left = 24
    5456    Height = 24
    55     Top = 72
     57    Top = 128
    5658    Width = 88
    5759    Caption = 'Attributes:'
    … …  
    5961  end
    6062  object EditAttributes: TEdit
    61     Left = 166
     63    Left = 168
    6264    Height = 42
    63     Top = 72
    64     Width = 322
     65    Top = 124
     66    Width = 532
     67    Anchors = [akTop, akLeft, akRight]
     68    OnChange = EditAttributesChange
    6569    TabOrder = 3
    6670  end
    … …  
    6872    Left = 24
    6973    Height = 24
    70     Top = 128
     74    Top = 180
    7175    Width = 60
    7276    Caption = 'Values:'
    … …  
    7478  end
    7579  object EditValues: TEdit
    76     Left = 166
     80    Left = 168
    7781    Height = 42
    78     Top = 120
    79     Width = 322
     82    Top = 172
     83    Width = 532
     84    Anchors = [akTop, akLeft, akRight]
    8085    TabOrder = 4
    8186  end
     87  object Label4: TLabel
     88    Left = 24
     89    Height = 24
     90    Top = 32
     91    Width = 45
     92    Caption = 'Field:'
     93    ParentColor = False
     94  end
     95  object ComboBoxField: TComboBox
     96    Left = 168
     97    Height = 42
     98    Top = 24
     99    Width = 532
     100    Anchors = [akTop, akLeft, akRight]
     101    ItemHeight = 0
     102    OnChange = ComboBoxFieldChange
     103    Style = csDropDownList
     104    TabOrder = 5
     105  end
    82106end
Note: See TracChangeset for help on using the changeset viewer.