object FormNew: TFormNew Left = 706 Top = 455 Caption = 'New game' ClientHeight = 560 ClientWidth = 700 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 170 Width = 700 Height = 5 Cursor = crVSplit Align = alTop ExplicitWidth = 716 end object Panel1: TPanel Left = 0 Top = 0 Width = 700 Height = 170 Align = alTop BevelOuter = bvNone TabOrder = 0 DesignSize = ( 700 170) object ListView1: TListView Left = 16 Top = 8 Width = 594 Height = 150 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'Name' Width = 200 end item Caption = 'Type' Width = 100 end item Caption = 'Color' Width = 100 end item Caption = 'Start units' Width = 177 end> OwnerData = True ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnDblClick = ListView1DblClick OnKeyPress = ListView1KeyPress OnKeyUp = ListView1KeyUp OnSelectItem = ListView1SelectItem end object ButtonPlayerAdd: TButton Left = 616 Top = 8 Width = 83 Height = 25 Action = APlayerAdd Anchors = [akLeft, akTop, akRight] Caption = 'Add' TabOrder = 1 end object ButtonPlayerRemove: TButton Left = 616 Top = 40 Width = 83 Height = 25 Action = APlayerRemove Anchors = [akTop, akRight] Caption = 'Remove' TabOrder = 2 end object ButtonPlayerModify: TButton Left = 616 Top = 72 Width = 83 Height = 25 Action = APlayerModify Anchors = [akTop, akRight] Caption = 'Modify' TabOrder = 3 end end object Panel2: TPanel Left = 0 Top = 175 Width = 700 Height = 385 Align = alClient BevelOuter = bvNone TabOrder = 1 ExplicitHeight = 291 DesignSize = ( 700 385) object Label1: TLabel Left = 8 Top = 9 Width = 53 Height = 13 Caption = 'Map width:' Color = clBtnFace ParentColor = False end object Label3: TLabel Left = 331 Top = 102 Width = 11 Height = 13 Caption = '%' Color = clBtnFace ParentColor = False end object Label2: TLabel Left = 8 Top = 57 Width = 57 Height = 13 Caption = 'Map height:' Color = clBtnFace ParentColor = False end object Label4: TLabel Left = 331 Top = 142 Width = 11 Height = 13 Caption = '%' Color = clBtnFace ParentColor = False end object Label5: TLabel Left = 216 Top = 201 Width = 48 Height = 13 Caption = 'Grid type:' Color = clBtnFace ParentColor = False end object ButtonOk: TButton Left = 616 Top = 353 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 0 ExplicitTop = 259 end object ButtonCancel: TButton Left = 526 Top = 353 Width = 75 Height = 25 Anchors = [akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 ExplicitTop = 259 end object CheckBoxVoid: TCheckBox Left = 8 Top = 101 Width = 175 Height = 24 Caption = 'Inaccessible places' TabOrder = 2 OnClick = CheckBoxVoidChange end object SpinEditMapSizeX: TSpinEdit Left = 136 Top = 1 Width = 98 Height = 22 MaxValue = 100 MinValue = 2 TabOrder = 3 Value = 0 OnChange = SpinEditMapSizeXChange end object SpinEditMapSizeY: TSpinEdit Left = 128 Top = 55 Width = 98 Height = 22 MaxValue = 100 MinValue = 2 TabOrder = 4 Value = 0 OnChange = SpinEditMapSizeYChange end object SpinEditVoidPercent: TSpinEdit Left = 216 Top = 97 Width = 106 Height = 22 MaxValue = 0 MinValue = 1 TabOrder = 5 Value = 0 end object TrackBarSizeX: TTrackBar Left = 240 Top = 1 Width = 451 Height = 43 Anchors = [akLeft, akTop, akRight] Max = 100 Min = 2 Position = 2 TabOrder = 6 TickStyle = tsNone OnChange = TrackBarSizeXChange end object TrackBarSizeY: TTrackBar Left = 240 Top = 49 Width = 451 Height = 43 Anchors = [akLeft, akTop, akRight] Max = 100 Min = 2 Position = 2 TabOrder = 7 TickStyle = tsNone OnChange = TrackBarSizeYChange end object CheckBoxCity: TCheckBox Left = 8 Top = 141 Width = 68 Height = 24 Caption = 'Cities' TabOrder = 8 OnClick = CheckBoxCityChange end object SpinEditCityPercent: TSpinEdit Left = 216 Top = 137 Width = 106 Height = 22 MaxValue = 0 MinValue = 1 TabOrder = 9 Value = 0 end object RadioGroupGrowAmount: TRadioGroup Left = 360 Top = 97 Width = 241 Height = 76 Caption = 'Per turn grow amount' Items.Strings = ( 'By one' 'By square root') TabOrder = 10 end object RadioGroupGrowCells: TRadioGroup Left = 8 Top = 185 Width = 185 Height = 105 Caption = 'Growing cells' Items.Strings = ( 'None' 'Player cities' 'Player all') TabOrder = 11 end object ComboBoxGridType: TComboBox Left = 312 Top = 201 Width = 208 Height = 21 Style = csDropDownList TabOrder = 12 Items.Strings = ( 'Hexagonal' 'Square') end end object ActionList1: TActionList Images = Core.ImageListSmall Left = 224 Top = 64 object APlayerModify: TAction Caption = 'Modify player' OnExecute = APlayerModifyExecute end object APlayerAdd: TAction Caption = 'Add player' OnExecute = APlayerAddExecute end object APlayerRemove: TAction Caption = 'Remove player' OnExecute = APlayerRemoveExecute end end end