object FormNew: TFormNew Left = 365 Height = 748 Top = 167 Width = 1154 Caption = 'New game' ClientHeight = 748 ClientWidth = 1154 Constraints.MinHeight = 501 Constraints.MinWidth = 667 DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow Position = poMainFormCenter LCLVersion = '1.8.2.0' object PageControl1: TPageControl Left = 4 Height = 695 Top = 4 Width = 749 ActivePage = TabSheetRules Align = alClient BorderSpacing.Around = 4 TabIndex = 3 TabOrder = 0 object TabSheetMode: TTabSheet Caption = 'Mode' ClientHeight = 651 ClientWidth = 743 object Panel3: TPanel Left = 0 Height = 651 Top = 0 Width = 743 Align = alClient BevelOuter = bvNone ClientHeight = 651 ClientWidth = 743 TabOrder = 0 object RadioButtonModeLocal: TRadioButton Left = 10 Height = 30 Top = 14 Width = 68 Caption = 'Local' Checked = True OnChange = RadioButtonModeLocalChange TabOrder = 0 TabStop = True end object RadioButtonModeNetworkServer: TRadioButton Left = 10 Height = 30 Top = 48 Width = 154 Caption = 'Network server' OnChange = RadioButtonModeLocalChange TabOrder = 1 end object RadioButtonModeNetworkClient: TRadioButton Left = 10 Height = 30 Top = 152 Width = 149 Caption = 'Network client' OnChange = RadioButtonModeLocalChange TabOrder = 2 end object EditServerAddress: TEdit Left = 24 Height = 36 Top = 112 Width = 220 TabOrder = 3 end object SpinEditServerPort: TSpinEdit Left = 256 Height = 36 Top = 112 Width = 79 MaxValue = 65535 TabOrder = 4 end object Label11: TLabel Left = 256 Height = 26 Top = 88 Width = 41 Caption = 'Port:' ParentColor = False end object Label12: TLabel Left = 24 Height = 26 Top = 88 Width = 74 Caption = 'Address:' ParentColor = False end object ListViewServers: TListView Left = 26 Height = 419 Top = 181 Width = 334 Anchors = [akTop, akLeft, akBottom] Columns = < item Caption = 'Name' Width = 100 end item Caption = 'Address' Width = 214 end> MultiSelect = True OwnerData = True PopupMenu = PopupMenuServers ReadOnly = True RowSelect = True TabOrder = 5 ViewStyle = vsReport OnData = ListViewServersData OnDblClick = AServerModifyExecute OnKeyPress = ListViewServersKeyPress OnSelectItem = ListViewServersSelectItem end object Button1: TButton Left = 27 Height = 31 Top = 612 Width = 94 Action = AServerAdd Anchors = [akLeft, akBottom] TabOrder = 6 end object Button2: TButton Left = 240 Height = 31 Top = 612 Width = 94 Action = AServerRemove Anchors = [akLeft, akBottom] TabOrder = 7 end object Button3: TButton Left = 136 Height = 30 Top = 612 Width = 94 Action = AServerModify Anchors = [akLeft, akBottom] TabOrder = 8 end end end object TabSheetPlayers: TTabSheet Caption = 'Players' ClientHeight = 651 ClientWidth = 743 object Panel2: TPanel Left = 0 Height = 651 Top = 0 Width = 743 Align = alClient BevelOuter = bvNone ClientHeight = 651 ClientWidth = 743 TabOrder = 0 object ListViewPlayers: TListView Left = 4 Height = 601 Top = 4 Width = 735 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> MultiSelect = True OwnerData = True PopupMenu = PopupMenuPlayers ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem OnData = ListViewPlayersData OnDblClick = ListViewPlayersDblClick OnKeyPress = ListViewPlayersKeyPress OnKeyUp = ListViewPlayersKeyUp OnSelectItem = ListViewPlayersSelectItem end object ButtonPlayerAdd: TButton Left = 16 Height = 25 Top = 613 Width = 83 Action = APlayerAdd Anchors = [akLeft, akBottom] TabOrder = 1 end object ButtonPlayerModify: TButton Left = 120 Height = 25 Top = 613 Width = 83 Action = APlayerModify Anchors = [akLeft, akBottom] TabOrder = 2 end object ButtonPlayerRemove: TButton Left = 224 Height = 25 Top = 613 Width = 83 Action = APlayerRemove Anchors = [akLeft, akBottom] TabOrder = 3 end end end object TabSheetMap: TTabSheet Caption = 'Map' ClientHeight = 651 ClientWidth = 743 object Panel1: TPanel Left = 0 Height = 651 Top = 0 Width = 743 Align = alClient BevelOuter = bvNone ClientHeight = 651 ClientWidth = 743 TabOrder = 0 object Label1: TLabel Left = 8 Height = 26 Top = 9 Width = 95 Caption = 'Map width:' ParentColor = False end object Label2: TLabel Left = 8 Height = 26 Top = 57 Width = 102 Caption = 'Map height:' ParentColor = False end object SpinEditMapSizeX: TSpinEdit Left = 128 Height = 36 Top = 4 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeXChange TabOrder = 0 Value = 2 end object SpinEditMapSizeY: TSpinEdit Left = 128 Height = 36 Top = 55 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeYChange TabOrder = 1 Value = 2 end object TrackBarSizeX: TTrackBar Left = 240 Height = 47 Top = 8 Width = 492 Max = 100 Min = 2 OnChange = TrackBarSizeXChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 2 end object TrackBarSizeY: TTrackBar Left = 240 Height = 47 Top = 49 Width = 492 Max = 100 Min = 2 OnChange = TrackBarSizeYChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] TabOrder = 3 end object Label5: TLabel Left = 8 Height = 26 Top = 104 Width = 83 Caption = 'Grid type:' ParentColor = False end object ComboBoxGridType: TComboBox Left = 146 Height = 36 Top = 104 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) Style = csDropDownList TabOrder = 4 end object ComboBoxMapShape: TComboBox Left = 146 Height = 36 Top = 144 Width = 208 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) OnChange = ComboBoxMapShapeChange Style = csDropDownList TabOrder = 5 end object Label8: TLabel Left = 8 Height = 26 Top = 144 Width = 98 Caption = 'Map shape:' ParentColor = False end object CheckBoxSymetricMap: TCheckBox Left = 472 Height = 27 Top = 110 Width = 255 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Symetric map' TabOrder = 6 end object SpinEditVoidPercent: TSpinEdit Left = 216 Height = 36 Top = 224 Width = 106 MinValue = 1 TabOrder = 7 Value = 1 end object CheckBoxVoid: TCheckBox Left = 8 Height = 30 Top = 232 Width = 187 Caption = 'Inaccessible places' OnChange = CheckBoxVoidChange TabOrder = 8 end object CheckBoxCity: TCheckBox Left = 8 Height = 30 Top = 272 Width = 71 Caption = 'Cities' OnChange = CheckBoxCityChange TabOrder = 9 end object SpinEditCityPercent: TSpinEdit Left = 216 Height = 36 Top = 272 Width = 106 MinValue = 1 TabOrder = 10 Value = 1 end object Label4: TLabel Left = 331 Height = 26 Top = 272 Width = 15 Caption = '%' ParentColor = False end object Label3: TLabel Left = 331 Height = 26 Top = 232 Width = 15 Caption = '%' ParentColor = False end object SpinEditNeutralUnits: TSpinEdit Left = 408 Height = 36 Top = 384 Width = 98 MaxValue = 99 TabOrder = 11 Value = 12 end object Label7: TLabel Left = 8 Height = 26 Top = 384 Width = 227 Caption = 'Max random neutral units:' ParentColor = False end object EditImageFile: TEdit Left = 144 Height = 36 Top = 184 Width = 476 Anchors = [akTop, akLeft, akRight] TabOrder = 12 end object ButtonImageBrowse: TButton Left = 628 Height = 25 Top = 192 Width = 99 Anchors = [akTop, akRight] Caption = 'Browse' OnClick = ButtonImageBrowseClick TabOrder = 13 end object Label9: TLabel Left = 8 Height = 26 Top = 184 Width = 90 Caption = 'Image file:' ParentColor = False end object CheckBoxBridges: TCheckBox Left = 8 Height = 30 Top = 310 Width = 210 Caption = 'Bridges between cells' TabOrder = 14 end object SpinEditMaxPower: TSpinEdit Left = 408 Height = 36 Top = 344 Width = 98 MaxValue = 1000000 MinValue = 1 OnChange = SpinEditMaxPowerChange TabOrder = 15 Value = 99 end object Label10: TLabel Left = 8 Height = 26 Top = 344 Width = 156 Caption = 'Max units per cell:' ParentColor = False end object CheckBoxCyclicMap: TCheckBox Left = 472 Height = 27 Top = 137 Width = 255 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'Cyclic map' TabOrder = 16 end end end object TabSheetRules: TTabSheet Caption = 'Rules' ClientHeight = 651 ClientWidth = 743 object Panel4: TPanel Left = 0 Height = 651 Top = 0 Width = 743 Align = alClient BevelOuter = bvNone ClientHeight = 651 ClientWidth = 743 TabOrder = 0 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 = 77 ClientWidth = 308 Items.Strings = ( 'None' 'Player cities' 'Player all' ) TabOrder = 0 end object Label6: TLabel Left = 8 Height = 26 Top = 248 Width = 120 Caption = 'Win objective:' ParentColor = False end object ComboBoxWinObjective: TComboBox Left = 224 Height = 40 Top = 244 Width = 328 ItemHeight = 0 Items.Strings = ( 'Defeat all oponents' 'Defeat all oponents cities' 'Capture position' 'Stay alive for number of turns' ) OnChange = ComboBoxWinObjectiveChange 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 = 48 ClientWidth = 301 Items.Strings = ( 'By one' 'By square root' ) TabOrder = 2 end object CheckBoxFogOfWar: TCheckBox Left = 336 Height = 30 Top = 24 Width = 113 Caption = 'Fog of war' TabOrder = 3 end object PageControl2: TPageControl Left = 12 Height = 78 Top = 290 Width = 720 ActivePage = TabSheetCaptureCities Anchors = [akTop, akLeft, akRight] ShowTabs = False TabIndex = 1 TabOrder = 4 object TabSheetDefeatEnemies: TTabSheet end object TabSheetCaptureCities: TTabSheet end object TabSheetCaptureCells: TTabSheet ClientHeight = 72 ClientWidth = 714 object Label14: TLabel Left = 8 Height = 20 Top = 16 Width = 125 Caption = 'Special cells count:' ParentColor = False end object SpinEditSpecialCells: TSpinEdit Left = 236 Height = 28 Top = 8 Width = 159 MaxValue = 1000 MinValue = 1 TabOrder = 0 Value = 1 end end object TabSheetStayAliveTurns: TTabSheet ClientHeight = 72 ClientWidth = 714 object Label13: TLabel Left = 8 Height = 20 Top = 16 Width = 111 Caption = 'Number of turns:' ParentColor = False end object SpinEditTurns: TSpinEdit Left = 236 Height = 28 Top = 8 Width = 159 MaxValue = 1000 MinValue = 1 TabOrder = 0 Value = 1 end end end end end end object PanelButtons: TPanel Left = 0 Height = 45 Top = 703 Width = 1154 Align = alBottom BevelOuter = bvNone ClientHeight = 45 ClientWidth = 1154 TabOrder = 1 object ButtonOk: TButton Left = 966 Height = 25 Top = 6 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 0 end object ButtonCancel: TButton Left = 1070 Height = 25 Top = 6 Width = 75 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end object PanelChat: TPanel Left = 763 Height = 703 Top = 0 Width = 391 Align = alRight BevelOuter = bvNone TabOrder = 2 end object Splitter1: TSplitter Left = 757 Height = 703 Top = 0 Width = 6 Align = alRight ResizeAnchor = akRight end object ActionList1: TActionList Images = Core.ImageListSmall left = 464 top = 464 object APlayerModify: TAction Caption = 'Modify' OnExecute = APlayerModifyExecute end object APlayerAdd: TAction Caption = 'Add' OnExecute = APlayerAddExecute end object APlayerRemove: TAction Caption = 'Remove' OnExecute = APlayerRemoveExecute end object AServerAdd: TAction Caption = 'Add' OnExecute = AServerAddExecute end object AServerRemove: TAction Caption = 'Remove' OnExecute = AServerRemoveExecute end object AServerModify: TAction Caption = 'Modify' OnExecute = AServerModifyExecute end end object OpenPictureDialog1: TOpenPictureDialog left = 602 top = 464 end object PopupMenuPlayers: TPopupMenu left = 312 top = 464 object MenuItem1: TMenuItem Action = APlayerAdd end object MenuItem2: TMenuItem Action = APlayerModify Default = True end object MenuItem3: TMenuItem Action = APlayerRemove end end object PopupMenuServers: TPopupMenu left = 176 top = 464 object MenuItem4: TMenuItem Action = AServerAdd end object MenuItem6: TMenuItem Action = AServerModify end object MenuItem5: TMenuItem Action = AServerRemove end end end