object FormGameSystem: TFormGameSystem Left = 954 Height = 402 Top = 479 Width = 542 Caption = 'Game system' ClientHeight = 402 ClientWidth = 542 DesignTimePPI = 120 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '3.6.0.0' object ButtonSave: TButton Left = 133 Height = 32 Top = 360 Width = 94 Anchors = [akLeft, akBottom] Caption = 'Save' ParentFont = False TabOrder = 0 OnClick = ButtonSaveClick end object ButtonLoad: TButton Left = 20 Height = 32 Top = 360 Width = 94 Anchors = [akLeft, akBottom] Caption = 'Load' ParentFont = False TabOrder = 1 OnClick = ButtonLoadClick end object ButtonCancel: TButton Left = 311 Height = 32 Top = 360 Width = 94 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 ParentFont = False TabOrder = 2 end object ButtonOk: TButton Left = 430 Height = 32 Top = 360 Width = 94 Anchors = [akRight, akBottom] Caption = 'OK' ModalResult = 1 ParentFont = False TabOrder = 3 end object PageControl1: TPageControl Left = 13 Height = 334 Top = 13 Width = 511 ActivePage = TabSheetGeneral Anchors = [akTop, akLeft, akRight, akBottom] ParentFont = False TabIndex = 0 TabOrder = 4 object TabSheetGeneral: TTabSheet Caption = 'General' ClientHeight = 301 ClientWidth = 503 ParentFont = False object CheckBoxEmptyCellsNeutral: TCheckBox Left = 13 Height = 24 Top = 13 Width = 277 Caption = 'Set cells without player units as neutral' ParentFont = False TabOrder = 0 end object CheckBoxUnitsSplitMerge: TCheckBox Left = 13 Height = 24 Top = 46 Width = 178 Caption = 'Units can split or merge' ParentFont = False TabOrder = 1 end object CheckBoxUnitsMoveImmediately: TCheckBox Left = 13 Height = 24 Top = 79 Width = 182 Caption = 'Units move immediately' ParentFont = False TabOrder = 2 end object Label5: TLabel Left = 13 Height = 20 Top = 113 Width = 128 Caption = 'Preferred grid type:' ParentColor = False ParentFont = False end object ComboBoxPreferredGridType: TComboBox Left = 227 Height = 28 Top = 113 Width = 253 ItemHeight = 20 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 = 367 Top = 133 end object SaveDialog1: TSaveDialog Left = 193 Top = 133 end end