94 lines
2.2 KiB
Plaintext
94 lines
2.2 KiB
Plaintext
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
|