Ignore:
Timestamp:
Dec 23, 2024, 8:16:05 AM (10 hours ago)
Author:
chronos
Message:
  • Modified: Improved implementation of TItemList class to be generic class to avoid explicit typecasting.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormGameSystem.lfm

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