Ignore:
Timestamp:
Feb 3, 2019, 11:55:30 PM (6 years ago)
Author:
chronos
Message:
  • Fixed: Load/save game syste name correctly from/to file.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormGameSystem.lfm

    r275 r276  
    88  ClientWidth = 781
    99  DesignTimePPI = 144
     10  OnClose = FormClose
     11  OnCreate = FormCreate
     12  OnShow = FormShow
    1013  LCLVersion = '1.8.4.0'
    1114  object ButtonSave: TButton
    … …  
    1417    Top = 528
    1518    Width = 113
    16     Anchors = [akTop, akLeft, akBottom]
     19    Anchors = [akLeft, akBottom]
    1720    Caption = 'Save'
    1821    OnClick = ButtonSaveClick
    … …  
    3033  end
    3134  object ButtonCancel: TButton
    32     Left = 472
     35    Left = 504
    3336    Height = 38
    3437    Top = 528
    3538    Width = 113
    36     Anchors = [akLeft]
     39    Anchors = [akRight]
    3740    Caption = 'Cancel'
    3841    ModalResult = 2
    … …  
    4043  end
    4144  object ButtonOk: TButton
    42     Left = 616
     45    Left = 647
    4346    Height = 38
    44     Top = 529
     47    Top = 528
    4548    Width = 113
    46     Anchors = [akLeft, akBottom]
     49    Anchors = [akRight, akBottom]
    4750    Caption = 'OK'
    4851    ModalResult = 1
    4952    TabOrder = 3
     53  end
     54  object PageControl1: TPageControl
     55    Left = 16
     56    Height = 496
     57    Top = 16
     58    Width = 744
     59    ActivePage = TabSheetGeneral
     60    Anchors = [akTop, akLeft, akRight, akBottom]
     61    TabIndex = 0
     62    TabOrder = 4
     63    object TabSheetGeneral: TTabSheet
     64      Caption = 'General'
     65      ClientHeight = 456
     66      ClientWidth = 734
     67      object CheckBoxEmptyCellsNeutral: TCheckBox
     68        Left = 16
     69        Height = 30
     70        Top = 16
     71        Width = 362
     72        Caption = 'Set cells without player units as neutral'
     73        TabOrder = 0
     74      end
     75      object CheckBoxUnitsSplitMerge: TCheckBox
     76        Left = 16
     77        Height = 30
     78        Top = 55
     79        Width = 231
     80        Caption = 'Units can split or merge'
     81        TabOrder = 1
     82      end
     83      object CheckBoxUnitsMoveImmediately: TCheckBox
     84        Left = 16
     85        Height = 30
     86        Top = 95
     87        Width = 234
     88        Caption = 'Units move immediately'
     89        TabOrder = 2
     90      end
     91    end
     92    object TabSheetUnits: TTabSheet
     93      Caption = 'Units'
     94    end
    5095  end
    5196  object OpenDialog1: TOpenDialog
Note: See TracChangeset for help on using the changeset viewer.