Changeset 96 for trunk/Forms


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.
Location:
trunk/Forms
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAbout.lfm

    r74 r96  
    11object FormAbout: TFormAbout
    22  Left = 562
    3   Height = 397
     3  Height = 301
    44  Top = 277
    5   Width = 473
     5  Width = 515
    66  Caption = 'About'
    7   ClientHeight = 397
    8   ClientWidth = 473
     7  ClientHeight = 301
     8  ClientWidth = 515
     9  DesignTimePPI = 120
    910  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    12   LCLVersion = '1.6.0.4'
     13  LCLVersion = '1.8.2.0'
    1314  object LabelDescription: TLabel
    1415    Left = 20
    15     Height = 24
    16     Top = 108
    17     Width = 433
     16    Height = 1
     17    Top = 132
     18    Width = 475
    1819    Align = alTop
    1920    BorderSpacing.Around = 20
    20     Caption = 'Simple BrainFuck IDE written in Lazarus/FPC.'
    2121    ParentColor = False
    2222    WordWrap = True
    2323  end
    2424  object ButtonClose: TButton
    25     Left = 360
     25    Left = 402
    2626    Height = 25
    27     Top = 357
     27    Top = 261
    2828    Width = 93
    2929    Anchors = [akRight, akBottom]
    … …  
    3434  object LabelContent: TLabel
    3535    Left = 20
    36     Height = 24
    37     Top = 152
    38     Width = 433
     36    Height = 20
     37    Top = 153
     38    Width = 475
    3939    Align = alTop
    4040    BorderSpacing.Around = 20
    … …  
    4545    Left = 16
    4646    Height = 25
    47     Top = 357
     47    Top = 261
    4848    Width = 176
    4949    Anchors = [akLeft, akBottom]
    … …  
    5454  object Panel1: TPanel
    5555    Left = 0
    56     Height = 88
     56    Height = 112
    5757    Top = 0
    58     Width = 473
     58    Width = 515
    5959    Align = alTop
    6060    BevelOuter = bvNone
    61     ClientHeight = 88
    62     ClientWidth = 473
     61    ClientHeight = 112
     62    ClientWidth = 515
    6363    TabOrder = 2
    6464    object Image1: TImage
    … …  
    6767      Top = 16
    6868      Width = 69
    69       Picture.Data = {
    70         1754506F727461626C654E6574776F726B477261706869638907000089504E47
    71         0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000002
    72         D6504C54450000000000000E0E0E2525252A2A2A4343430000000A0A0A131313
    73         1414141919190000000101010505050808080B0B0B1212121313131515152525
    74         252727272D2D2D3838383F3F3F4444444747474848482323232424242929292B
    75         2B2B3232323838383B3B3B3C3C3C4040404343434444444C4C4C000000010000
    76         0100010101010200020201000301000300030202020303030402000502000500
    77         0506020007030006000607000708000909000A04040405050509040006060607
    78         07070808080909090A04000C05000A000B0B000C0E000F0F0010130800140800
    79         16090011001212001316001817001919001B0B0B0B0C0C0C0D0D0D0E0E0E1010
    80         101313131616161A1A1A210D00230E00230026240F00250F00260F002710002A
    81         11002C12002D12003214003315003415003515003F19003400384B00501F1F1F
    82         2121212727272828282A2A2A2B2B2B4C1F004E20004F20005121005422005522
    83         005824005924005C25002E2E2E3737373A3A3A4545454646464747474B4B4B4C
    84         4C4C4F4F4F5E00655F00666100685E26007B32007C32007E3300813500843600
    85         69007071007973007B76007E79008183008B8536008B39008C39008D39008F3A
    86         00903B00913B00933C00953D00963D00A54300A64300A74400A9450087009088
    87         00919A00A4A700B2A800B3AE00B9B84B00B94B00BB4C00BE4D00BF4E00AF00BA
    88         B700C3B800C4BC00C8BE00CBBF00CCC100CEC200CFC800D5C900D6E100F0E300
    89         F2E400F3E700F7E800F8E900F9EB00FBEC00FCED00FDEE00FE5454545B5B5B61
    90         61616B6B6B6C6C6C5656565F5F5F5555555A5A5A717171717171CC5300CF5400
    91         D15500D35600D75700E35C00E55D00E65D00E85E00E95F00EA5F00EB5F00ED60
    92         00F16200F26200F46300F56300F66400F76400F96500FA6500FB6600FC6600FD
    93         6700FE67007676767B7B7B8484848A8A8A8F8F8F9696969F9F9F9C9C9CA8A8A8
    94         B5B5B5A3A3A3A4A4A4A6A6A6C1C1C1C9C9C9CCCCCCD5D5D5BFBFBFA8559EA500
    95         0000F274524E53003F3F3F3F3F7F7F7F7F7FBFBFBFBFBFBFBFBF7F7F7F7F7F7F
    96         7F7FBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    97         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    98         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    99         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    100         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    101         FFFFFF7F7F7F7F7FBFBFFFFF7FBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    102         FFFFFFFFFFFFFF3F7F7F7F3F3F3F7F3F3F7F7F7F3F3F3F3F7F9B001E6E000003
    103         7049444154789CCDD7F75BD3401807F0D41107EE857B82AF04B1540B282E1470
    104         E146C4BD702B225551C4858A7BEFBDF7DEA3716F11170E10C538C08DE87FE0A5
    105         A1A5B9DCB5D7DF7C7F808727F97E9EF7DEBBA494E3FEE3BACBF31EB7672524CC
    106         BCE3C9F345BEBA982ECCF706410FA804410001FD8EA8E7CE1E2FDACB9251972F
    107         40191D53BC72B8AF266D2D37E744CE683D350EA0877B4EF2BA080771CB4AEA3B
    108         CC7BD2BBB756600907797747EDDBAA2C359F1DA41D3EA1845B34A014531E0957
    109         2803645A804520EFE638C606D06E9623E50B31E79150900078B2E701482D8C01
    110         582949529C93E83C74CF22006DFE1BC8C08B4731003EF3930CE8A7A98536DE66
    111         726C722A02F4C53540310BB04EBECB2F2D1D658D294F92DAABE31D163C7D6C84
    112         3572073334404D1C303C90A457EB23F3E37D36BC92A4E4C60A00593820E4010D
    113         060D1E9AFE66D8E0410D0CB17BDF49195BA29478D4D60C2973BFC9080A20F058
    114         FE1EE4017E6992A5E426A0FFAAE7D233A37CC998223D5F35C042291DE0403C11
    115         18B8F6050246984CA6A814E9E5A621764002068015B0CD000C13F7654A6FB70D
    116         6F780079AB876E464B3838A9B115E88101D11AC070FFBDF47A633F000500885C
    117         8F86F8D09007E027E19A5EBB8DA90B3B52B7517B947AE6034AF9C4B5251CA429
    118         3E34603A0E508B0CE4D8CD8009688D016ECA0C5293273889C7589E0510E2D5F9
    119         DA82D201F3D3889D441D43E758A9DF8B255DCE8F571F0217DE664A0945550BE8
    120         E67203827A07B00FB41DE221AFE5A2289ACF9F5E1280FE5E262A752EC096AF66
    121         9FAF88F356403676372102AAD749854022702CAC53DF1597CD7364E064583B54
    122         A1B6BC87FA104C1548C0D146005EBBC4C3DE0838DE487D07760AB9AA35043200
    123         73C5334D117022340495BFF5860238C0713C0518653EDFC53683ED79D7AB6BF3
    124         DC342A70A1AB06C82600941940A27836189F4169429E8B0E24025E3BC5239A21
    125         5E2501B941DA6D0C0DE9BCF8A239116C430CF696AFE22F02A5B29A6B00A5F6F8
    126         E71FA44B23E5AB7588C0073D01305F38B5B419E0C06F22C05D07C68A20E739AE
    127         1523508B0630E6351FAAD6FAC4BA84F214A0126B073728C00FD6B7DA2FDA0CC6
    128         32023F694021C6257CA4019CAEAE652705C2D71DFB72F2D5E9CFDFCF55F87047
    129         066D1BED2BB7BB837FBB5900EE8B830E66B3008E8E25F969760180EF2C404B7A
    130         5E7F9305984907045F1680A703EA7DF807F2279CD37B7E68DE0000000049454E
    131         44AE426082
    132       }
    13369    end
    13470    object LabelAppName: TLabel
    13571      Left = 104
    136       Height = 55
     72      Height = 92
    13773      Top = 16
    138       Width = 148
     74      Width = 388
    13975      Align = alCustom
     76      Anchors = [akTop, akLeft, akRight, akBottom]
     77      AutoSize = False
    14078      BorderSpacing.Around = 20
    141       Caption = 'LazFuck'
    142       Font.Height = -40
     79      Font.Height = -50
    14380      ParentColor = False
    14481      ParentFont = False
    145       WordWrap = True
    14682    end
    14783  end

  • trunk/Forms/UFormAbout.pas

    r74 r96  
    5656  if Assigned(ApplicationInfo) then begin
    5757    LabelAppName.Caption := ApplicationInfo.AppName;
     58    LabelAppName.AutoSize := True;
     59    LabelAppName.Font.Size := 30;
     60    LabelDescription.Caption := ApplicationInfo.Description;
    5861    LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
    5962      SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
    6063      SLicense + ': ' + ApplicationInfo.License;
     64    Image1.Picture.Bitmap.Assign(Application.Icon);
    6165  end;
    6266end;
    … …  
    7074procedure TFormAbout.FormCreate(Sender: TObject);
    7175begin
     76  Core.ThemeManager.UseTheme(Self);
    7277  ApplicationInfo := nil;
    7378  CoolTranslator := nil;

  • trunk/Forms/UFormLog.lfm

    r60 r96  
    77  ClientHeight = 500
    88  ClientWidth = 800
    9   LCLVersion = '1.3'
     9  DesignTimePPI = 120
     10  OnCreate = FormCreate
     11  LCLVersion = '1.8.2.0'
    1012  object Memo1: TMemo
    1113    Left = 0

  • trunk/Forms/UFormLog.pas

    r60 r96  
    1414  TFormLog = class(TForm)
    1515    Memo1: TMemo;
     16    procedure FormCreate(Sender: TObject);
    1617  private
    1718    { private declarations }
    … …  
    2728{$R *.lfm}
    2829
     30uses
     31  UCore;
     32
     33{ TFormLog }
     34
     35procedure TFormLog.FormCreate(Sender: TObject);
     36begin
     37  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     38  Core.ThemeManager.UseTheme(Self);
     39end;
     40
    2941end.
    3042

  • trunk/Forms/UFormMain.pas

    r93 r96  
    202202    DockInit;
    203203    Core.PersistentForm1.Load(Self, True);
     204    Core.ThemeManager.UseTheme(Self)
    204205  end;
    205206end;
    … …  
    435436procedure TFormMain.AViewCompilersExecute(Sender: TObject);
    436437begin
     438  if not Assigned(FormTargets) then FormTargets := TFormTargets.Create(Self);
    437439  FormTargets.Show;
    438440end;
    … …  
    445447procedure TFormMain.AViewLogExecute(Sender: TObject);
    446448begin
     449  if not Assigned(FormLog) then FormLog := TFormLog.Create(Self);
    447450  FormLog.Show;
    448451end;
    … …  
    480483        end;
    481484      end;
     485      Core.ThemeManager.UseTheme(Self);
    482486    end;
    483487  finally

  • 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

  • trunk/Forms/UFormOptions.pas

    r91 r96  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Spin, UTarget;
     9  Spin, ComCtrls, ExtCtrls, UTarget, UTheme;
    1010
    1111type
    … …  
    1717    ButtonCancel: TButton;
    1818    CheckBox1: TCheckBox;
     19    CheckBoxDPIAuto: TCheckBox;
    1920    CheckBoxOptimizeAddSub: TCheckBox;
    20     CheckBoxDPIAuto: TCheckBox;
     21    CheckBoxOptimizeCopyMultiply: TCheckBox;
    2122    CheckBoxOptimizeMerge: TCheckBox;
    2223    CheckBoxOptimizeRelativeIndexes: TCheckBox;
    23     CheckBoxOptimizeCopyMultiply: TCheckBox;
    2424    ComboBoxLanguage: TComboBox;
    2525    ComboBoxOptimization: TComboBox;
     26    ComboBoxTheme: TComboBox;
    2627    Label1: TLabel;
    2728    Label2: TLabel;
    … …  
    2930    Label4: TLabel;
    3031    LabelDPI: TLabel;
     32    LabelTheme: TLabel;
    3133    LabelX: TLabel;
     34    PageControl1: TPageControl;
     35    Panel1: TPanel;
     36    Panel2: TPanel;
     37    SpinEditCellSize: TSpinEdit;
    3238    SpinEditDPIX: TSpinEdit;
    3339    SpinEditDPIY: TSpinEdit;
    34     SpinEditCellSize: TSpinEdit;
    3540    SpinEditMemorySize: TSpinEdit;
    36     procedure ButtonOkClick(Sender: TObject);
     41    TabSheetGeneral: TTabSheet;
     42    TabSheetBuild: TTabSheet;
    3743    procedure CheckBoxDPIAutoChange(Sender: TObject);
    3844    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    … …  
    6268begin
    6369  Core.PersistentForm1.Load(Self);
    64 
    65   Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    66   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
    67   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
    68   CheckBox1.Checked := Core.OpenProjectOnStart;
    6970end;
    7071
    … …  
    8788procedure TFormOptions.Load;
    8889begin
     90  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
     91  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
     92  ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager.Theme);
     93  if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;
     94  CheckBox1.Checked := Core.OpenProjectOnStart;
    8995  CheckBoxOptimizeAddSub.Checked := Core.Optimizations.AddSub;
    9096  CheckBoxOptimizeMerge.Checked := Core.Optimizations.Merge;
    … …  
    102108procedure TFormOptions.Save;
    103109begin
     110  if ComboBoxLanguage.ItemIndex <> -1 then
     111    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
     112  if ComboBoxTheme.ItemIndex <> -1 then
     113    Core.ThemeManager.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
     114  Core.OpenProjectOnStart := CheckBox1.Checked;
    104115  Core.ScaleDPI1.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
    105116  Core.ScaleDPI1.AutoDetect := CheckBoxDPIAuto.Checked;
    … …  
    111122  Core.Optimizations.RelativeIndexes := CheckBoxOptimizeRelativeIndexes.Checked;
    112123  Core.Optimizations.CopyMultiply := CheckBoxOptimizeCopyMultiply.Checked;
    113 end;
    114 
    115 procedure TFormOptions.ButtonOkClick(Sender: TObject);
    116 begin
    117   if ComboBoxLanguage.ItemIndex <> -1 then
    118     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
    119   Core.OpenProjectOnStart := CheckBox1.Checked;
    120124end;
    121125
    … …  
    134138begin
    135139  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     140  Core.ThemeManager.UseTheme(Self);
     141  Core.ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items);
     142  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    136143end;
    137144

  • trunk/Forms/UFormTargetOptions.pas

    r92 r96  
    6969begin
    7070  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     71  Core.ThemeManager.UseTheme(Self);
    7172end;
    7273

  • trunk/Forms/UFormTargets.lfm

    r92 r96  
    88  ClientWidth = 574
    99  DesignTimePPI = 120
     10  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  LCLVersion = '1.8.2.0'

  • trunk/Forms/UFormTargets.pas

    r92 r96  
    1414  TFormTargets = class(TForm)
    1515    ListView1: TListView;
     16    procedure FormCreate(Sender: TObject);
    1617    procedure FormShow(Sender: TObject);
    1718    procedure ListView1Data(Sender: TObject; Item: TListItem);
    … …  
    3940begin
    4041  ReloadList;
     42end;
     43
     44procedure TFormTargets.FormCreate(Sender: TObject);
     45begin
     46  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     47  Core.ThemeManager.UseTheme(Self);
    4148end;
    4249
Note: See TracChangeset for help on using the changeset viewer.