Ignore:
Timestamp:
Dec 26, 2014, 3:04:52 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Enabled DPI settings for DEBUG build mode.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r98 r99  
    11object FormSettings: TFormSettings
    2   Left = 917
     2  Left = 404
    33  Height = 563
    4   Top = 190
    5   Width = 784
     4  Top = 338
     5  Width = 700
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    88  ClientHeight = 563
    9   ClientWidth = 784
     9  ClientWidth = 700
     10  OnCreate = FormCreate
     11  OnShow = FormShow
    1012  Position = poMainFormCenter
    1113  LCLVersion = '1.3'
    1214  object ButtonOk: TButton
    13     Left = 674
     15    Left = 590
    1416    Height = 25
    15     Top = 511
     17    Top = 520
    1618    Width = 75
     19    Anchors = [akRight, akBottom]
    1720    Caption = 'Ok'
    1821    ModalResult = 1
    … …  
    2023  end
    2124  object ButtonCancel: TButton
    22     Left = 552
     25    Left = 468
    2326    Height = 25
    24     Top = 511
     27    Top = 520
    2528    Width = 75
     29    Anchors = [akRight, akBottom]
    2630    Caption = 'Cancel'
    2731    ModalResult = 2
    2832    TabOrder = 1
    2933  end
    30   object Label1: TLabel
    31     Left = 20
    32     Height = 22
    33     Top = 26
    34     Width = 85
    35     Caption = 'Language:'
    36     ParentColor = False
    37   end
    38   object ComboBoxLanguage: TComboBox
    39     Left = 178
    40     Height = 34
    41     Top = 24
    42     Width = 196
    43     ItemHeight = 0
    44     Style = csDropDownList
     34  object PageControl1: TPageControl
     35    Left = 4
     36    Height = 500
     37    Top = 4
     38    Width = 692
     39    ActivePage = TabSheetDebug
     40    Align = alTop
     41    Anchors = [akTop, akLeft, akRight, akBottom]
     42    BorderSpacing.Around = 4
     43    TabIndex = 1
    4544    TabOrder = 2
    46   end
    47   object CheckBoxDevelMode: TCheckBox
    48     Left = 16
    49     Height = 27
    50     Top = 80
    51     Width = 752
    52     Anchors = [akTop, akLeft, akRight]
    53     AutoSize = False
    54     Caption = 'Developer mode'
    55     TabOrder = 3
    56   end
    57   object SpinEditAnimSpeed: TSpinEdit
    58     Left = 224
    59     Height = 32
    60     Top = 120
    61     Width = 122
    62     TabOrder = 4
    63   end
    64   object Label2: TLabel
    65     Left = 19
    66     Height = 22
    67     Top = 126
    68     Width = 145
    69     Caption = 'Animation speed:'
    70     ParentColor = False
    71   end
    72   object Label3: TLabel
    73     Left = 360
    74     Height = 22
    75     Top = 130
    76     Width = 15
    77     Caption = '%'
    78     ParentColor = False
    79   end
    80   object CheckBox1: TCheckBox
    81     Left = 16
    82     Height = 27
    83     Top = 160
    84     Width = 752
    85     Anchors = [akTop, akLeft, akRight]
    86     AutoSize = False
    87     Caption = 'Autosave game on each turn'
    88     TabOrder = 5
     45    object TabSheetGeneral: TTabSheet
     46      Caption = 'General'
     47      ClientHeight = 460
     48      ClientWidth = 686
     49      object Label2: TLabel
     50        Left = 27
     51        Height = 22
     52        Top = 78
     53        Width = 145
     54        Caption = 'Animation speed:'
     55        ParentColor = False
     56      end
     57      object SpinEditAnimSpeed: TSpinEdit
     58        Left = 232
     59        Height = 32
     60        Top = 72
     61        Width = 122
     62        TabOrder = 0
     63      end
     64      object Label3: TLabel
     65        Left = 368
     66        Height = 22
     67        Top = 82
     68        Width = 15
     69        Caption = '%'
     70        ParentColor = False
     71      end
     72      object CheckBox1: TCheckBox
     73        Left = 8
     74        Height = 27
     75        Top = 112
     76        Width = 732
     77        Anchors = [akTop, akLeft, akRight]
     78        AutoSize = False
     79        Caption = 'Autosave game on each turn'
     80        TabOrder = 1
     81      end
     82      object Label1: TLabel
     83        Left = 20
     84        Height = 22
     85        Top = 26
     86        Width = 85
     87        Caption = 'Language:'
     88        ParentColor = False
     89      end
     90      object ComboBoxLanguage: TComboBox
     91        Left = 178
     92        Height = 34
     93        Top = 24
     94        Width = 196
     95        ItemHeight = 0
     96        Style = csDropDownList
     97        TabOrder = 2
     98      end
     99    end
     100    object TabSheetDebug: TTabSheet
     101      Caption = 'Debug'
     102      ClientHeight = 460
     103      ClientWidth = 686
     104      object CheckBoxDevelMode: TCheckBox
     105        Left = 16
     106        Height = 27
     107        Top = 136
     108        Width = 660
     109        Anchors = [akTop, akLeft, akRight]
     110        AutoSize = False
     111        Caption = 'Developer mode'
     112        TabOrder = 0
     113      end
     114      object Label4: TLabel
     115        Left = 14
     116        Height = 22
     117        Top = 67
     118        Width = 33
     119        Caption = 'DPI:'
     120        ParentColor = False
     121      end
     122      object SpinEditX: TSpinEdit
     123        Left = 104
     124        Height = 32
     125        Top = 64
     126        Width = 96
     127        MaxValue = 500
     128        MinValue = 20
     129        TabOrder = 1
     130        Value = 50
     131      end
     132      object SpinEditY: TSpinEdit
     133        Left = 232
     134        Height = 32
     135        Top = 64
     136        Width = 90
     137        MaxValue = 500
     138        MinValue = 20
     139        TabOrder = 2
     140        Value = 20
     141      end
     142      object Label5: TLabel
     143        Left = 208
     144        Height = 22
     145        Top = 67
     146        Width = 9
     147        Caption = 'x'
     148        ParentColor = False
     149      end
     150      object CheckBox2: TCheckBox
     151        Left = 16
     152        Height = 24
     153        Top = 32
     154        Width = 656
     155        Anchors = [akTop, akLeft, akRight]
     156        AutoSize = False
     157        Caption = 'Automatic DPI'
     158        OnChange = CheckBox2Change
     159        TabOrder = 3
     160      end
     161    end
    89162  end
    90163end
Note: See TracChangeset for help on using the changeset viewer.