Ignore:
Timestamp:
Aug 2, 2018, 10:41:11 AM (6 years ago)
Author:
chronos
Message:
  • Added: Theming support.
  • Modified: Items in Options dialog divided to two pages.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormOptions.lfm

    r91 r96  
    11object FormOptions: TFormOptions
    2   Left = 510
    3   Height = 418
    4   Top = 324
    5   Width = 511
     2  Left = 401
     3  Height = 356
     4  Top = 236
     5  Width = 607
    66  Caption = 'Options'
    7   ClientHeight = 418
    8   ClientWidth = 511
     7  ClientHeight = 356
     8  ClientWidth = 607
    99  DesignTimePPI = 120
    1010  OnClose = FormClose
    … …  
    1313  LCLVersion = '1.8.2.0'
    1414  object ButtonOk: TButton
    15     Left = 422
     15    Left = 526
    1616    Height = 25
    17     Top = 386
     17    Top = 324
    1818    Width = 75
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'Ok'
    2121    ModalResult = 1
    22     OnClick = ButtonOkClick
    2322    TabOrder = 0
    2423  end
    2524  object ButtonCancel: TButton
    26     Left = 334
     25    Left = 430
    2726    Height = 25
    28     Top = 386
     27    Top = 324
    2928    Width = 75
    3029    Anchors = [akRight, akBottom]
    … …  
    3332    TabOrder = 1
    3433  end
    35   object SpinEditCellSize: TSpinEdit
    36     Left = 165
    37     Height = 28
    38     Top = 40
    39     Width = 130
    40     MaxValue = 2000000000
     34  object PageControl1: TPageControl
     35    Left = 8
     36    Height = 310
     37    Top = 8
     38    Width = 593
     39    ActivePage = TabSheetBuild
     40    Anchors = [akTop, akLeft, akRight, akBottom]
     41    TabIndex = 1
    4142    TabOrder = 2
    42   end
    43   object SpinEditMemorySize: TSpinEdit
    44     Left = 165
    45     Height = 28
    46     Top = 6
    47     Width = 130
    48     MaxValue = 2000000000
    49     TabOrder = 3
    50   end
    51   object Label1: TLabel
    52     Left = 8
    53     Height = 20
    54     Top = 8
    55     Width = 87
    56     Caption = 'Memory size:'
    57     ParentColor = False
    58   end
    59   object Label2: TLabel
    60     Left = 8
    61     Height = 20
    62     Top = 40
    63     Width = 57
    64     Caption = 'Cell size:'
    65     ParentColor = False
    66   end
    67   object Label3: TLabel
    68     Left = 8
    69     Height = 20
    70     Top = 95
    71     Width = 127
    72     Caption = 'Interface language:'
    73     ParentColor = False
    74   end
    75   object CheckBox1: TCheckBox
    76     Left = 8
    77     Height = 27
    78     Top = 128
    79     Width = 499
    80     Anchors = [akTop, akLeft, akRight]
    81     AutoSize = False
    82     Caption = 'Reopend last opened project'
    83     TabOrder = 4
    84   end
    85   object SpinEditDPIX: TSpinEdit
    86     Left = 104
    87     Height = 28
    88     Top = 193
    89     Width = 80
    90     MaxValue = 1000
    91     MinValue = 1
    92     TabOrder = 5
    93     Value = 1
    94   end
    95   object LabelDPI: TLabel
    96     Left = 24
    97     Height = 20
    98     Top = 201
    99     Width = 26
    100     Caption = 'DPI:'
    101     ParentColor = False
    102   end
    103   object SpinEditDPIY: TSpinEdit
    104     Left = 208
    105     Height = 28
    106     Top = 193
    107     Width = 80
    108     MaxValue = 1000
    109     MinValue = 1
    110     TabOrder = 6
    111     Value = 1
    112   end
    113   object LabelX: TLabel
    114     Left = 192
    115     Height = 20
    116     Top = 201
    117     Width = 7
    118     Caption = 'x'
    119     ParentColor = False
    120   end
    121   object CheckBoxDPIAuto: TCheckBox
    122     Left = 8
    123     Height = 27
    124     Top = 168
    125     Width = 491
    126     Anchors = [akTop, akLeft, akRight]
    127     AutoSize = False
    128     Caption = 'Automatic DPI'
    129     OnChange = CheckBoxDPIAutoChange
    130     TabOrder = 7
    131   end
    132   object Label4: TLabel
    133     Left = 16
    134     Height = 20
    135     Top = 248
    136     Width = 159
    137     Caption = 'Compiler optimizations:'
    138     ParentColor = False
    139   end
    140   object ComboBoxLanguage: TComboBox
    141     Left = 248
    142     Height = 28
    143     Top = 83
    144     Width = 188
    145     ItemHeight = 20
    146     Style = csDropDownList
    147     TabOrder = 8
    148   end
    149   object CheckBoxOptimizeAddSub: TCheckBox
    150     Left = 39
    151     Height = 24
    152     Top = 280
    153     Width = 189
    154     Caption = 'Addition and subtraction'
    155     TabOrder = 9
    156   end
    157   object CheckBoxOptimizeMerge: TCheckBox
    158     Left = 39
    159     Height = 24
    160     Top = 304
    161     Width = 181
    162     Caption = 'Merge same operations'
    163     TabOrder = 10
    164   end
    165   object CheckBoxOptimizeRelativeIndexes: TCheckBox
    166     Left = 39
    167     Height = 24
    168     Top = 328
    169     Width = 131
    170     Caption = 'Relative indexes'
    171     TabOrder = 11
    172   end
    173   object CheckBoxOptimizeCopyMultiply: TCheckBox
    174     Left = 39
    175     Height = 24
    176     Top = 352
    177     Width = 116
    178     Caption = 'Copy multiply'
    179     TabOrder = 12
    180   end
    181   object ComboBoxOptimization: TComboBox
    182     Left = 256
    183     Height = 28
    184     Top = 248
    185     Width = 188
    186     ItemHeight = 20
    187     Items.Strings = (
    188       'None'
    189       'Normal'
    190     )
    191     OnSelect = CheckBoxDPIAutoChange
    192     Style = csDropDownList
    193     TabOrder = 13
     43    object TabSheetGeneral: TTabSheet
     44      Caption = 'General'
     45      ClientHeight = 277
     46      ClientWidth = 585
     47      object Panel1: TPanel
     48        Left = 0
     49        Height = 277
     50        Top = 0
     51        Width = 585
     52        Align = alClient
     53        BevelOuter = bvNone
     54        ClientHeight = 277
     55        ClientWidth = 585
     56        TabOrder = 0
     57        object Label3: TLabel
     58          Left = 8
     59          Height = 20
     60          Top = 48
     61          Width = 127
     62          Caption = 'Interface language:'
     63          ParentColor = False
     64        end
     65        object ComboBoxLanguage: TComboBox
     66          Left = 256
     67          Height = 28
     68          Top = 48
     69          Width = 188
     70          ItemHeight = 20
     71          Style = csDropDownList
     72          TabOrder = 0
     73        end
     74        object CheckBox1: TCheckBox
     75          Left = 8
     76          Height = 27
     77          Top = 85
     78          Width = 1051
     79          Anchors = [akTop, akLeft, akRight]
     80          AutoSize = False
     81          Caption = 'Reopend last opened project'
     82          TabOrder = 1
     83        end
     84        object CheckBoxDPIAuto: TCheckBox
     85          Left = 8
     86          Height = 27
     87          Top = 125
     88          Width = 1043
     89          Anchors = [akTop, akLeft, akRight]
     90          AutoSize = False
     91          Caption = 'Automatic DPI'
     92          OnChange = CheckBoxDPIAutoChange
     93          TabOrder = 2
     94        end
     95        object LabelDPI: TLabel
     96          Left = 30
     97          Height = 20
     98          Top = 160
     99          Width = 26
     100          Caption = 'DPI:'
     101          ParentColor = False
     102        end
     103        object SpinEditDPIX: TSpinEdit
     104          Left = 112
     105          Height = 28
     106          Top = 158
     107          Width = 80
     108          MaxValue = 1000
     109          MinValue = 1
     110          TabOrder = 3
     111          Value = 1
     112        end
     113        object SpinEditDPIY: TSpinEdit
     114          Left = 216
     115          Height = 28
     116          Top = 160
     117          Width = 80
     118          MaxValue = 1000
     119          MinValue = 1
     120          TabOrder = 4
     121          Value = 1
     122        end
     123        object LabelX: TLabel
     124          Left = 200
     125          Height = 20
     126          Top = 160
     127          Width = 7
     128          Caption = 'x'
     129          ParentColor = False
     130        end
     131        object LabelTheme: TLabel
     132          Left = 8
     133          Height = 20
     134          Top = 16
     135          Width = 48
     136          Caption = 'Theme:'
     137          ParentColor = False
     138        end
     139        object ComboBoxTheme: TComboBox
     140          Left = 256
     141          Height = 28
     142          Top = 8
     143          Width = 188
     144          ItemHeight = 20
     145          Style = csDropDownList
     146          TabOrder = 5
     147        end
     148      end
     149    end
     150    object TabSheetBuild: TTabSheet
     151      Caption = 'Build'
     152      ClientHeight = 277
     153      ClientWidth = 585
     154      object Panel2: TPanel
     155        Left = 0
     156        Height = 277
     157        Top = 0
     158        Width = 585
     159        Align = alClient
     160        BevelOuter = bvNone
     161        ClientHeight = 277
     162        ClientWidth = 585
     163        TabOrder = 0
     164        object Label4: TLabel
     165          Left = 8
     166          Height = 20
     167          Top = 104
     168          Width = 159
     169          Caption = 'Compiler optimizations:'
     170          ParentColor = False
     171        end
     172        object ComboBoxOptimization: TComboBox
     173          Left = 248
     174          Height = 28
     175          Top = 104
     176          Width = 188
     177          ItemHeight = 20
     178          Items.Strings = (
     179            'None'
     180            'Normal'
     181          )
     182          OnSelect = CheckBoxDPIAutoChange
     183          Style = csDropDownList
     184          TabOrder = 0
     185        end
     186        object CheckBoxOptimizeAddSub: TCheckBox
     187          Left = 31
     188          Height = 24
     189          Top = 136
     190          Width = 189
     191          Caption = 'Addition and subtraction'
     192          TabOrder = 1
     193        end
     194        object CheckBoxOptimizeMerge: TCheckBox
     195          Left = 31
     196          Height = 24
     197          Top = 160
     198          Width = 181
     199          Caption = 'Merge same operations'
     200          TabOrder = 2
     201        end
     202        object CheckBoxOptimizeCopyMultiply: TCheckBox
     203          Left = 31
     204          Height = 24
     205          Top = 208
     206          Width = 116
     207          Caption = 'Copy multiply'
     208          TabOrder = 3
     209        end
     210        object CheckBoxOptimizeRelativeIndexes: TCheckBox
     211          Left = 31
     212          Height = 24
     213          Top = 184
     214          Width = 131
     215          Caption = 'Relative indexes'
     216          TabOrder = 4
     217        end
     218        object Label2: TLabel
     219          Left = 8
     220          Height = 20
     221          Top = 40
     222          Width = 57
     223          Caption = 'Cell size:'
     224          ParentColor = False
     225        end
     226        object Label1: TLabel
     227          Left = 8
     228          Height = 20
     229          Top = 8
     230          Width = 87
     231          Caption = 'Memory size:'
     232          ParentColor = False
     233        end
     234        object SpinEditMemorySize: TSpinEdit
     235          Left = 165
     236          Height = 28
     237          Top = 6
     238          Width = 130
     239          MaxValue = 2000000000
     240          TabOrder = 5
     241        end
     242        object SpinEditCellSize: TSpinEdit
     243          Left = 165
     244          Height = 28
     245          Top = 40
     246          Width = 130
     247          MaxValue = 2000000000
     248          TabOrder = 6
     249        end
     250      end
     251    end
    194252  end
    195253end
Note: See TracChangeset for help on using the changeset viewer.