Ignore:
Timestamp:
Jul 20, 2018, 9:41:37 AM (6 years ago)
Author:
chronos
Message:
  • Added: Allow to enable individual code optimization from settings dialog.
  • Added: Actions to format or shrink target BF code.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms

    • Property svn:ignore set to
      *.lrj

  • trunk/Forms/UFormOptions.lfm

    r70 r91  
    1 object OptionsForm: TOptionsForm
    2   Left = 665
    3   Height = 339
    4   Top = 370
    5   Width = 468
     1object FormOptions: TFormOptions
     2  Left = 510
     3  Height = 418
     4  Top = 324
     5  Width = 511
    66  Caption = 'Options'
    7   ClientHeight = 339
    8   ClientWidth = 468
     7  ClientHeight = 418
     8  ClientWidth = 511
     9  DesignTimePPI = 120
     10  OnClose = FormClose
     11  OnCreate = FormCreate
    912  OnShow = FormShow
    10   LCLVersion = '1.5'
     13  LCLVersion = '1.8.2.0'
    1114  object ButtonOk: TButton
    12     Left = 389
     15    Left = 422
    1316    Height = 25
    14     Top = 307
     17    Top = 386
    1518    Width = 75
    1619    Anchors = [akRight, akBottom]
    … …  
    2124  end
    2225  object ButtonCancel: TButton
    23     Left = 304
     26    Left = 334
    2427    Height = 25
    25     Top = 307
     28    Top = 386
    2629    Width = 75
    2730    Anchors = [akRight, akBottom]
    … …  
    3235  object SpinEditCellSize: TSpinEdit
    3336    Left = 165
    34     Height = 35
     37    Height = 28
    3538    Top = 40
    3639    Width = 130
    … …  
    4043  object SpinEditMemorySize: TSpinEdit
    4144    Left = 165
    42     Height = 35
     45    Height = 28
    4346    Top = 6
    4447    Width = 130
    … …  
    4851  object Label1: TLabel
    4952    Left = 8
    50     Height = 25
     53    Height = 20
    5154    Top = 8
    52     Width = 123
     55    Width = 87
    5356    Caption = 'Memory size:'
    5457    ParentColor = False
    … …  
    5659  object Label2: TLabel
    5760    Left = 8
    58     Height = 25
     61    Height = 20
    5962    Top = 40
    60     Width = 79
     63    Width = 57
    6164    Caption = 'Cell size:'
    6265    ParentColor = False
    … …  
    6467  object Label3: TLabel
    6568    Left = 8
    66     Height = 25
     69    Height = 20
    6770    Top = 95
    68     Width = 179
     71    Width = 127
    6972    Caption = 'Interface language:'
    7073    ParentColor = False
    … …  
    7477    Height = 27
    7578    Top = 128
    76     Width = 456
     79    Width = 499
    7780    Anchors = [akTop, akLeft, akRight]
    7881    AutoSize = False
    … …  
    8285  object SpinEditDPIX: TSpinEdit
    8386    Left = 104
    84     Height = 35
     87    Height = 28
    8588    Top = 193
    8689    Width = 80
    … …  
    9295  object LabelDPI: TLabel
    9396    Left = 24
    94     Height = 25
     97    Height = 20
    9598    Top = 201
    96     Width = 39
     99    Width = 26
    97100    Caption = 'DPI:'
    98101    ParentColor = False
    … …  
    100103  object SpinEditDPIY: TSpinEdit
    101104    Left = 208
    102     Height = 35
     105    Height = 28
    103106    Top = 193
    104107    Width = 80
    … …  
    110113  object LabelX: TLabel
    111114    Left = 192
    112     Height = 25
     115    Height = 20
    113116    Top = 201
    114     Width = 10
     117    Width = 7
    115118    Caption = 'x'
    116119    ParentColor = False
    … …  
    120123    Height = 27
    121124    Top = 168
    122     Width = 448
     125    Width = 491
    123126    Anchors = [akTop, akLeft, akRight]
    124127    AutoSize = False
    … …  
    129132  object Label4: TLabel
    130133    Left = 16
    131     Height = 25
     134    Height = 20
    132135    Top = 248
    133     Width = 221
     136    Width = 159
    134137    Caption = 'Compiler optimizations:'
    135138    ParentColor = False
    … …  
    137140  object ComboBoxLanguage: TComboBox
    138141    Left = 248
    139     Height = 37
     142    Height = 28
    140143    Top = 83
    141144    Width = 188
    142     ItemHeight = 0
     145    ItemHeight = 20
    143146    Style = csDropDownList
    144147    TabOrder = 8
    145148  end
    146   object ComboBoxOptimizatipn: TComboBox
     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
    147182    Left = 256
    148     Height = 37
    149     Top = 240
     183    Height = 28
     184    Top = 248
    150185    Width = 188
    151     ItemHeight = 0
     186    ItemHeight = 20
    152187    Items.Strings = (
    153188      'None'
    154189      'Normal'
    155190    )
     191    OnSelect = CheckBoxDPIAutoChange
    156192    Style = csDropDownList
    157     TabOrder = 9
     193    TabOrder = 13
    158194  end
    159195end
Note: See TracChangeset for help on using the changeset viewer.