128 lines
3.0 KiB
Plaintext
128 lines
3.0 KiB
Plaintext
inherited frmDrawSettings: TfrmDrawSettings
|
|
Left = 268
|
|
Height = 194
|
|
Top = 165
|
|
Width = 375
|
|
ActiveControl = rbTileList
|
|
AutoSize = True
|
|
Caption = 'Draw settings'
|
|
ClientHeight = 194
|
|
ClientWidth = 375
|
|
Constraints.MinWidth = 375
|
|
OnCreate = FormCreate
|
|
object rbTileList: TRadioButton[0]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 8
|
|
Height = 25
|
|
Top = 8
|
|
Width = 178
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Bottom = 4
|
|
Caption = 'Use tile from the list'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object rbRandom: TRadioButton[1]
|
|
AnchorSideLeft.Control = rbTileList
|
|
AnchorSideTop.Control = rbTileList
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 37
|
|
Width = 264
|
|
BorderSpacing.Top = 4
|
|
Caption = 'Use tiles from the random pool'
|
|
TabOrder = 1
|
|
end
|
|
object gbHue: TGroupBox[2]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = seRandomHeight
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 8
|
|
Height = 38
|
|
Top = 148
|
|
Width = 359
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 8
|
|
Caption = 'Hue (Statics only)'
|
|
ClientHeight = 14
|
|
ClientWidth = 357
|
|
TabOrder = 2
|
|
object pbHue: TPaintBox
|
|
Cursor = crHandPoint
|
|
Left = 4
|
|
Height = 10
|
|
Top = 0
|
|
Width = 349
|
|
Align = alClient
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
BorderSpacing.Bottom = 4
|
|
Font.Height = 14
|
|
ParentFont = False
|
|
OnClick = pbHueClick
|
|
OnPaint = pbHuePaint
|
|
end
|
|
end
|
|
object cbRandomHeight: TCheckBox[3]
|
|
AnchorSideLeft.Control = cbForceAltitude
|
|
AnchorSideTop.Control = cbForceAltitude
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 111
|
|
Width = 188
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Add Random Altitude'
|
|
TabOrder = 3
|
|
end
|
|
object seRandomHeight: TSpinEdit[4]
|
|
AnchorSideTop.Control = cbRandomHeight
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 317
|
|
Height = 33
|
|
Top = 107
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
TabOrder = 4
|
|
end
|
|
object cbForceAltitude: TCheckBox[5]
|
|
AnchorSideLeft.Control = rbRandom
|
|
AnchorSideTop.Control = rbRandom
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 25
|
|
Top = 74
|
|
Width = 133
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Force altitude:'
|
|
TabOrder = 5
|
|
end
|
|
object seForceAltitude: TSpinEdit[6]
|
|
AnchorSideTop.Control = cbForceAltitude
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 317
|
|
Height = 33
|
|
Top = 70
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
MaxValue = 127
|
|
MinValue = -128
|
|
TabOrder = 6
|
|
end
|
|
inherited tmClose: TTimer[7]
|
|
Left = 312
|
|
end
|
|
end
|