object FormGameSystem: TFormGameSystem Left = 954 Height = 482 Top = 479 Width = 651 Caption = 'Game system' ClientHeight = 482 ClientWidth = 651 DesignTimePPI = 144 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '3.4.0.0' object ButtonSave: TButton Left = 160 Height = 38 Top = 432 Width = 113 Anchors = [akLeft, akBottom] Caption = 'Save' ParentFont = False TabOrder = 0 OnClick = ButtonSaveClick end object ButtonLoad: TButton Left = 24 Height = 38 Top = 432 Width = 113 Anchors = [akLeft, akBottom] Caption = 'Load' ParentFont = False TabOrder = 1 OnClick = ButtonLoadClick end object ButtonCancel: TButton Left = 374 Height = 38 Top = 432 Width = 113 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 ParentFont = False TabOrder = 2 end object ButtonOk: TButton Left = 516 Height = 38 Top = 432 Width = 113 Anchors = [akRight, akBottom] Caption = 'OK' ModalResult = 1 ParentFont = False TabOrder = 3 end object PageControl1: TPageControl Left = 16 Height = 400 Top = 16 Width = 613 ActivePage = TabSheetGeneral Anchors = [akTop, akLeft, akRight, akBottom] ParentFont = False TabIndex = 0 TabOrder = 4 object TabSheetGeneral: TTabSheet Caption = 'General' ClientHeight = 362 ClientWidth = 605 ParentFont = False object CheckBoxEmptyCellsNeutral: TCheckBox Left = 16 Height = 29 Top = 16 Width = 330 Caption = 'Set cells without player units as neutral' ParentFont = False TabOrder = 0 end object CheckBoxUnitsSplitMerge: TCheckBox Left = 16 Height = 29 Top = 55 Width = 213 Caption = 'Units can split or merge' ParentFont = False TabOrder = 1 end object CheckBoxUnitsMoveImmediately: TCheckBox Left = 16 Height = 29 Top = 95 Width = 217 Caption = 'Units move immediately' ParentFont = False TabOrder = 2 end object Label5: TLabel Left = 16 Height = 25 Top = 136 Width = 153 Caption = 'Preferred grid type:' ParentColor = False ParentFont = False end object ComboBoxPreferredGridType: TComboBox Left = 272 Height = 33 Top = 136 Width = 304 ItemHeight = 25 Items.Strings = ( 'None' 'Hexagon vertical' 'Square' 'Triangular' 'Random' 'Isometric' 'Hexagon horizontal' ) ParentFont = False Style = csDropDownList TabOrder = 3 end end object TabSheetUnits: TTabSheet Caption = 'Units' ParentFont = False end object TabSheetNations: TTabSheet Caption = 'Nations' ParentFont = False end object TabSheetBuildings: TTabSheet Caption = 'Buildings' ParentFont = False end end object OpenDialog1: TOpenDialog Left = 440 Top = 160 end object SaveDialog1: TSaveDialog Left = 232 Top = 160 end end