CentrED/Client/Tools/UfrmDrawSettings.lfm

inherited frmDrawSettings: TfrmDrawSettings
  Left = 1224
  Height = 240
  Top = 636
  Width = 242
  Caption = 'Опции рисования'
  ClientHeight = 240
  ClientWidth = 242
  OnCreate = FormCreate
  OnShow = FormShow
  object cbProbability: TCheckBox[0]
    AnchorSideLeft.Control = rbRandom
    AnchorSideTop.Control = rbRandom
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 56
    Width = 170
    BorderSpacing.Top = 6
    Caption = 'Размещать тайл с шансом:'
    TabOrder = 9
  end
  object rbTileList: TRadioButton[1]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 19
    Top = 8
    Width = 170
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Bottom = 4
    Caption = 'Выбранный тайл из списка'
    Checked = True
    TabOrder = 0
    TabStop = True
  end
  object rbRandom: TRadioButton[2]
    AnchorSideLeft.Control = rbTileList
    AnchorSideTop.Control = rbTileList
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 31
    Width = 170
    BorderSpacing.Top = 4
    Caption = 'Случайный тайл из набора'
    OnChange = rbRandomChange
    TabOrder = 1
  end
  object gbHue: TGroupBox[3]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = seRandomHeight
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 8
    Height = 49
    Top = 185
    Width = 226
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 8
    Caption = 'Цвет (Только для Статики)'
    ClientHeight = 31
    ClientWidth = 222
    TabOrder = 2
    object pbHue: TPaintBox
      Cursor = crHandPoint
      Left = 4
      Height = 27
      Top = 0
      Width = 214
      Align = alClient
      BorderSpacing.Left = 4
      BorderSpacing.Right = 4
      BorderSpacing.Bottom = 4
      OnClick = pbHueClick
      OnPaint = pbHuePaint
    end
  end
  object cbRandomHeight: TCheckBox[4]
    AnchorSideLeft.Control = cbForceAltitude
    AnchorSideTop.Control = cbForceAltitude
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 156
    Width = 163
    BorderSpacing.Top = 8
    Caption = 'Добавить к высоте (случ):'
    TabOrder = 3
  end
  object seRandomHeight: TSpinEdit[5]
    AnchorSideTop.Control = cbRandomHeight
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 184
    Height = 23
    Top = 154
    Width = 50
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    OnChange = seRandomHeightChange
    TabOrder = 4
  end
  object cbForceAltitude: TCheckBox[6]
    AnchorSideLeft.Control = rbRandom
    AnchorSideTop.Control = cbUseSurfaceAltitude
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 129
    Width = 135
    BorderSpacing.Top = 2
    Caption = 'Задать фикс. высоту:'
    TabOrder = 5
  end
  object seForceAltitude: TSpinEdit[7]
    AnchorSideTop.Control = cbForceAltitude
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 184
    Height = 23
    Top = 127
    Width = 50
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    MaxValue = 127
    MinValue = -128
    OnChange = seForceAltitudeChange
    TabOrder = 6
  end
  object cbUseSurfaceAltitude: TCheckBox[8]
    AnchorSideLeft.Control = rbRandom
    AnchorSideTop.Control = cbUseFreeTilesOnly
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 108
    Width = 213
    BorderSpacing.Top = 12
    Caption = 'Брать высоту верхней поверхности'
    OnChange = cbUseSurfaceAltitudeChange
    TabOrder = 7
  end
  object seProbability: TFloatSpinEdit[9]
    AnchorSideTop.Control = cbProbability
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 176
    Height = 23
    Top = 54
    Width = 58
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Right = 8
    Increment = 0.01
    MaxValue = 100
    MinValue = 0.01
    OnChange = seProbabilityChange
    TabOrder = 8
    Value = 100
  end
  object cbUseFreeTilesOnly: TCheckBox[10]
    AnchorSideLeft.Control = rbRandom
    AnchorSideTop.Control = cbProbability
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 19
    Top = 77
    Width = 218
    BorderSpacing.Top = 2
    Caption = 'Размещать только на пустых тайлах'
    TabOrder = 10
  end
  inherited tmClose: TTimer[11]
    left = 200
  end
end