Ignore:
Timestamp:
Jan 4, 2025, 11:08:13 PM (3 days ago)
Author:
chronos
Message:
  • Modified: Allow to resize new game, settings and game system forms to be smaller with scroll box area.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormGameSystem.lfm

    r365 r388  
    6060    Top = 16
    6161    Width = 612
    62     ActivePage = TabSheetGeneral
     62    ActivePage = TabSheetBuildings
    6363    Anchors = [akTop, akLeft, akRight, akBottom]
    6464    ParentFont = False
    65     TabIndex = 0
     65    TabIndex = 3
    6666    TabOrder = 4
    6767    object TabSheetGeneral: TTabSheet
    … …  
    7070      ClientWidth = 602
    7171      ParentFont = False
    72       object CheckBoxEmptyCellsNeutral: TCheckBox
    73         Left = 16
    74         Height = 30
    75         Top = 16
    76         Width = 357
    77         Caption = 'Set cells without player units as neutral'
    78         ParentFont = False
     72      object ScrollBoxGeneral: TScrollBox
     73        Left = 0
     74        Height = 360
     75        Top = 0
     76        Width = 602
     77        HorzScrollBar.Page = 576
     78        VertScrollBar.Page = 174
     79        Align = alClient
     80        ClientHeight = 358
     81        ClientWidth = 600
    7982        TabOrder = 0
    80       end
    81       object CheckBoxUnitsSplitMerge: TCheckBox
    82         Left = 16
    83         Height = 30
    84         Top = 55
    85         Width = 229
    86         Caption = 'Units can split or merge'
    87         ParentFont = False
    88         TabOrder = 1
    89       end
    90       object CheckBoxUnitsMoveImmediately: TCheckBox
    91         Left = 16
    92         Height = 30
    93         Top = 95
    94         Width = 232
    95         Caption = 'Units move immediately'
    96         ParentFont = False
    97         TabOrder = 2
    98       end
    99       object Label5: TLabel
    100         Left = 16
    101         Height = 26
    102         Top = 136
    103         Width = 164
    104         Caption = 'Preferred grid type:'
    105         ParentColor = False
    106         ParentFont = False
    107       end
    108       object ComboBoxPreferredGridType: TComboBox
    109         Left = 272
    110         Height = 38
    111         Top = 136
    112         Width = 304
    113         ItemHeight = 0
    114         Items.Strings = (
    115           'None'
    116           'Hexagon vertical'
    117           'Square'
    118           'Triangular'
    119           'Random'
    120           'Isometric'
    121           'Hexagon horizontal'
    122         )
    123         ParentFont = False
    124         Style = csDropDownList
    125         TabOrder = 3
     83        object Label5: TLabel
     84          Left = 16
     85          Height = 26
     86          Top = 136
     87          Width = 164
     88          Caption = 'Preferred grid type:'
     89          ParentColor = False
     90          ParentFont = False
     91        end
     92        object ComboBoxPreferredGridType: TComboBox
     93          Left = 272
     94          Height = 38
     95          Top = 136
     96          Width = 304
     97          ItemHeight = 0
     98          Items.Strings = (
     99            'None'
     100            'Hexagon vertical'
     101            'Square'
     102            'Triangular'
     103            'Random'
     104            'Isometric'
     105            'Hexagon horizontal'
     106          )
     107          ParentFont = False
     108          Style = csDropDownList
     109          TabOrder = 0
     110        end
     111        object CheckBoxUnitsMoveImmediately: TCheckBox
     112          Left = 16
     113          Height = 30
     114          Top = 95
     115          Width = 232
     116          Caption = 'Units move immediately'
     117          ParentFont = False
     118          TabOrder = 1
     119        end
     120        object CheckBoxUnitsSplitMerge: TCheckBox
     121          Left = 16
     122          Height = 30
     123          Top = 55
     124          Width = 229
     125          Caption = 'Units can split or merge'
     126          ParentFont = False
     127          TabOrder = 2
     128        end
     129        object CheckBoxEmptyCellsNeutral: TCheckBox
     130          Left = 16
     131          Height = 30
     132          Top = 16
     133          Width = 357
     134          Caption = 'Set cells without player units as neutral'
     135          ParentFont = False
     136          TabOrder = 3
     137        end
    126138      end
    127139    end
Note: See TracChangeset for help on using the changeset viewer.