Ignore:
Timestamp:
Jun 29, 2024, 7:58:36 AM (5 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from units names.
  • Modified: Use TFormEx for all forms.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormField.lfm

    r31 r32  
    11object FormField: TFormField
    22  Left = 721
    3   Height = 533
     3  Height = 463
    44  Top = 85
    5   Width = 1169
     5  Width = 1015
    66  Caption = 'Field'
    7   ClientHeight = 533
    8   ClientWidth = 1169
    9   DesignTimePPI = 144
     7  ClientHeight = 463
     8  ClientWidth = 1015
     9  DesignTimePPI = 125
    1010  OnCreate = FormCreate
    1111  OnShow = FormShow
    1212  Position = poMainFormCenter
    13   LCLVersion = '2.2.2.0'
     13  LCLVersion = '3.2.0.0'
    1414  object EditName: TEdit
    15     Left = 202
    16     Height = 43
    17     Top = 13
    18     Width = 317
     15    Left = 175
     16    Height = 39
     17    Top = 11
     18    Width = 275
    1919    TabOrder = 0
    2020  end
    2121  object Label1: TLabel
    22     Left = 20
     22    Left = 17
     23    Height = 22
     24    Top = 22
     25    Width = 49
     26    Caption = 'Name:'
     27    ParentColor = False
     28  end
     29  object ButtonOk: TButton
     30    Left = 917
    2331    Height = 26
    24     Top = 25
    25     Width = 56
    26     Caption = 'Name:'
    27     ParentColor = False
    28   end
    29   object ButtonOk: TButton
    30     Left = 1056
    31     Height = 30
    32     Top = 480
    33     Width = 90
     32    Top = 417
     33    Width = 78
    3434    Anchors = [akRight, akBottom]
    3535    Caption = 'Ok'
    … …  
    3838  end
    3939  object EditTextBefore: TEdit
    40     Left = 200
    41     Height = 43
    42     Top = 106
    43     Width = 318
     40    Left = 174
     41    Height = 39
     42    Top = 92
     43    Width = 276
    4444    TabOrder = 2
    4545  end
    4646  object Label2: TLabel
    47     Left = 19
    48     Height = 26
    49     Top = 118
    50     Width = 100
     47    Left = 16
     48    Height = 22
     49    Top = 102
     50    Width = 87
    5151    Caption = 'Text before:'
    5252    ParentColor = False
    5353  end
    5454  object EditTextAfter: TEdit
    55     Left = 200
    56     Height = 43
    57     Top = 163
    58     Width = 318
     55    Left = 174
     56    Height = 39
     57    Top = 141
     58    Width = 276
    5959    TabOrder = 3
    6060  end
    6161  object Label3: TLabel
    62     Left = 19
    63     Height = 26
    64     Top = 173
    65     Width = 84
     62    Left = 16
     63    Height = 22
     64    Top = 150
     65    Width = 74
    6666    Caption = 'Text after:'
    6767    ParentColor = False
    6868  end
    6969  object Label4: TLabel
    70     Left = 20
    71     Height = 26
    72     Top = 67
    73     Width = 85
     70    Left = 17
     71    Height = 22
     72    Top = 58
     73    Width = 76
    7474    Caption = 'Data type:'
    7575    ParentColor = False
    7676  end
    7777  object ComboBoxType: TComboBox
    78     Left = 200
    79     Height = 42
    80     Top = 58
    81     Width = 318
     78    Left = 174
     79    Height = 38
     80    Top = 50
     81    Width = 276
    8282    ItemHeight = 0
    83     OnChange = ComboBoxTypeChange
    8483    Style = csDropDownList
    8584    TabOrder = 4
     85    OnChange = ComboBoxTypeChange
    8686  end
    8787  object ButtonCancel: TButton
    88     Left = 941
    89     Height = 30
    90     Top = 480
    91     Width = 90
     88    Left = 817
     89    Height = 26
     90    Top = 417
     91    Width = 78
    9292    Anchors = [akRight, akBottom]
    9393    Caption = 'Cancel'
    … …  
    9696  end
    9797  object PageControl1: TPageControl
    98     Left = 19
    99     Height = 240
    100     Top = 221
    101     Width = 1124
     98    Left = 16
     99    Height = 209
     100    Top = 192
     101    Width = 976
    102102    ActivePage = TabSheetBoolean
    103103    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    106106    TabOrder = 6
    107107    object TabSheetString: TTabSheet
    108       ClientHeight = 236
    109       ClientWidth = 1114
     108      ClientHeight = 205
     109      ClientWidth = 966
    110110      object EditStringDefault: TEdit
    111         Left = 192
    112         Height = 43
    113         Top = 10
    114         Width = 318
     111        Left = 167
     112        Height = 39
     113        Top = 9
     114        Width = 276
    115115        TabOrder = 0
    116116      end
    117117      object Label5: TLabel
    118         Left = 19
    119         Height = 26
    120         Top = 10
    121         Width = 116
     118        Left = 16
     119        Height = 22
     120        Top = 9
     121        Width = 102
    122122        Caption = 'Default value:'
    123123        ParentColor = False
    … …  
    125125    end
    126126    object TabSheetInteger: TTabSheet
    127       ClientHeight = 236
    128       ClientWidth = 1114
     127      ClientHeight = 205
     128      ClientWidth = 966
    129129      object Label10: TLabel
    130         Left = 14
    131         Height = 26
     130        Left = 12
     131        Height = 22
     132        Top = 22
     133        Width = 76
     134        Caption = 'Minimum:'
     135        ParentColor = False
     136      end
     137      object SpinEditMin: TSpinEdit
     138        Left = 160
     139        Height = 39
     140        Top = 20
     141        Width = 266
     142        MaxValue = 10000000
     143        TabOrder = 0
     144      end
     145      object SpinEditMax: TSpinEdit
     146        Left = 160
     147        Height = 39
     148        Top = 58
     149        Width = 266
     150        TabOrder = 1
     151      end
     152      object Label11: TLabel
     153        Left = 12
     154        Height = 22
     155        Top = 61
     156        Width = 79
     157        Caption = 'Maximum:'
     158        ParentColor = False
     159      end
     160    end
     161    object TabSheetDateTime: TTabSheet
     162      ClientHeight = 205
     163      ClientWidth = 966
     164      object DateEditMin: TDateEdit
     165        Left = 141
     166        Height = 39
    132167        Top = 25
    133         Width = 87
    134         Caption = 'Minimum:'
    135         ParentColor = False
    136       end
    137       object SpinEditMin: TSpinEdit
    138         Left = 184
    139         Height = 43
    140         Top = 23
    141         Width = 306
    142         MaxValue = 10000000
    143         TabOrder = 0
    144       end
    145       object SpinEditMax: TSpinEdit
    146         Left = 184
    147         Height = 43
    148         Top = 67
    149         Width = 306
    150         TabOrder = 1
    151       end
    152       object Label11: TLabel
    153         Left = 14
    154         Height = 26
    155         Top = 70
    156         Width = 91
    157         Caption = 'Maximum:'
    158         ParentColor = False
    159       end
    160     end
    161     object TabSheetDateTime: TTabSheet
    162       ClientHeight = 236
    163       ClientWidth = 1114
    164       object DateEditMin: TDateEdit
    165         Left = 163
    166         Height = 43
    167         Top = 29
    168         Width = 259
     168        Width = 225
    169169        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    170170        DateOrder = doNone
    171         ButtonWidth = 28
     171        ButtonWidth = 24
    172172        NumGlyphs = 1
    173173        MaxLength = 0
    … …  
    175175      end
    176176      object Label6: TLabel
    177         Left = 19
    178         Height = 26
    179         Top = 38
    180         Width = 87
     177        Left = 16
     178        Height = 22
     179        Top = 33
     180        Width = 76
    181181        Caption = 'Minimum:'
    182182        ParentColor = False
    183183      end
    184184      object DateEditMax: TDateEdit
    185         Left = 163
    186         Height = 43
    187         Top = 86
    188         Width = 259
     185        Left = 141
     186        Height = 39
     187        Top = 75
     188        Width = 225
    189189        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    190190        DateOrder = doNone
    191         ButtonWidth = 28
     191        ButtonWidth = 24
    192192        NumGlyphs = 1
    193193        MaxLength = 0
    … …  
    195195      end
    196196      object Label7: TLabel
    197         Left = 19
    198         Height = 26
    199         Top = 96
    200         Width = 91
     197        Left = 16
     198        Height = 22
     199        Top = 83
     200        Width = 79
    201201        Caption = 'Maximum:'
    202202        ParentColor = False
    … …  
    206206    end
    207207    object TabSheetFloat: TTabSheet
    208       ClientHeight = 236
    209       ClientWidth = 1114
     208      ClientHeight = 205
     209      ClientWidth = 966
    210210      object FloatSpinEditMin: TFloatSpinEdit
    211         Left = 173
    212         Height = 43
    213         Top = 19
    214         Width = 319
     211        Left = 150
     212        Height = 39
     213        Top = 16
     214        Width = 277
    215215        MaxValue = 100000000
    216216        TabOrder = 0
    217217      end
    218218      object Label8: TLabel
    219         Left = 10
    220         Height = 26
    221         Top = 30
    222         Width = 87
     219        Left = 9
     220        Height = 22
     221        Top = 26
     222        Width = 76
    223223        Caption = 'Minimum:'
    224224        ParentColor = False
    225225      end
    226226      object FloatSpinEditMax: TFloatSpinEdit
    227         Left = 173
    228         Height = 43
    229         Top = 77
    230         Width = 319
     227        Left = 150
     228        Height = 39
     229        Top = 67
     230        Width = 277
    231231        MaxValue = 100
    232232        TabOrder = 1
    233233      end
    234234      object Label9: TLabel
    235         Left = 10
    236         Height = 26
    237         Top = 88
    238         Width = 91
     235        Left = 9
     236        Height = 22
     237        Top = 76
     238        Width = 79
    239239        Caption = 'Maximum:'
    240240        ParentColor = False
Note: See TracChangeset for help on using the changeset viewer.