Ignore:
Timestamp:
Jan 2, 2025, 2:29:10 PM (5 days ago)
Author:
chronos
Message:
  • Modified: OK button moved to be on the left side of buttons.
  • Modified: Allow to run test from test form.
  • Fixed: Free tests during test list form close.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormGameSystem.lfm

    r344 r365  
    11object FormGameSystem: TFormGameSystem
    22  Left = 954
    3   Height = 402
     3  Height = 482
    44  Top = 479
    5   Width = 542
     5  Width = 650
    66  Caption = 'Game system'
    7   ClientHeight = 402
    8   ClientWidth = 542
    9   DesignTimePPI = 120
     7  ClientHeight = 482
     8  ClientWidth = 650
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    1212  LCLVersion = '3.6.0.0'
    1313  object ButtonSave: TButton
    14     Left = 133
    15     Height = 32
    16     Top = 360
    17     Width = 94
     14    Left = 144
     15    Height = 38
     16    Top = 432
     17    Width = 113
    1818    Anchors = [akLeft, akBottom]
    1919    Caption = 'Save'
    … …  
    2323  end
    2424  object ButtonLoad: TButton
    25     Left = 20
    26     Height = 32
    27     Top = 360
    28     Width = 94
     25    Left = 16
     26    Height = 38
     27    Top = 432
     28    Width = 113
    2929    Anchors = [akLeft, akBottom]
    3030    Caption = 'Load'
    … …  
    3434  end
    3535  object ButtonCancel: TButton
    36     Left = 311
    37     Height = 32
    38     Top = 360
    39     Width = 94
     36    Left = 515
     37    Height = 38
     38    Top = 432
     39    Width = 113
    4040    Anchors = [akRight, akBottom]
    4141    Caption = 'Cancel'
    … …  
    4545  end
    4646  object ButtonOk: TButton
    47     Left = 430
    48     Height = 32
    49     Top = 360
    50     Width = 94
     47    Left = 384
     48    Height = 38
     49    Top = 432
     50    Width = 113
    5151    Anchors = [akRight, akBottom]
    5252    Caption = 'OK'
    … …  
    5656  end
    5757  object PageControl1: TPageControl
    58     Left = 13
    59     Height = 334
    60     Top = 13
    61     Width = 511
     58    Left = 16
     59    Height = 400
     60    Top = 16
     61    Width = 612
    6262    ActivePage = TabSheetGeneral
    6363    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    6767    object TabSheetGeneral: TTabSheet
    6868      Caption = 'General'
    69       ClientHeight = 301
    70       ClientWidth = 503
     69      ClientHeight = 360
     70      ClientWidth = 602
    7171      ParentFont = False
    7272      object CheckBoxEmptyCellsNeutral: TCheckBox
    73         Left = 13
    74         Height = 24
    75         Top = 13
    76         Width = 277
     73        Left = 16
     74        Height = 30
     75        Top = 16
     76        Width = 357
    7777        Caption = 'Set cells without player units as neutral'
    7878        ParentFont = False
    … …  
    8080      end
    8181      object CheckBoxUnitsSplitMerge: TCheckBox
    82         Left = 13
    83         Height = 24
    84         Top = 46
    85         Width = 178
     82        Left = 16
     83        Height = 30
     84        Top = 55
     85        Width = 229
    8686        Caption = 'Units can split or merge'
    8787        ParentFont = False
    … …  
    8989      end
    9090      object CheckBoxUnitsMoveImmediately: TCheckBox
    91         Left = 13
    92         Height = 24
    93         Top = 79
    94         Width = 182
     91        Left = 16
     92        Height = 30
     93        Top = 95
     94        Width = 232
    9595        Caption = 'Units move immediately'
    9696        ParentFont = False
    … …  
    9898      end
    9999      object Label5: TLabel
    100         Left = 13
    101         Height = 20
    102         Top = 113
    103         Width = 128
     100        Left = 16
     101        Height = 26
     102        Top = 136
     103        Width = 164
    104104        Caption = 'Preferred grid type:'
    105105        ParentColor = False
    … …  
    107107      end
    108108      object ComboBoxPreferredGridType: TComboBox
    109         Left = 227
    110         Height = 28
    111         Top = 113
    112         Width = 253
    113         ItemHeight = 20
     109        Left = 272
     110        Height = 38
     111        Top = 136
     112        Width = 304
     113        ItemHeight = 0
    114114        Items.Strings = (
    115115          'None'
    … …  
    140140  end
    141141  object OpenDialog1: TOpenDialog
    142     Left = 367
    143     Top = 133
     142    Left = 440
     143    Top = 160
    144144  end
    145145  object SaveDialog1: TSaveDialog
    146     Left = 193
    147     Top = 133
     146    Left = 232
     147    Top = 160
    148148  end
    149149end
Note: See TracChangeset for help on using the changeset viewer.