object FormNew: TFormNew Left = 412 Height = 794 Top = 155 Width = 1401 Caption = 'New game' ClientHeight = 794 ClientWidth = 1401 Constraints.MinHeight = 300 Constraints.MinWidth = 300 DesignTimePPI = 144 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow Position = poMainFormCenter LCLVersion = '3.6.0.0' object PageControl1: TPageControl Left = 4 Height = 676 Top = 60 Width = 996 ActivePage = TabSheetRules Align = alClient BorderSpacing.Around = 4 ParentFont = False TabIndex = 3 TabOrder = 0 OnChange = PageControl1Change object TabSheetMode: TTabSheet Caption = 'Mode' ClientHeight = 636 ClientWidth = 986 ParentFont = False object ScrollBoxMode: TScrollBox Left = 0 Height = 636 Top = 0 Width = 986 HorzScrollBar.Page = 360 VertScrollBar.Page = 225 Align = alClient ClientHeight = 632 ClientWidth = 982 ParentFont = False TabOrder = 0 object RadioButtonModeLocal: TRadioButton Left = 10 Height = 30 Top = 14 Width = 67 Caption = 'Local' Checked = True ParentFont = False TabOrder = 0 TabStop = True OnChange = RadioButtonModeLocalChange end object RadioButtonModeNetworkServer: TRadioButton Left = 10 Height = 30 Top = 48 Width = 152 Caption = 'Network server' ParentFont = False TabOrder = 1 OnChange = RadioButtonModeLocalChange end object RadioButtonModeNetworkClient: TRadioButton Left = 10 Height = 30 Top = 160 Width = 146 Caption = 'Network client' ParentFont = False TabOrder = 2 OnChange = RadioButtonModeLocalChange end object EditServerAddress: TEdit Left = 24 Height = 34 Top = 112 Width = 220 ParentFont = False TabOrder = 3 end object SpinEditServerPort: TSpinEdit Left = 256 Height = 34 Top = 112 Width = 79 MaxValue = 65535 ParentFont = False TabOrder = 4 end object Label11: TLabel Left = 256 Height = 26 Top = 80 Width = 40 Caption = 'Port:' ParentColor = False ParentFont = False end object Label12: TLabel Left = 24 Height = 26 Top = 80 Width = 74 Caption = 'Address:' ParentColor = False ParentFont = False end object ListViewServers: TListView Left = 26 Height = 379 Top = 200 Width = 334 Anchors = [akTop, akLeft, akBottom] Columns = < item Caption = 'Name' Width = 100 end item Caption = 'Address' Width = 227 end> MultiSelect = True OwnerData = True ParentFont = False PopupMenu = PopupMenuServers ReadOnly = True RowSelect = True TabOrder = 5 ViewStyle = vsReport OnData = ListViewServersData OnDblClick = AServerModifyExecute OnKeyPress = ListViewServersKeyPress OnSelectItem = ListViewServersSelectItem end object Button1: TButton Left = 26 Height = 38 Top = 587 Width = 94 Action = AServerAdd Anchors = [akLeft, akBottom] ParentFont = False TabOrder = 6 end object Button2: TButton Left = 248 Height = 38 Top = 587 Width = 94 Action = AServerRemove Anchors = [akLeft, akBottom] ParentFont = False TabOrder = 7 end object Button3: TButton Left = 136 Height = 38 Top = 587 Width = 94 Action = AServerModify Anchors = [akLeft, akBottom] ParentFont = False TabOrder = 8 end end end object TabSheetPlayers: TTabSheet Caption = 'Players' ClientHeight = 636 ClientWidth = 986 ParentFont = False object Panel2: TPanel Left = 0 Height = 636 Top = 0 Width = 986 Align = alClient BevelOuter = bvNone ParentFont = False TabOrder = 0 end end object TabSheetMap: TTabSheet Caption = 'Map' ClientHeight = 636 ClientWidth = 986 OnShow = TabSheetMapShow ParentFont = False object ScrollBoxMap: TScrollBox Left = 0 Height = 636 Top = 0 Width = 986 HorzScrollBar.Page = 490 VertScrollBar.Page = 578 Align = alClient ClientHeight = 634 ClientWidth = 984 ParentFont = False TabOrder = 0 object Label1: TLabel Left = 8 Height = 26 Top = 10 Width = 94 Caption = 'Map width:' ParentColor = False ParentFont = False end object Label2: TLabel Left = 8 Height = 26 Top = 58 Width = 101 Caption = 'Map height:' ParentColor = False ParentFont = False end object SpinEditMapSizeX: TSpinEdit Left = 128 Height = 43 Top = 4 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeXChange ParentFont = False TabOrder = 0 Value = 2 end object SpinEditMapSizeY: TSpinEdit Left = 128 Height = 43 Top = 55 Width = 98 MinValue = 2 OnChange = SpinEditMapSizeYChange ParentFont = False TabOrder = 1 Value = 2 end object TrackBarSizeX: TTrackBar Left = 240 Height = 30 Top = 8 Width = 718 Max = 100 Min = 2 OnChange = TrackBarSizeXChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] ParentFont = False TabOrder = 2 end object TrackBarSizeY: TTrackBar Left = 240 Height = 30 Top = 49 Width = 718 Max = 100 Min = 2 OnChange = TrackBarSizeYChange Position = 2 TickStyle = tsNone Anchors = [akTop, akLeft, akRight] ParentFont = False TabOrder = 3 end object Label5: TLabel Left = 8 Height = 26 Top = 106 Width = 82 Caption = 'Grid type:' ParentColor = False ParentFont = False end object ComboBoxGridType: TComboBox Left = 146 Height = 38 Top = 104 Width = 304 ItemHeight = 0 Items.Strings = ( 'Hexagon vertical' 'Square' 'Triangular' 'Random' 'Isometric' 'Hexagon horizontal' ) ParentFont = False Style = csDropDownList TabOrder = 4 OnChange = ComboBoxGridTypeChange end object ComboBoxMapShape: TComboBox Left = 146 Height = 38 Top = 144 Width = 304 ItemHeight = 0 Items.Strings = ( 'Hexagonal' 'Square' 'Triangular' ) ParentFont = False Style = csDropDownList TabOrder = 5 OnChange = ComboBoxMapShapeChange end object Label8: TLabel Left = 8 Height = 26 Top = 148 Width = 98 Caption = 'Map shape:' ParentColor = False ParentFont = False end object CheckBoxSymetricMap: TCheckBox Left = 8 Height = 30 Top = 248 Width = 142 Caption = 'Symetric map' ParentFont = False TabOrder = 6 OnChange = CheckBoxSymetricMapChange end object SpinEditVoidPercent: TSpinEdit Left = 216 Height = 43 Top = 314 Width = 106 MinValue = 1 OnChange = SpinEditVoidPercentChange ParentFont = False TabOrder = 7 Value = 1 end object CheckBoxVoid: TCheckBox Left = 8 Height = 30 Top = 320 Width = 189 Caption = 'Inaccessible places' ParentFont = False TabOrder = 8 OnChange = CheckBoxVoidChange end object CheckBoxCity: TCheckBox Left = 8 Height = 30 Top = 366 Width = 72 Caption = 'Cities' ParentFont = False TabOrder = 9 OnChange = CheckBoxCityChange end object SpinEditCityPercent: TSpinEdit Left = 216 Height = 43 Top = 360 Width = 106 MinValue = 1 OnChange = SpinEditCityPercentChange ParentFont = False TabOrder = 10 Value = 1 end object Label4: TLabel Left = 331 Height = 26 Top = 366 Width = 15 Caption = '%' ParentColor = False ParentFont = False end object Label3: TLabel Left = 331 Height = 26 Top = 320 Width = 15 Caption = '%' ParentColor = False ParentFont = False end object SpinEditNeutralUnits: TSpinEdit Left = 312 Height = 43 Top = 488 Width = 98 MaxValue = 99 OnChange = SpinEditNeutralUnitsChange ParentFont = False TabOrder = 11 Value = 12 end object Label7: TLabel Left = 8 Height = 26 Top = 496 Width = 225 Caption = 'Max random neutral units:' ParentColor = False ParentFont = False end object EditImageFile: TEdit Left = 146 Height = 43 Top = 184 Width = 714 Anchors = [akTop, akLeft, akRight] ParentFont = False TabOrder = 12 OnChange = EditImageFileChange end object ButtonImageBrowse: TButton Left = 869 Height = 43 Top = 184 Width = 98 Anchors = [akTop, akRight] Caption = 'Browse' ParentFont = False TabOrder = 13 OnClick = ButtonImageBrowseClick end object Label9: TLabel Left = 8 Height = 26 Top = 192 Width = 90 Caption = 'Image file:' ParentColor = False ParentFont = False end object CheckBoxBridges: TCheckBox Left = 8 Height = 30 Top = 408 Width = 211 Caption = 'Bridges between cells' ParentFont = False TabOrder = 14 OnChange = CheckBoxBridgesChange end object SpinEditMaxPower: TSpinEdit Left = 312 Height = 43 Top = 440 Width = 98 MaxValue = 1000000 MinValue = 1 OnChange = SpinEditMaxPowerChange ParentFont = False TabOrder = 15 Value = 99 end object Label10: TLabel Left = 8 Height = 26 Top = 448 Width = 155 Caption = 'Max units per cell:' ParentColor = False ParentFont = False end object CheckBoxCyclicMap: TCheckBox Left = 8 Height = 30 Top = 283 Width = 117 Caption = 'Cyclic map' ParentFont = False TabOrder = 16 OnChange = CheckBoxCyclicMapChange end object Image1: TImage Left = 419 Height = 358 Top = 272 Width = 555 Anchors = [akTop, akLeft, akRight, akBottom] OnResize = Image1Resize end object Label15: TLabel Left = 419 Height = 26 Top = 240 Width = 71 Caption = 'Preview:' ParentColor = False ParentFont = False end object ButtonRandomize: TButton Left = 10 Height = 38 Top = 540 Width = 154 Caption = 'Randomize' ParentFont = False TabOrder = 17 OnClick = ButtonRandomizeClick end end end object TabSheetRules: TTabSheet Caption = 'Rules' ClientHeight = 636 ClientWidth = 986 ParentFont = False object ScrollBoxRules: TScrollBox Left = 0 Height = 636 Top = 0 Width = 986 HorzScrollBar.Page = 544 VertScrollBar.Page = 440 Align = alClient ClientHeight = 634 ClientWidth = 984 ParentFont = False TabOrder = 0 object RadioGroupGrowCells: TRadioGroup Left = 14 Height = 136 Top = 136 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 = 109 ClientWidth = 310 Items.Strings = ( 'None' 'Player cities' 'Player all' ) ParentFont = False TabOrder = 0 end object Label6: TLabel Left = 14 Height = 26 Top = 286 Width = 119 Caption = 'Win objective:' ParentColor = False ParentFont = False end object ComboBoxWinObjective: TComboBox Left = 216 Height = 38 Top = 280 Width = 328 ItemHeight = 0 Items.Strings = ( 'Defeat all oponents' 'Defeat all oponents cities' 'Capture position' 'Stay alive for number of turns' ) ParentFont = False Style = csDropDownList TabOrder = 1 OnChange = ComboBoxWinObjectiveChange end object RadioGroupGrowAmount: TRadioGroup Left = 14 Height = 104 Top = 16 Width = 312 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 = 77 ClientWidth = 310 Items.Strings = ( 'By one' 'By square root' ) ParentFont = False TabOrder = 2 end object CheckBoxFogOfWar: TCheckBox Left = 352 Height = 30 Top = 24 Width = 115 Caption = 'Fog of war' ParentFont = False TabOrder = 3 end object PageControlWinObjective: TPageControl Left = 12 Height = 110 Top = 330 Width = 961 ActivePage = TabSheetNone Anchors = [akTop, akLeft, akRight] ParentFont = False ShowTabs = False TabIndex = 4 TabOrder = 4 object TabSheetDefeatEnemies: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxDefeatEnemies: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 1 VertScrollBar.Page = 1 Align = alClient TabOrder = 0 end end object TabSheetCaptureCities: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxCaptureCities: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 1 VertScrollBar.Page = 1 Align = alClient TabOrder = 0 end end object TabSheetCaptureCells: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxCaptureCells: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 394 VertScrollBar.Page = 51 Align = alClient ClientHeight = 104 ClientWidth = 949 TabOrder = 0 object Label14: TLabel Left = 8 Height = 26 Top = 16 Width = 161 Caption = 'Special cells count:' ParentColor = False ParentFont = False end object SpinEditSpecialCells: TSpinEdit Left = 236 Height = 43 Top = 8 Width = 158 MaxValue = 1000 MinValue = 1 ParentFont = False TabOrder = 0 Value = 1 end end end object TabSheetStayAliveTurns: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxStayAliveTurns: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 394 VertScrollBar.Page = 51 Align = alClient ClientHeight = 104 ClientWidth = 949 TabOrder = 0 object SpinEditTurns: TSpinEdit Left = 236 Height = 43 Top = 8 Width = 158 MaxValue = 1000 MinValue = 1 ParentFont = False TabOrder = 0 Value = 1 end object Label13: TLabel Left = 8 Height = 26 Top = 16 Width = 146 Caption = 'Number of turns:' ParentColor = False ParentFont = False end end end object TabSheetNone: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxNone: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 1 VertScrollBar.Page = 1 Align = alClient TabOrder = 0 end end object TabSheetCaptureEntireMap: TTabSheet ClientHeight = 106 ClientWidth = 951 ParentFont = False object ScrollBoxCaptureEntireMap: TScrollBox Left = 0 Height = 106 Top = 0 Width = 951 HorzScrollBar.Page = 1 VertScrollBar.Page = 1 Align = alClient TabOrder = 0 end end end end end end object PanelButtons: TPanel Left = 0 Height = 54 Top = 740 Width = 1401 Align = alBottom BevelOuter = bvNone ClientHeight = 54 ClientWidth = 1401 ParentFont = False TabOrder = 1 object ButtonOk: TButton Left = 1152 Height = 38 Top = 8 Width = 106 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = ButtonOkClick end object ButtonCancel: TButton Left = 1272 Height = 38 Top = 8 Width = 114 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 ParentFont = False TabOrder = 1 end end object PanelChat: TPanel Left = 1010 Height = 684 Top = 56 Width = 391 Align = alRight BevelOuter = bvNone ParentFont = False TabOrder = 2 end object Splitter1: TSplitter Left = 1004 Height = 684 Top = 56 Width = 6 Align = alRight ResizeAnchor = akRight end object PanelGameSystem: TPanel Left = 0 Height = 56 Top = 0 Width = 1401 Align = alTop BevelOuter = bvNone ClientHeight = 56 ClientWidth = 1401 ParentFont = False TabOrder = 4 object Label16: TLabel Left = 12 Height = 26 Top = 14 Width = 120 Caption = 'Game system:' ParentColor = False ParentFont = False end object ComboBoxGameSystem: TComboBox Left = 176 Height = 42 Top = 12 Width = 254 ItemHeight = 0 ParentFont = False Style = csDropDownList TabOrder = 0 OnChange = ComboBoxGameSystemChange end object ButtonGameSystems: TButton Left = 443 Height = 38 Top = 10 Width = 113 Caption = 'Manage' ParentFont = False TabOrder = 1 OnClick = ButtonGameSystemsClick end end object ActionList1: TActionList Images = Core.ImageListSmall Left = 864 Top = 216 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 = 864 Top = 360 end object PopupMenuServers: TPopupMenu Left = 864 Top = 136 object MenuItem4: TMenuItem Action = AServerAdd end object MenuItem6: TMenuItem Action = AServerModify end object MenuItem5: TMenuItem Action = AServerRemove end end object TimerMapPreview: TTimer Interval = 500 OnTimer = TimerMapPreviewTimer Left = 864 Top = 446 end end