source: branches/delphi/Forms/UFormNew.dfm

object FormNew: TFormNew
  Left = 706
  Top = 455
  Caption = 'New game'
  ClientHeight = 560
  ClientWidth = 700
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 170
    Width = 700
    Height = 5
    Cursor = crVSplit
    Align = alTop
    ExplicitWidth = 716
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 700
    Height = 170
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      700
      170)
    object ListView1: TListView
      Left = 16
      Top = 8
      Width = 594
      Height = 150
      Anchors = [akLeft, akTop, 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
      Top = 8
      Width = 83
      Height = 25
      Action = APlayerAdd
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Add'
      TabOrder = 1
    end
    object ButtonPlayerRemove: TButton
      Left = 616
      Top = 40
      Width = 83
      Height = 25
      Action = APlayerRemove
      Anchors = [akTop, akRight]
      Caption = 'Remove'
      TabOrder = 2
    end
    object ButtonPlayerModify: TButton
      Left = 616
      Top = 72
      Width = 83
      Height = 25
      Action = APlayerModify
      Anchors = [akTop, akRight]
      Caption = 'Modify'
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 175
    Width = 700
    Height = 385
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    ExplicitHeight = 291
    DesignSize = (
      700
      385)
    object Label1: TLabel
      Left = 8
      Top = 9
      Width = 53
      Height = 13
      Caption = 'Map width:'
      Color = clBtnFace
      ParentColor = False
    end
    object Label3: TLabel
      Left = 331
      Top = 102
      Width = 11
      Height = 13
      Caption = '%'
      Color = clBtnFace
      ParentColor = False
    end
    object Label2: TLabel
      Left = 8
      Top = 57
      Width = 57
      Height = 13
      Caption = 'Map height:'
      Color = clBtnFace
      ParentColor = False
    end
    object Label4: TLabel
      Left = 331
      Top = 142
      Width = 11
      Height = 13
      Caption = '%'
      Color = clBtnFace
      ParentColor = False
    end
    object Label5: TLabel
      Left = 216
      Top = 201
      Width = 48
      Height = 13
      Caption = 'Grid type:'
      Color = clBtnFace
      ParentColor = False
    end
    object ButtonOk: TButton
      Left = 616
      Top = 353
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Ok'
      ModalResult = 1
      TabOrder = 0
      ExplicitTop = 259
    end
    object ButtonCancel: TButton
      Left = 526
      Top = 353
      Width = 75
      Height = 25
      Anchors = [akBottom]
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
      ExplicitTop = 259
    end
    object CheckBoxVoid: TCheckBox
      Left = 8
      Top = 101
      Width = 175
      Height = 24
      Caption = 'Inaccessible places'
      TabOrder = 2
      OnClick = CheckBoxVoidChange
    end
    object SpinEditMapSizeX: TSpinEdit
      Left = 136
      Top = 1
      Width = 98
      Height = 22
      MaxValue = 100
      MinValue = 2
      TabOrder = 3
      Value = 0
      OnChange = SpinEditMapSizeXChange
    end
    object SpinEditMapSizeY: TSpinEdit
      Left = 128
      Top = 55
      Width = 98
      Height = 22
      MaxValue = 100
      MinValue = 2
      TabOrder = 4
      Value = 0
      OnChange = SpinEditMapSizeYChange
    end
    object SpinEditVoidPercent: TSpinEdit
      Left = 216
      Top = 97
      Width = 106
      Height = 22
      MaxValue = 0
      MinValue = 1
      TabOrder = 5
      Value = 0
    end
    object TrackBarSizeX: TTrackBar
      Left = 240
      Top = 1
      Width = 451
      Height = 43
      Anchors = [akLeft, akTop, akRight]
      Max = 100
      Min = 2
      Position = 2
      TabOrder = 6
      TickStyle = tsNone
      OnChange = TrackBarSizeXChange
    end
    object TrackBarSizeY: TTrackBar
      Left = 240
      Top = 49
      Width = 451
      Height = 43
      Anchors = [akLeft, akTop, akRight]
      Max = 100
      Min = 2
      Position = 2
      TabOrder = 7
      TickStyle = tsNone
      OnChange = TrackBarSizeYChange
    end
    object CheckBoxCity: TCheckBox
      Left = 8
      Top = 141
      Width = 68
      Height = 24
      Caption = 'Cities'
      TabOrder = 8
      OnClick = CheckBoxCityChange
    end
    object SpinEditCityPercent: TSpinEdit
      Left = 216
      Top = 137
      Width = 106
      Height = 22
      MaxValue = 0
      MinValue = 1
      TabOrder = 9
      Value = 0
    end
    object RadioGroupGrowAmount: TRadioGroup
      Left = 360
      Top = 97
      Width = 241
      Height = 76
      Caption = 'Per turn grow amount'
      Items.Strings = (
        'By one'
        'By square root')
      TabOrder = 10
    end
    object RadioGroupGrowCells: TRadioGroup
      Left = 8
      Top = 185
      Width = 185
      Height = 105
      Caption = 'Growing cells'
      Items.Strings = (
        'None'
        'Player cities'
        'Player all')
      TabOrder = 11
    end
    object ComboBoxGridType: TComboBox
      Left = 312
      Top = 201
      Width = 208
      Height = 21
      Style = csDropDownList
      TabOrder = 12
      Items.Strings = (
        'Hexagonal'
        'Square')
    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