Changeset 388


Ignore:
Timestamp:
Jan 4, 2025, 11:08:13 PM (2 days ago)
Author:
chronos
Message:
  • Modified: Allow to resize new game, settings and game system forms to be smaller with scroll box area.
Location:
trunk/Forms
Files:
8 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
  • trunk/Forms/FormGameSystem.lrj

    r365 r388  
    66{"hash":1339,"name":"tformgamesystem.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
    77{"hash":231000124,"name":"tformgamesystem.tabsheetgeneral.caption","sourcebytes":[71,101,110,101,114,97,108],"value":"General"},
     8{"hash":94511754,"name":"tformgamesystem.label5.caption","sourcebytes":[80,114,101,102,101,114,114,101,100,32,103,114,105,100,32,116,121,112,101,58],"value":"Preferred grid type:"},
     9{"hash":113503305,"name":"tformgamesystem.checkboxunitsmoveimmediately.caption","sourcebytes":[85,110,105,116,115,32,109,111,118,101,32,105,109,109,101,100,105,97,116,101,108,121],"value":"Units move immediately"},
     10{"hash":49324869,"name":"tformgamesystem.checkboxunitssplitmerge.caption","sourcebytes":[85,110,105,116,115,32,99,97,110,32,115,112,108,105,116,32,111,114,32,109,101,114,103,101],"value":"Units can split or merge"},
    811{"hash":6092588,"name":"tformgamesystem.checkboxemptycellsneutral.caption","sourcebytes":[83,101,116,32,99,101,108,108,115,32,119,105,116,104,111,117,116,32,112,108,97,121,101,114,32,117,110,105,116,115,32,97,115,32,110,101,117,116,114,97,108],"value":"Set cells without player units as neutral"},
    9 {"hash":49324869,"name":"tformgamesystem.checkboxunitssplitmerge.caption","sourcebytes":[85,110,105,116,115,32,99,97,110,32,115,112,108,105,116,32,111,114,32,109,101,114,103,101],"value":"Units can split or merge"},
    10 {"hash":113503305,"name":"tformgamesystem.checkboxunitsmoveimmediately.caption","sourcebytes":[85,110,105,116,115,32,109,111,118,101,32,105,109,109,101,100,105,97,116,101,108,121],"value":"Units move immediately"},
    11 {"hash":94511754,"name":"tformgamesystem.label5.caption","sourcebytes":[80,114,101,102,101,114,114,101,100,32,103,114,105,100,32,116,121,112,101,58],"value":"Preferred grid type:"},
    1212{"hash":6049971,"name":"tformgamesystem.tabsheetunits.caption","sourcebytes":[85,110,105,116,115],"value":"Units"},
    1313{"hash":76219907,"name":"tformgamesystem.tabsheetnations.caption","sourcebytes":[78,97,116,105,111,110,115],"value":"Nations"},
  • trunk/Forms/FormGameSystem.pas

    r358 r388  
    2424    PageControl1: TPageControl;
    2525    SaveDialog1: TSaveDialog;
     26    ScrollBoxGeneral: TScrollBox;
    2627    TabSheetBuildings: TTabSheet;
    2728    TabSheetNations: TTabSheet;
  • trunk/Forms/FormMove.lfm

    r377 r388  
    11object FormMove: TFormMove
    22  Left = 938
    3   Height = 318
     3  Height = 323
    44  Top = 539
    55  Width = 493
    66  ActiveControl = ButtonOk
    77  Caption = 'Move'
    8   ClientHeight = 318
     8  ClientHeight = 323
    99  ClientWidth = 493
    1010  Constraints.MinHeight = 100
     
    1818    Left = 160
    1919    Height = 38
    20     Top = 272
     20    Top = 277
    2121    Width = 100
    2222    Anchors = [akRight, akBottom]
     
    3030    Left = 272
    3131    Height = 38
    32     Top = 272
     32    Top = 277
    3333    Width = 100
    3434    Anchors = [akRight, akBottom]
     
    4141    Left = 384
    4242    Height = 38
    43     Top = 272
     43    Top = 277
    4444    Width = 100
    4545    Anchors = [akRight, akBottom]
     
    5151  object ScrollBox1: TScrollBox
    5252    Left = 8
    53     Height = 250
     53    Height = 255
    5454    Top = 8
    5555    Width = 477
     
    5959    Anchors = [akTop, akLeft, akRight, akBottom]
    6060    BorderSpacing.Around = 8
    61     ClientHeight = 248
     61    ClientHeight = 253
    6262    ClientWidth = 475
    6363    TabOrder = 3
  • trunk/Forms/FormNew.lfm

    r365 r388  
    77  ClientHeight = 794
    88  ClientWidth = 1401
    9   Constraints.MinHeight = 502
    10   Constraints.MinWidth = 667
     9  Constraints.MinHeight = 300
     10  Constraints.MinWidth = 300
    1111  DesignTimePPI = 144
    1212  OnCreate = FormCreate
     
    2020    Top = 60
    2121    Width = 996
    22     ActivePage = TabSheetMap
     22    ActivePage = TabSheetPlayers
    2323    Align = alClient
    2424    BorderSpacing.Around = 4
    2525    ParentFont = False
    26     TabIndex = 2
     26    TabIndex = 1
    2727    TabOrder = 0
    2828    OnChange = PageControl1Change
     
    3232      ClientWidth = 986
    3333      ParentFont = False
    34       object Panel3: TPanel
     34      object ScrollBoxMode: TScrollBox
    3535        Left = 0
    3636        Height = 636
    3737        Top = 0
    3838        Width = 986
     39        HorzScrollBar.Page = 360
     40        VertScrollBar.Page = 225
    3941        Align = alClient
    40         BevelOuter = bvNone
    41         ClientHeight = 636
    42         ClientWidth = 986
     42        ClientHeight = 634
     43        ClientWidth = 984
    4344        ParentFont = False
    4445        TabOrder = 0
     
    112113        object ListViewServers: TListView
    113114          Left = 26
    114           Height = 383
     115          Height = 381
    115116          Top = 200
    116117          Width = 334
     
    141142          Left = 26
    142143          Height = 38
    143           Top = 591
     144          Top = 589
    144145          Width = 94
    145146          Action = AServerAdd
     
    151152          Left = 248
    152153          Height = 38
    153           Top = 591
     154          Top = 589
    154155          Width = 94
    155156          Action = AServerRemove
     
    161162          Left = 136
    162163          Height = 38
    163           Top = 591
     164          Top = 589
    164165          Width = 94
    165166          Action = AServerModify
     
    192193      OnShow = TabSheetMapShow
    193194      ParentFont = False
    194       object Panel1: TPanel
     195      object ScrollBoxMap: TScrollBox
    195196        Left = 0
    196197        Height = 636
    197198        Top = 0
    198199        Width = 986
     200        HorzScrollBar.Page = 490
     201        VertScrollBar.Page = 578
    199202        Align = alClient
    200         BevelOuter = bvNone
    201         ClientHeight = 636
    202         ClientWidth = 986
     203        ClientHeight = 632
     204        ClientWidth = 982
    203205        ParentFont = False
    204206        TabOrder = 0
     
    223225        object SpinEditMapSizeX: TSpinEdit
    224226          Left = 128
    225           Height = 43
     227          Height = 34
    226228          Top = 4
    227229          Width = 98
     
    234236        object SpinEditMapSizeY: TSpinEdit
    235237          Left = 128
    236           Height = 43
     238          Height = 34
    237239          Top = 55
    238240          Width = 98
     
    245247        object TrackBarSizeX: TTrackBar
    246248          Left = 240
    247           Height = 58
     249          Height = 30
    248250          Top = 8
    249           Width = 735
     251          Width = 28
    250252          Max = 100
    251253          Min = 2
     
    259261        object TrackBarSizeY: TTrackBar
    260262          Left = 240
    261           Height = 58
     263          Height = 30
    262264          Top = 49
    263           Width = 735
     265          Width = 28
    264266          Max = 100
    265267          Min = 2
     
    282284        object ComboBoxGridType: TComboBox
    283285          Left = 146
    284           Height = 38
     286          Height = 34
    285287          Top = 104
    286288          Width = 304
     
    301303        object ComboBoxMapShape: TComboBox
    302304          Left = 146
    303           Height = 38
     305          Height = 34
    304306          Top = 144
    305307          Width = 304
     
    328330          Height = 30
    329331          Top = 248
    330           Width = 142
     332          Width = 139
    331333          Caption = 'Symetric map'
    332334          ParentFont = False
     
    336338        object SpinEditVoidPercent: TSpinEdit
    337339          Left = 216
    338           Height = 43
     340          Height = 34
    339341          Top = 314
    340342          Width = 106
     
    349351          Height = 30
    350352          Top = 320
    351           Width = 189
     353          Width = 186
    352354          Caption = 'Inaccessible places'
    353355          ParentFont = False
     
    359361          Height = 30
    360362          Top = 366
    361           Width = 72
     363          Width = 69
    362364          Caption = 'Cities'
    363365          ParentFont = False
     
    367369        object SpinEditCityPercent: TSpinEdit
    368370          Left = 216
    369           Height = 43
     371          Height = 34
    370372          Top = 360
    371373          Width = 106
     
    396398        object SpinEditNeutralUnits: TSpinEdit
    397399          Left = 312
    398           Height = 43
     400          Height = 34
    399401          Top = 488
    400402          Width = 98
     
    416418        object EditImageFile: TEdit
    417419          Left = 146
    418           Height = 43
     420          Height = 34
    419421          Top = 184
    420           Width = 716
     422          Width = 712
    421423          Anchors = [akTop, akLeft, akRight]
    422424          ParentFont = False
     
    425427        end
    426428        object ButtonImageBrowse: TButton
    427           Left = 871
     429          Left = 867
    428430          Height = 43
    429431          Top = 184
     
    448450          Height = 30
    449451          Top = 408
    450           Width = 211
     452          Width = 208
    451453          Caption = 'Bridges between cells'
    452454          ParentFont = False
     
    456458        object SpinEditMaxPower: TSpinEdit
    457459          Left = 312
    458           Height = 43
     460          Height = 34
    459461          Top = 440
    460462          Width = 98
     
    479481          Height = 30
    480482          Top = 283
    481           Width = 117
     483          Width = 114
    482484          Caption = 'Cyclic map'
    483485          ParentFont = False
     
    487489        object Image1: TImage
    488490          Left = 419
    489           Height = 360
     491          Height = 356
    490492          Top = 272
    491           Width = 557
     493          Width = 553
    492494          Anchors = [akTop, akLeft, akRight, akBottom]
    493495          OnResize = Image1Resize
     
    519521      ClientWidth = 986
    520522      ParentFont = False
    521       object Panel4: TPanel
     523      object ScrollBoxRules: TScrollBox
    522524        Left = 0
    523525        Height = 636
    524526        Top = 0
    525527        Width = 986
     528        HorzScrollBar.Page = 544
     529        VertScrollBar.Page = 424
    526530        Align = alClient
    527         BevelOuter = bvNone
    528         ClientHeight = 636
    529         ClientWidth = 986
     531        ClientHeight = 632
     532        ClientWidth = 982
    530533        ParentFont = False
    531534        TabOrder = 0
     
    565568        object ComboBoxWinObjective: TComboBox
    566569          Left = 216
    567           Height = 38
     570          Height = 34
    568571          Top = 266
    569572          Width = 328
     
    607610          Height = 30
    608611          Top = 24
    609           Width = 115
     612          Width = 112
    610613          Caption = 'Fog of war'
    611614          ParentFont = False
     
    616619          Height = 110
    617620          Top = 314
    618           Width = 963
     621          Width = 959
    619622          ActivePage = TabSheetCaptureEntireMap
    620623          Anchors = [akTop, akLeft, akRight]
     
    631634          object TabSheetCaptureCells: TTabSheet
    632635            ClientHeight = 67
    633             ClientWidth = 953
     636            ClientWidth = 949
    634637            ParentFont = False
    635638            object Label14: TLabel
     
    656659          object TabSheetStayAliveTurns: TTabSheet
    657660            ClientHeight = 67
    658             ClientWidth = 953
     661            ClientWidth = 949
    659662            ParentFont = False
    660663            object Label13: TLabel
     
    742745    ResizeAnchor = akRight
    743746  end
    744   object Panel5: TPanel
     747  object PanelGameSystem: TPanel
    745748    Left = 0
    746749    Height = 56
  • trunk/Forms/FormNew.pas

    r377 r388  
    6161    PageControl1: TPageControl;
    6262    PageControlWinObjective: TPageControl;
    63     Panel1: TPanel;
     63    ScrollBoxMap: TScrollBox;
    6464    Panel2: TPanel;
    65     Panel3: TPanel;
    66     Panel4: TPanel;
    67     Panel5: TPanel;
     65    ScrollBoxMode: TScrollBox;
     66    ScrollBoxRules: TScrollBox;
     67    PanelGameSystem: TPanel;
    6868    PanelButtons: TPanel;
    6969    PanelChat: TPanel;
  • 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
  • trunk/Forms/FormSettings.pas

    r354 r388  
    2525    Label6: TLabel;
    2626    PageControl1: TPageControl;
    27     Panel1: TPanel;
    28     Panel2: TPanel;
     27    ScrollBoxGeneral: TScrollBox;
     28    ScrollBoxDebug: TScrollBox;
    2929    SpinEditAnimSpeed: TSpinEdit;
    3030    SpinEditX: TSpinEdit;
Note: See TracChangeset for help on using the changeset viewer.