object FormGameSystem: TFormGameSystem Left = 954 Height = 482 Top = 479 Width = 650 Caption = 'Game system' ClientHeight = 482 ClientWidth = 650 DesignTimePPI = 144 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '3.6.0.0' object ButtonSave: TButton Left = 144 Height = 38 Top = 432 Width = 113 Anchors = [akLeft, akBottom] Caption = 'Save' ParentFont = False TabOrder = 0 OnClick = ButtonSaveClick end object ButtonLoad: TButton Left = 16 Height = 38 Top = 432 Width = 113 Anchors = [akLeft, akBottom] Caption = 'Load' ParentFont = False TabOrder = 1 OnClick = ButtonLoadClick end object ButtonCancel: TButton Left = 515 Height = 38 Top = 432 Width = 113 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 ParentFont = False TabOrder = 2 end object ButtonOk: TButton Left = 384 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 = 612 ActivePage = TabSheetGeneral Anchors = [akTop, akLeft, akRight, akBottom] ParentFont = False TabIndex = 0 TabOrder = 4 object TabSheetGeneral: TTabSheet Caption = 'General' ClientHeight = 360 ClientWidth = 602 ParentFont = False object ScrollBoxGeneral: TScrollBox Left = 0 Height = 360 Top = 0 Width = 602 HorzScrollBar.Page = 576 VertScrollBar.Page = 174 Align = alClient ClientHeight = 358 ClientWidth = 600 TabOrder = 0 object Label5: TLabel Left = 16 Height = 26 Top = 136 Width = 164 Caption = 'Preferred grid type:' ParentColor = False ParentFont = False end object ComboBoxPreferredGridType: TComboBox Left = 272 Height = 38 Top = 136 Width = 304 ItemHeight = 0 Items.Strings = ( 'None' 'Hexagon vertical' 'Square' 'Triangular' 'Random' 'Isometric' 'Hexagon horizontal' ) ParentFont = False Style = csDropDownList TabOrder = 0 end object CheckBoxUnitsMoveImmediately: TCheckBox Left = 16 Height = 30 Top = 95 Width = 232 Caption = 'Units move immediately' ParentFont = False TabOrder = 1 end object CheckBoxUnitsSplitMerge: TCheckBox Left = 16 Height = 30 Top = 55 Width = 229 Caption = 'Units can split or merge' ParentFont = False TabOrder = 2 end object CheckBoxEmptyCellsNeutral: TCheckBox Left = 16 Height = 30 Top = 16 Width = 357 Caption = 'Set cells without player units as neutral' ParentFont = False TabOrder = 3 end 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