object FormNew: TFormNew Left = 987 Height = 528 Top = 500 Width = 745 Caption = 'New game' ClientHeight = 528 ClientWidth = 745 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.3' object Splitter1: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 0 Width = 745 Align = alTop ResizeAnchor = akTop end object ButtonCancel: TButton Left = 522 Height = 25 Top = 486 Width = 75 Anchors = [akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object ButtonOk: TButton Left = 626 Height = 25 Top = 486 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 2 end object PageControl1: TPageControl Left = 0 Height = 465 Top = 5 Width = 745 ActivePage = TabSheet1 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 3 object TabSheet1: TTabSheet Caption = 'Players' ClientHeight = 422 ClientWidth = 739 object ListView1: TListView Left = 8 Height = 368 Top = 8 Width = 713 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 = 296 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnCustomDrawSubItem = ListView1CustomDrawSubItem OnData = ListView1Data OnDblClick = ListView1DblClick OnKeyPress = ListView1KeyPress OnKeyUp = ListView1KeyUp OnSelectItem = ListView1SelectItem end object ButtonPlayerRemove: TButton Left = 240 Height = 25 Top = 384 Width = 83 Action = APlayerRemove Anchors = [akRight, akBottom] TabOrder = 1 end object ButtonPlayerAdd: TButton Left = 32 Height = 25 Top = 384 Width = 83 Action = APlayerAdd Anchors = [akRight, akBottom] TabOrder = 2 end object ButtonPlayerModify: TButton Left = 136 Height = 25 Top = 384 Width = 83 Action = APlayerModify Anchors = [akRight, akBottom] Caption = 'Modify' TabOrder = 3 end end object TabSheet2: TTabSheet Caption = 'Map' ClientHeight = 422 ClientWidth = 739 object Label1: TLabel Left = 8 Height = 25 Top = 9 Width = 104 Caption = 'Map width:' ParentColor = False end object Label2: TLabel Left = 8 Height = 25 Top = 57 Width = 110 Caption = 'Map height:' ParentColor = False end object SpinEditMapSizeX: TSpinEdit Left = 128 Height = 35 Top = 4 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeXChange TabOrder = 0 Value = 2 end object SpinEditMapSizeY: TSpinEdit Left = 128 Height = 35 Top = 55 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeYChange TabOrder = 1 Value = 2 end object TrackBarSizeX: TTrackBar Left = 240 Height = 46 Top = 8 Width = 488 Max = 100 Min = 2 OnChange = TrackBarSizeXChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 2 end object TrackBarSizeY: TTrackBar Left = 240 Height = 46 Top = 49 Width = 488 Max = 100 Min = 2 OnChange = TrackBarSizeYChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 3 end object Label5: TLabel Left = 8 Height = 25 Top = 104 Width = 90 Caption = 'Grid type:' ParentColor = False end object ComboBoxGridType: TComboBox Left = 146 Height = 33 Top = 104 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) Style = csDropDownList TabOrder = 4 end object ComboBoxMapShape: TComboBox Left = 146 Height = 33 Top = 144 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) OnChange = ComboBoxMapShapeChange Style = csDropDownList TabOrder = 5 end object Label8: TLabel Left = 8 Height = 25 Top = 144 Width = 107 Caption = 'Map shape:' ParentColor = False end object CheckBoxSymetricMap: TCheckBox Left = 472 Height = 27 Top = 110 Width = 151 Caption = 'Symetric map' TabOrder = 6 end object SpinEditVoidPercent: TSpinEdit Left = 216 Height = 35 Top = 224 Width = 106 MinValue = 1 TabOrder = 7 Value = 1 end object CheckBoxVoid: TCheckBox Left = 8 Height = 27 Top = 232 Width = 198 Caption = 'Inaccessible places' OnChange = CheckBoxVoidChange TabOrder = 8 end object CheckBoxCity: TCheckBox Left = 8 Height = 27 Top = 272 Width = 73 Caption = 'Cities' OnChange = CheckBoxCityChange TabOrder = 9 end object SpinEditCityPercent: TSpinEdit Left = 216 Height = 35 Top = 272 Width = 106 MinValue = 1 TabOrder = 10 Value = 1 end object Label4: TLabel Left = 331 Height = 25 Top = 272 Width = 17 Caption = '%' ParentColor = False end object Label3: TLabel Left = 331 Height = 25 Top = 232 Width = 17 Caption = '%' ParentColor = False end object SpinEditNeutralUnits: TSpinEdit Left = 408 Height = 35 Top = 352 Width = 98 MaxValue = 99 OnChange = SpinEditMapSizeYChange TabOrder = 11 Value = 12 end object Label7: TLabel Left = 8 Height = 25 Top = 352 Width = 245 Caption = 'Max random neutral units:' ParentColor = False end object EditImageFile: TEdit Left = 144 Height = 35 Top = 184 Width = 472 Anchors = [akTop, akLeft, akRight] TabOrder = 12 end object ButtonImageBrowse: TButton Left = 624 Height = 25 Top = 192 Width = 99 Anchors = [akTop, akRight] Caption = 'Browse' OnClick = ButtonImageBrowseClick TabOrder = 13 end object Label9: TLabel Left = 8 Height = 25 Top = 184 Width = 98 Caption = 'Image file:' ParentColor = False end end object TabSheet3: TTabSheet Caption = 'Rules' ClientHeight = 422 ClientWidth = 739 object RadioGroupGrowCells: TRadioGroup Left = 8 Height = 105 Top = 104 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 = 0 end object Label6: TLabel Left = 8 Height = 25 Top = 248 Width = 129 Caption = 'Win objective:' ParentColor = False end object ComboBoxWinObjective: TComboBox Left = 232 Height = 37 Top = 240 Width = 328 ItemHeight = 0 Items.Strings = ( 'Defeat all oponents' 'Defeat all oponents cities' 'Capture position' 'Stay alive for number of turns' ) Style = csDropDownList TabOrder = 1 end object RadioGroupGrowAmount: TRadioGroup Left = 15 Height = 76 Top = 16 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 = 2 end end end object ActionList1: TActionList Images = Core.ImageListSmall left = 256 top = 440 object APlayerModify: TAction Caption = 'Modify player' OnExecute = APlayerModifyExecute end object APlayerAdd: TAction Caption = 'Add' OnExecute = APlayerAddExecute end object APlayerRemove: TAction Caption = 'Remove' OnExecute = APlayerRemoveExecute end end object OpenPictureDialog1: TOpenPictureDialog left = 616 top = 280 end object PopupMenu1: TPopupMenu left = 128 top = 143 object MenuItem1: TMenuItem Action = APlayerAdd end object MenuItem2: TMenuItem Action = APlayerModify Default = True end object MenuItem3: TMenuItem Action = APlayerRemove end end end