Ignore:
Timestamp:
Sep 21, 2018, 2:09:10 PM (6 years ago)
Author:
chronos
Message:
  • Added: Support for color themes.
  • Added: Remember dimensions for more forms.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r220 r243  
    11object FormSettings: TFormSettings
    2   Left = 404
    3   Height = 327
    4   Top = 574
    5   Width = 554
     2  Left = 535
     3  Height = 328
     4  Top = 417
     5  Width = 605
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    8   ClientHeight = 327
    9   ClientWidth = 554
    10   Constraints.MinHeight = 327
    11   Constraints.MinWidth = 554
    12   DesignTimePPI = 144
     8  ClientHeight = 328
     9  ClientWidth = 605
     10  Constraints.MinHeight = 300
     11  Constraints.MinWidth = 454
     12  DesignTimePPI = 120
     13  OnClose = FormClose
    1314  OnCreate = FormCreate
    1415  OnShow = FormShow
    … …  
    1617  LCLVersion = '1.8.2.0'
    1718  object ButtonOk: TButton
    18     Left = 444
     19    Left = 522
    1920    Height = 25
    20     Top = 284
     21    Top = 289
    2122    Width = 75
    2223    Anchors = [akRight, akBottom]
    … …  
    2627  end
    2728  object ButtonCancel: TButton
    28     Left = 322
     29    Left = 427
    2930    Height = 25
    30     Top = 284
     31    Top = 289
    3132    Width = 75
    3233    Anchors = [akRight, akBottom]
    … …  
    3637  end
    3738  object PageControl1: TPageControl
    38     Left = 4
    39     Height = 264
    40     Top = 4
    41     Width = 546
     39    Left = 8
     40    Height = 273
     41    Top = 8
     42    Width = 589
    4243    ActivePage = TabSheetDebug
    4344    Align = alTop
    4445    Anchors = [akTop, akLeft, akRight, akBottom]
    45     BorderSpacing.Around = 4
     46    BorderSpacing.Around = 8
    4647    TabIndex = 1
    4748    TabOrder = 2
    4849    object TabSheetGeneral: TTabSheet
    4950      Caption = 'General'
    50       ClientHeight = 220
    51       ClientWidth = 540
    52       object Label2: TLabel
    53         Left = 20
    54         Height = 26
    55         Top = 78
    56         Width = 150
    57         Caption = 'Animation speed:'
    58         ParentColor = False
    59       end
    60       object SpinEditAnimSpeed: TSpinEdit
    61         Left = 232
    62         Height = 36
    63         Top = 72
    64         Width = 122
     51      ClientHeight = 240
     52      ClientWidth = 581
     53      object Panel1: TPanel
     54        Left = 0
     55        Height = 240
     56        Top = 0
     57        Width = 581
     58        Align = alClient
     59        BevelOuter = bvNone
     60        ClientHeight = 240
     61        ClientWidth = 581
    6562        TabOrder = 0
    66       end
    67       object Label3: TLabel
    68         Left = 368
    69         Height = 26
    70         Top = 82
    71         Width = 15
    72         Caption = '%'
    73         ParentColor = False
    74       end
    75       object CheckBoxAutoSaveTurn: TCheckBox
    76         Left = 20
    77         Height = 27
    78         Top = 112
    79         Width = 586
    80         Anchors = [akTop, akLeft, akRight]
    81         AutoSize = False
    82         Caption = 'Autosave game on each turn'
    83         TabOrder = 1
    84       end
    85       object Label1: TLabel
    86         Left = 20
    87         Height = 26
    88         Top = 26
    89         Width = 88
    90         Caption = 'Language:'
    91         ParentColor = False
    92       end
    93       object ComboBoxLanguage: TComboBox
    94         Left = 178
    95         Height = 40
    96         Top = 24
    97         Width = 196
    98         ItemHeight = 0
    99         Style = csDropDownList
    100         TabOrder = 2
    101       end
    102       object CheckBoxReopenLastFile: TCheckBox
    103         Left = 20
    104         Height = 30
    105         Top = 152
    106         Width = 249
    107         Caption = 'Reopen last game on start'
    108         TabOrder = 3
     63        object Label1: TLabel
     64          Left = 20
     65          Height = 20
     66          Top = 26
     67          Width = 68
     68          Caption = 'Language:'
     69          ParentColor = False
     70        end
     71        object ComboBoxLanguage: TComboBox
     72          Left = 178
     73          Height = 28
     74          Top = 24
     75          Width = 196
     76          ItemHeight = 20
     77          Style = csDropDownList
     78          TabOrder = 0
     79        end
     80        object ComboBoxTheme: TComboBox
     81          Left = 178
     82          Height = 28
     83          Top = 56
     84          Width = 196
     85          ItemHeight = 20
     86          Style = csDropDownList
     87          TabOrder = 1
     88        end
     89        object Label6: TLabel
     90          Left = 20
     91          Height = 20
     92          Top = 58
     93          Width = 48
     94          Caption = 'Theme:'
     95          ParentColor = False
     96        end
     97        object SpinEditAnimSpeed: TSpinEdit
     98          Left = 232
     99          Height = 28
     100          Top = 110
     101          Width = 122
     102          TabOrder = 2
     103        end
     104        object Label3: TLabel
     105          Left = 368
     106          Height = 20
     107          Top = 114
     108          Width = 12
     109          Caption = '%'
     110          ParentColor = False
     111        end
     112        object Label2: TLabel
     113          Left = 20
     114          Height = 20
     115          Top = 110
     116          Width = 116
     117          Caption = 'Animation speed:'
     118          ParentColor = False
     119        end
     120        object CheckBoxAutoSaveTurn: TCheckBox
     121          Left = 20
     122          Height = 24
     123          Top = 144
     124          Width = 213
     125          Caption = 'Autosave game on each turn'
     126          TabOrder = 3
     127        end
     128        object CheckBoxReopenLastFile: TCheckBox
     129          Left = 20
     130          Height = 24
     131          Top = 184
     132          Width = 198
     133          Caption = 'Reopen last game on start'
     134          TabOrder = 4
     135        end
    109136      end
    110137    end
    111138    object TabSheetDebug: TTabSheet
    112139      Caption = 'Debug'
    113       ClientHeight = 220
    114       ClientWidth = 540
    115       object CheckBoxDevelMode: TCheckBox
    116         Left = 16
    117         Height = 27
    118         Top = 136
    119         Width = 512
    120         Anchors = [akTop, akLeft, akRight]
    121         AutoSize = False
    122         Caption = 'Developer mode'
     140      ClientHeight = 240
     141      ClientWidth = 581
     142      object Panel2: TPanel
     143        Left = 0
     144        Height = 240
     145        Top = 0
     146        Width = 581
     147        Align = alClient
     148        BevelOuter = bvNone
     149        ClientHeight = 240
     150        ClientWidth = 581
    123151        TabOrder = 0
    124       end
    125       object Label4: TLabel
    126         Left = 14
    127         Height = 26
    128         Top = 67
    129         Width = 35
    130         Caption = 'DPI:'
    131         ParentColor = False
    132       end
    133       object SpinEditX: TSpinEdit
    134         Left = 104
    135         Height = 36
    136         Top = 64
    137         Width = 96
    138         MaxValue = 500
    139         MinValue = 20
    140         TabOrder = 1
    141         Value = 50
    142       end
    143       object SpinEditY: TSpinEdit
    144         Left = 232
    145         Height = 36
    146         Top = 64
    147         Width = 90
    148         MaxValue = 500
    149         MinValue = 20
    150         TabOrder = 2
    151         Value = 20
    152       end
    153       object Label5: TLabel
    154         Left = 208
    155         Height = 26
    156         Top = 67
    157         Width = 10
    158         Caption = 'x'
    159         ParentColor = False
    160       end
    161       object CheckBox2: TCheckBox
    162         Left = 16
    163         Height = 24
    164         Top = 32
    165         Width = 508
    166         Anchors = [akTop, akLeft, akRight]
    167         AutoSize = False
    168         Caption = 'Automatic DPI'
    169         OnChange = CheckBox2Change
    170         TabOrder = 3
     152        object CheckBox2: TCheckBox
     153          Left = 16
     154          Height = 24
     155          Top = 32
     156          Width = 549
     157          Anchors = [akTop, akLeft, akRight]
     158          AutoSize = False
     159          Caption = 'Automatic DPI'
     160          OnChange = CheckBox2Change
     161          TabOrder = 0
     162        end
     163        object Label4: TLabel
     164          Left = 14
     165          Height = 20
     166          Top = 67
     167          Width = 26
     168          Caption = 'DPI:'
     169          ParentColor = False
     170        end
     171        object SpinEditX: TSpinEdit
     172          Left = 104
     173          Height = 28
     174          Top = 64
     175          Width = 96
     176          MaxValue = 500
     177          MinValue = 20
     178          TabOrder = 1
     179          Value = 50
     180        end
     181        object Label5: TLabel
     182          Left = 208
     183          Height = 20
     184          Top = 67
     185          Width = 7
     186          Caption = 'x'
     187          ParentColor = False
     188        end
     189        object SpinEditY: TSpinEdit
     190          Left = 232
     191          Height = 28
     192          Top = 64
     193          Width = 90
     194          MaxValue = 500
     195          MinValue = 20
     196          TabOrder = 2
     197          Value = 20
     198        end
     199        object CheckBoxDevelMode: TCheckBox
     200          Left = 16
     201          Height = 27
     202          Top = 136
     203          Width = 553
     204          Anchors = [akTop, akLeft, akRight]
     205          AutoSize = False
     206          Caption = 'Developer mode'
     207          TabOrder = 3
     208        end
    171209      end
    172210    end
Note: See TracChangeset for help on using the changeset viewer.