Ignore:
Timestamp:
Jun 21, 2024, 12:44:53 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Remove U prefix from unit names.
  • Modified: Use TFormEx for all forms for code simplification.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormSettings.lfm

    r316 r317  
    11object FormSettings: TFormSettings
    2   Left = 535
    3   Height = 299
    4   Top = 386
    5   Width = 480
     2  Left = 851
     3  Height = 613
     4  Top = 413
     5  Width = 857
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    8   ClientHeight = 299
    9   ClientWidth = 480
    10   Constraints.MinHeight = 250
    11   Constraints.MinWidth = 378
    12   DesignTimePPI = 120
    13   OnClose = FormClose
     8  ClientHeight = 613
     9  ClientWidth = 857
     10  Constraints.MinHeight = 300
     11  Constraints.MinWidth = 454
     12  DesignTimePPI = 144
    1413  OnCreate = FormCreate
    1514  OnShow = FormShow
    1615  Position = poMainFormCenter
    17   LCLVersion = '2.0.0.4'
     16  LCLVersion = '3.4.0.0'
    1817  object ButtonOk: TButton
    19     Left = 411
    20     Height = 21
    21     Top = 266
    22     Width = 62
     18    Left = 775
     19    Height = 25
     20    Top = 574
     21    Width = 74
    2322    Anchors = [akRight, akBottom]
    2423    Caption = 'Ok'
    … …  
    2827  end
    2928  object ButtonCancel: TButton
    30     Left = 332
    31     Height = 21
    32     Top = 266
    33     Width = 62
     29    Left = 680
     30    Height = 25
     31    Top = 574
     32    Width = 74
    3433    Anchors = [akRight, akBottom]
    3534    Caption = 'Cancel'
    … …  
    3938  end
    4039  object PageControl1: TPageControl
    41     Left = 7
    42     Height = 245
    43     Top = 7
    44     Width = 466
     40    Left = 8
     41    Height = 558
     42    Top = 8
     43    Width = 841
    4544    ActivePage = TabSheetGeneral
    4645    Align = alTop
    4746    Anchors = [akTop, akLeft, akRight, akBottom]
    48     BorderSpacing.Around = 7
     47    BorderSpacing.Around = 8
    4948    ParentFont = False
    5049    TabIndex = 0
    … …  
    5251    object TabSheetGeneral: TTabSheet
    5352      Caption = 'General'
    54       ClientHeight = 212
    55       ClientWidth = 458
     53      ClientHeight = 518
     54      ClientWidth = 831
    5655      ParentFont = False
    5756      object Panel1: TPanel
    5857        Left = 0
    59         Height = 212
     58        Height = 518
    6059        Top = 0
    61         Width = 458
     60        Width = 831
    6261        Align = alClient
    6362        BevelOuter = bvNone
    64         ClientHeight = 212
    65         ClientWidth = 458
     63        ClientHeight = 518
     64        ClientWidth = 831
    6665        ParentFont = False
    6766        TabOrder = 0
    6867        object Label1: TLabel
    69           Left = 17
    70           Height = 20
    71           Top = 27
    72           Width = 68
     68          Left = 20
     69          Height = 26
     70          Top = 32
     71          Width = 88
    7372          Caption = 'Language:'
    7473          ParentColor = False
    … …  
    7675        end
    7776        object ComboBoxLanguage: TComboBox
    78           Left = 148
    79           Height = 28
    80           Top = 20
    81           Width = 163
    82           ItemHeight = 20
     77          Left = 178
     78          Height = 42
     79          Top = 24
     80          Width = 196
     81          ItemHeight = 0
    8382          ParentFont = False
    8483          Style = csDropDownList
    … …  
    8685        end
    8786        object ComboBoxTheme: TComboBox
    88           Left = 147
    89           Height = 28
    90           Top = 60
    91           Width = 163
    92           ItemHeight = 20
     87          Left = 176
     88          Height = 42
     89          Top = 72
     90          Width = 196
     91          ItemHeight = 0
    9392          ParentFont = False
    9493          Style = csDropDownList
    … …  
    9695        end
    9796        object Label6: TLabel
    98           Left = 17
    99           Height = 20
    100           Top = 67
    101           Width = 48
     97          Left = 20
     98          Height = 26
     99          Top = 80
     100          Width = 63
    102101          Caption = 'Theme:'
    103102          ParentColor = False
    … …  
    105104        end
    106105        object SpinEditAnimSpeed: TSpinEdit
    107           Left = 193
    108           Height = 28
    109           Top = 100
    110           Width = 102
     106          Left = 232
     107          Height = 43
     108          Top = 120
     109          Width = 122
    111110          ParentFont = False
    112111          TabOrder = 2
    113112        end
    114113        object Label3: TLabel
    115           Left = 307
    116           Height = 20
    117           Top = 103
    118           Width = 12
     114          Left = 368
     115          Height = 26
     116          Top = 124
     117          Width = 15
    119118          Caption = '%'
    120119          ParentColor = False
    … …  
    122121        end
    123122        object Label2: TLabel
    124           Left = 17
    125           Height = 20
    126           Top = 100
    127           Width = 116
     123          Left = 20
     124          Height = 26
     125          Top = 120
     126          Width = 149
    128127          Caption = 'Animation speed:'
    129128          ParentColor = False
    … …  
    131130        end
    132131        object CheckBoxAutoSaveTurn: TCheckBox
    133           Left = 17
    134           Height = 24
    135           Top = 128
    136           Width = 213
     132          Left = 20
     133          Height = 30
     134          Top = 154
     135          Width = 269
    137136          Caption = 'Autosave game on each turn'
    138137          ParentFont = False
    … …  
    140139        end
    141140        object CheckBoxReopenLastFile: TCheckBox
    142           Left = 17
    143           Height = 24
    144           Top = 162
    145           Width = 198
     141          Left = 20
     142          Height = 30
     143          Top = 194
     144          Width = 248
    146145          Caption = 'Reopen last game on start'
    147146          ParentFont = False
    … …  
    152151    object TabSheetDebug: TTabSheet
    153152      Caption = 'Debug'
    154       ClientHeight = 260
    155       ClientWidth = 554
     153      ClientHeight = 518
     154      ClientWidth = 831
    156155      ParentFont = False
    157156      object Panel2: TPanel
    158157        Left = 0
    159         Height = 229
     158        Height = 518
    160159        Top = 0
    161         Width = 583
     160        Width = 831
    162161        Align = alClient
    163162        BevelOuter = bvNone
    164         ClientHeight = 229
    165         ClientWidth = 583
     163        ClientHeight = 518
     164        ClientWidth = 831
    166165        ParentFont = False
    167166        TabOrder = 0
    168167        object CheckBox2: TCheckBox
    169           Left = 13
    170           Height = 20
    171           Top = 27
    172           Width = 557
     168          Left = 16
     169          Height = 24
     170          Top = 32
     171          Width = 799
    173172          Anchors = [akTop, akLeft, akRight]
    174173          AutoSize = False
    175174          Caption = 'Automatic DPI'
     175          ParentFont = False
     176          TabOrder = 0
    176177          OnChange = CheckBox2Change
    177           ParentFont = False
    178           TabOrder = 0
    179178        end
    180179        object Label4: TLabel
    181           Left = 12
    182           Height = 26
    183           Top = 56
     180          Left = 14
     181          Height = 26
     182          Top = 67
    184183          Width = 35
    185184          Caption = 'DPI:'
    … …  
    188187        end
    189188        object SpinEditX: TSpinEdit
    190           Left = 87
    191           Height = 36
    192           Top = 53
    193           Width = 80
     189          Left = 104
     190          Height = 43
     191          Top = 64
     192          Width = 96
    194193          MaxValue = 500
    195194          MinValue = 20
    … …  
    199198        end
    200199        object Label5: TLabel
    201           Left = 173
    202           Height = 26
    203           Top = 56
     200          Left = 208
     201          Height = 26
     202          Top = 67
    204203          Width = 10
    205204          Caption = 'x'
    … …  
    208207        end
    209208        object SpinEditY: TSpinEdit
    210           Left = 193
    211           Height = 36
    212           Top = 53
    213           Width = 75
     209          Left = 232
     210          Height = 43
     211          Top = 64
     212          Width = 90
    214213          MaxValue = 500
    215214          MinValue = 20
    … …  
    219218        end
    220219        object CheckBoxDevelMode: TCheckBox
    221           Left = 13
    222           Height = 22
    223           Top = 113
    224           Width = 560
     220          Left = 16
     221          Height = 26
     222          Top = 136
     223          Width = 803
    225224          Anchors = [akTop, akLeft, akRight]
    226225          AutoSize = False
Note: See TracChangeset for help on using the changeset viewer.