95 lines
2.1 KiB
Plaintext
95 lines
2.1 KiB
Plaintext
inherited frmElevateSettings: TfrmElevateSettings
|
|
Left = 290
|
|
Height = 141
|
|
Top = 171
|
|
Width = 297
|
|
Caption = 'Elevate'
|
|
ClientHeight = 141
|
|
ClientWidth = 297
|
|
object rbRaise: TRadioButton[0]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 8
|
|
Height = 25
|
|
Top = 8
|
|
Width = 64
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Raise'
|
|
Checked = True
|
|
TabOrder = 2
|
|
TabStop = True
|
|
end
|
|
object rbLower: TRadioButton[1]
|
|
AnchorSideLeft.Control = rbRaise
|
|
AnchorSideTop.Control = rbRaise
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 33
|
|
Width = 72
|
|
Caption = 'Lower'
|
|
TabOrder = 0
|
|
end
|
|
object rbSet: TRadioButton[2]
|
|
AnchorSideLeft.Control = rbLower
|
|
AnchorSideTop.Control = rbLower
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 58
|
|
Width = 48
|
|
Caption = 'Set'
|
|
TabOrder = 1
|
|
end
|
|
object cbRandomHeight: TCheckBox[3]
|
|
AnchorSideLeft.Control = rbSet
|
|
AnchorSideTop.Control = rbSet
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 99
|
|
Width = 188
|
|
BorderSpacing.Top = 16
|
|
Caption = 'Add Random Altitude'
|
|
TabOrder = 3
|
|
end
|
|
object seRandomHeight: TSpinEdit[4]
|
|
AnchorSideLeft.Control = seZ
|
|
AnchorSideTop.Control = cbRandomHeight
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 244
|
|
Height = 33
|
|
Top = 95
|
|
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 = 244
|
|
Height = 33
|
|
Top = 29
|
|
Width = 45
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
MaxValue = 127
|
|
MinValue = -128
|
|
TabOrder = 5
|
|
Value = 1
|
|
end
|
|
inherited tmClose: TTimer[6]
|
|
Left = 144
|
|
Top = 16
|
|
end
|
|
end
|