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