inherited frmElevateSettings: TfrmElevateSettings Left = 1502 Height = 114 Top = 189 Width = 250 Caption = 'Изменение высоты' ClientHeight = 114 ClientWidth = 250 OnCreate = FormCreate object rbRaise: TRadioButton[0] AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 8 Height = 19 Top = 8 Width = 66 BorderSpacing.Left = 8 BorderSpacing.Top = 8 Caption = 'Поднять' Checked = True TabOrder = 2 TabStop = True end object rbLower: TRadioButton[1] AnchorSideLeft.Control = rbRaise AnchorSideTop.Control = rbRaise AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 27 Width = 71 Caption = 'Опустить' TabOrder = 0 end object rbSet: TRadioButton[2] AnchorSideLeft.Control = rbLower AnchorSideTop.Control = rbLower AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 46 Width = 56 Caption = 'Задать' TabOrder = 1 end object cbRandomHeight: TCheckBox[3] AnchorSideLeft.Control = rbSet AnchorSideTop.Control = rbSet AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 81 Width = 163 BorderSpacing.Top = 16 Caption = 'Добавить к высоте (случ.)' TabOrder = 3 end object seRandomHeight: TSpinEdit[4] AnchorSideLeft.Control = seZ AnchorSideTop.Control = cbRandomHeight AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 197 Height = 23 Top = 79 Width = 45 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 OnChange = seRandomHeightChange TabOrder = 4 end object seZ: TSpinEdit[5] AnchorSideLeft.Control = rbSet AnchorSideTop.Control = rbLower AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 197 Height = 23 Top = 25 Width = 45 Anchors = [akTop, akRight] BorderSpacing.Right = 8 MaxValue = 127 MinValue = -128 TabOrder = 5 Value = 1 end inherited tmClose: TTimer[6] end end