object FormNew: TFormNew Left = 1176 Height = 501 Top = 331 Width = 677 Caption = 'New game' ClientHeight = 501 ClientWidth = 677 Constraints.MinHeight = 501 Constraints.MinWidth = 667 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.6.4.0' object ButtonCancel: TButton Left = 454 Height = 25 Top = 459 Width = 75 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 0 end object ButtonOk: TButton Left = 558 Height = 25 Top = 459 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 1 end object PageControl1: TPageControl Left = 4 Height = 439 Top = 4 Width = 669 ActivePage = TabSheet1 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 4 TabIndex = 0 TabOrder = 2 object TabSheet1: TTabSheet Caption = 'Players' ClientHeight = 397 ClientWidth = 663 object ListView1: TListView Left = 4 Height = 347 Top = 4 Width = 655 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 4 Columns = < item Caption = 'Name' Width = 200 end item Caption = 'Type' Width = 100 end item Caption = 'Color' Width = 100 end item Caption = 'Start units' Width = 790 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 = 224 Height = 25 Top = 359 Width = 83 Action = APlayerRemove Anchors = [akLeft, akBottom] TabOrder = 1 end object ButtonPlayerAdd: TButton Left = 16 Height = 25 Top = 359 Width = 83 Action = APlayerAdd Anchors = [akLeft, akBottom] TabOrder = 2 end object ButtonPlayerModify: TButton Left = 120 Height = 25 Top = 359 Width = 83 Action = APlayerModify Anchors = [akLeft, akBottom] Caption = 'Modify' TabOrder = 3 end end object TabSheet2: TTabSheet Caption = 'Map' ClientHeight = 397 ClientWidth = 663 object Label1: TLabel Left = 8 Height = 24 Top = 9 Width = 95 Caption = 'Map width:' ParentColor = False end object Label2: TLabel Left = 8 Height = 24 Top = 57 Width = 102 Caption = 'Map height:' ParentColor = False end object SpinEditMapSizeX: TSpinEdit Left = 128 Height = 34 Top = 4 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeXChange TabOrder = 0 Value = 2 end object SpinEditMapSizeY: TSpinEdit Left = 128 Height = 34 Top = 55 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeYChange TabOrder = 1 Value = 2 end object TrackBarSizeX: TTrackBar Left = 240 Height = 46 Top = 8 Width = 412 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 = 412 Max = 100 Min = 2 OnChange = TrackBarSizeYChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 3 end object Label5: TLabel Left = 8 Height = 24 Top = 104 Width = 83 Caption = 'Grid type:' ParentColor = False end object ComboBoxGridType: TComboBox Left = 146 Height = 38 Top = 104 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) Style = csDropDownList TabOrder = 4 end object ComboBoxMapShape: TComboBox Left = 146 Height = 38 Top = 144 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) OnChange = ComboBoxMapShapeChange Style = csDropDownList TabOrder = 5 end object Label8: TLabel Left = 8 Height = 24 Top = 144 Width = 98 Caption = 'Map shape:' ParentColor = False end object CheckBoxSymetricMap: TCheckBox Left = 472 Height = 27 Top = 110 Width = 175 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Symetric map' TabOrder = 6 end object SpinEditVoidPercent: TSpinEdit Left = 216 Height = 34 Top = 224 Width = 106 MinValue = 1 TabOrder = 7 Value = 1 end object CheckBoxVoid: TCheckBox Left = 8 Height = 28 Top = 232 Width = 187 Caption = 'Inaccessible places' OnChange = CheckBoxVoidChange TabOrder = 8 end object CheckBoxCity: TCheckBox Left = 8 Height = 28 Top = 272 Width = 71 Caption = 'Cities' OnChange = CheckBoxCityChange TabOrder = 9 end object SpinEditCityPercent: TSpinEdit Left = 216 Height = 34 Top = 272 Width = 106 MinValue = 1 TabOrder = 10 Value = 1 end object Label4: TLabel Left = 331 Height = 24 Top = 272 Width = 15 Caption = '%' ParentColor = False end object Label3: TLabel Left = 331 Height = 24 Top = 232 Width = 15 Caption = '%' ParentColor = False end object SpinEditNeutralUnits: TSpinEdit Left = 408 Height = 34 Top = 352 Width = 98 MaxValue = 99 OnChange = SpinEditMapSizeYChange TabOrder = 11 Value = 12 end object Label7: TLabel Left = 8 Height = 24 Top = 352 Width = 227 Caption = 'Max random neutral units:' ParentColor = False end object EditImageFile: TEdit Left = 144 Height = 34 Top = 184 Width = 396 Anchors = [akTop, akLeft, akRight] TabOrder = 12 end object ButtonImageBrowse: TButton Left = 548 Height = 25 Top = 192 Width = 99 Anchors = [akTop, akRight] Caption = 'Browse' OnClick = ButtonImageBrowseClick TabOrder = 13 end object Label9: TLabel Left = 8 Height = 24 Top = 184 Width = 90 Caption = 'Image file:' ParentColor = False end object CheckBoxBridges: TCheckBox Left = 8 Height = 28 Top = 310 Width = 210 Caption = 'Bridges between cells' TabOrder = 14 end end object TabSheet3: TTabSheet Caption = 'Rules' ClientHeight = 397 ClientWidth = 663 object RadioGroupGrowCells: TRadioGroup Left = 15 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 = 79 ClientWidth = 308 Items.Strings = ( 'None' 'Player cities' 'Player all' ) TabOrder = 0 end object Label6: TLabel Left = 8 Height = 25 Top = 248 Width = 111 Caption = 'Win objective:' ParentColor = False end object ComboBoxWinObjective: TComboBox Left = 232 Height = 33 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 = 50 ClientWidth = 301 Items.Strings = ( 'By one' 'By square root' ) TabOrder = 2 end object CheckBoxFogOfWar: TCheckBox Left = 336 Height = 27 Top = 24 Width = 503 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Fog of war' TabOrder = 3 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 = 424 top = 440 end object PopupMenu1: TPopupMenu left = 128 top = 440 object MenuItem1: TMenuItem Action = APlayerAdd end object MenuItem2: TMenuItem Action = APlayerModify Default = True end object MenuItem3: TMenuItem Action = APlayerRemove end end end