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/FormSettings.lfm

    r386 r388  
    11object FormSettings: TFormSettings
    22  Left = 545
    3   Height = 353
     3  Height = 426
    44  Top = 203
    5   Width = 689
     5  Width = 614
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    8   ClientHeight = 353
    9   ClientWidth = 689
     8  ClientHeight = 426
     9  ClientWidth = 614
    1010  Constraints.MinHeight = 200
    1111  Constraints.MinWidth = 300
    … …  
    1616  LCLVersion = '3.6.0.0'
    1717  object ButtonOk: TButton
    18     Left = 440
     18    Left = 365
    1919    Height = 38
    20     Top = 308
     20    Top = 381
    2121    Width = 114
    2222    Anchors = [akRight, akBottom]
    … …  
    2727  end
    2828  object ButtonCancel: TButton
    29     Left = 567
     29    Left = 492
    3030    Height = 38
    31     Top = 308
     31    Top = 381
    3232    Width = 114
    3333    Anchors = [akRight, akBottom]
    … …  
    3939  object PageControl1: TPageControl
    4040    Left = 8
    41     Height = 292
     41    Height = 365
    4242    Top = 8
    43     Width = 673
     43    Width = 598
    4444    ActivePage = TabSheetGeneral
    4545    Align = alTop
    … …  
    5151    object TabSheetGeneral: TTabSheet
    5252      Caption = 'General'
    53       ClientHeight = 252
    54       ClientWidth = 663
     53      ClientHeight = 325
     54      ClientWidth = 588
    5555      ParentFont = False
    56       object Panel1: TPanel
     56      object ScrollBoxGeneral: TScrollBox
    5757        Left = 0
    58         Height = 252
     58        Height = 325
    5959        Top = 0
    60         Width = 663
     60        Width = 588
     61        HorzScrollBar.Page = 383
     62        VertScrollBar.Page = 163
    6163        Align = alClient
    62         BevelOuter = bvNone
    63         ClientHeight = 252
    64         ClientWidth = 663
     64        ClientHeight = 323
     65        ClientWidth = 586
    6566        ParentFont = False
    6667        TabOrder = 0
    … …  
    133134    object TabSheetDebug: TTabSheet
    134135      Caption = 'Debug'
    135       ClientHeight = 252
    136       ClientWidth = 663
     136      ClientHeight = 325
     137      ClientWidth = 588
    137138      ParentFont = False
    138       object Panel2: TPanel
     139      object ScrollBoxDebug: TScrollBox
    139140        Left = 0
    140         Height = 252
     141        Height = 325
    141142        Top = 0
    142         Width = 663
     143        Width = 588
     144        HorzScrollBar.Page = 322
     145        VertScrollBar.Page = 162
    143146        Align = alClient
    144         BevelOuter = bvNone
    145         ClientHeight = 252
    146         ClientWidth = 663
     147        ClientHeight = 321
     148        ClientWidth = 584
    147149        ParentFont = False
    148150        TabOrder = 0
    … …  
    151153          Height = 24
    152154          Top = 32
    153           Width = 631
     155          Width = 552
    154156          Anchors = [akTop, akLeft, akRight]
    155157          AutoSize = False
    … …  
    170172        object SpinEditX: TSpinEdit
    171173          Left = 104
    172           Height = 43
     174          Height = 34
    173175          Top = 64
    174176          Width = 96
    … …  
    190192        object SpinEditY: TSpinEdit
    191193          Left = 232
    192           Height = 43
     194          Height = 34
    193195          Top = 64
    194196          Width = 90
    … …  
    203205          Height = 26
    204206          Top = 136
    205           Width = 635
     207          Width = 556
    206208          Anchors = [akTop, akLeft, akRight]
    207209          AutoSize = False
Note: See TracChangeset for help on using the changeset viewer.