object FormNew: TFormNew Left = 706 Height = 614 Top = 455 Width = 716 Caption = 'New game' ClientHeight = 614 ClientWidth = 716 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.3' object Panel1: TPanel Left = 0 Height = 170 Top = 0 Width = 716 Align = alTop BevelOuter = bvNone ClientHeight = 170 ClientWidth = 716 TabOrder = 0 object ListView1: TListView Left = 16 Height = 150 Top = 8 Width = 594 Anchors = [akTop, akLeft, 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 Height = 25 Top = 8 Width = 83 Action = APlayerAdd Anchors = [akTop, akLeft, akRight] Caption = 'Add' TabOrder = 1 end object ButtonPlayerRemove: TButton Left = 616 Height = 25 Top = 40 Width = 83 Action = APlayerRemove Anchors = [akTop, akRight] Caption = 'Remove' TabOrder = 2 end object ButtonPlayerModify: TButton Left = 616 Height = 25 Top = 72 Width = 83 Action = APlayerModify Anchors = [akTop, akRight] Caption = 'Modify' TabOrder = 3 end end object Splitter1: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 170 Width = 716 Align = alTop ResizeAnchor = akTop end object Panel2: TPanel Left = 0 Height = 439 Top = 175 Width = 716 Align = alClient BevelOuter = bvNone ClientHeight = 439 ClientWidth = 716 TabOrder = 2 object ButtonOk: TButton Left = 624 Height = 25 Top = 392 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 0 end object ButtonCancel: TButton Left = 535 Height = 25 Top = 392 Width = 75 Anchors = [akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object CheckBoxVoid: TCheckBox Left = 8 Height = 27 Top = 101 Width = 198 Caption = 'Inaccessible places' OnChange = CheckBoxVoidChange TabOrder = 2 end object Label1: TLabel Left = 8 Height = 25 Top = 9 Width = 104 Caption = 'Map width:' ParentColor = False end object SpinEditMapSizeX: TSpinEdit Left = 128 Height = 35 Top = 4 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeXChange TabOrder = 3 Value = 2 end object SpinEditMapSizeY: TSpinEdit Left = 128 Height = 35 Top = 55 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeYChange TabOrder = 4 Value = 2 end object SpinEditVoidPercent: TSpinEdit Left = 216 Height = 35 Top = 97 Width = 106 MinValue = 1 TabOrder = 5 Value = 1 end object Label3: TLabel Left = 331 Height = 25 Top = 102 Width = 17 Caption = '%' ParentColor = False end object TrackBarSizeX: TTrackBar Left = 240 Height = 46 Top = 1 Width = 451 Max = 100 Min = 2 OnChange = TrackBarSizeXChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 6 end object TrackBarSizeY: TTrackBar Left = 240 Height = 46 Top = 49 Width = 451 Max = 100 Min = 2 OnChange = TrackBarSizeYChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 7 end object Label2: TLabel Left = 8 Height = 25 Top = 57 Width = 110 Caption = 'Map height:' ParentColor = False end object CheckBoxCity: TCheckBox Left = 8 Height = 27 Top = 141 Width = 73 Caption = 'Cities' OnChange = CheckBoxCityChange TabOrder = 8 end object SpinEditCityPercent: TSpinEdit Left = 216 Height = 35 Top = 137 Width = 106 MinValue = 1 TabOrder = 9 Value = 1 end object Label4: TLabel Left = 331 Height = 25 Top = 142 Width = 17 Caption = '%' ParentColor = False end object RadioGroupGrowAmount: TRadioGroup Left = 376 Height = 76 Top = 97 Width = 305 AutoFill = True Caption = 'Per turn grow amount' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 49 ClientWidth = 301 Items.Strings = ( 'By one' 'By square root' ) TabOrder = 10 end object RadioGroupGrowCells: TRadioGroup Left = 8 Height = 105 Top = 184 Width = 312 AutoFill = True Caption = 'Growing cells' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 78 ClientWidth = 308 Items.Strings = ( 'None' 'Player cities' 'Player all' ) TabOrder = 11 end object ComboBoxGridType: TComboBox Left = 473 Height = 33 Top = 201 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) Style = csDropDownList TabOrder = 12 end object Label5: TLabel Left = 336 Height = 25 Top = 201 Width = 90 Caption = 'Grid type:' ParentColor = False end object Label6: TLabel Left = 8 Height = 25 Top = 313 Width = 129 Caption = 'Win objective:' ParentColor = False end object ComboBoxWinObjective: TComboBox Left = 232 Height = 33 Top = 305 Width = 328 ItemHeight = 0 Items.Strings = ( 'Defeat all oponents' 'Defeat all oponents cities' 'Capture position' 'Stay alive for number of turns' ) Style = csDropDownList TabOrder = 13 end object Label7: TLabel Left = 8 Height = 25 Top = 348 Width = 245 Caption = 'Max random neutral units:' ParentColor = False end object SpinEditNeutralUnits: TSpinEdit Left = 384 Height = 35 Top = 344 Width = 98 MaxValue = 99 OnChange = SpinEditMapSizeYChange TabOrder = 14 Value = 12 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