125 lines
2.9 KiB
Plaintext
125 lines
2.9 KiB
Plaintext
inherited frmDrawSettings: TfrmDrawSettings
|
|
Left = 268
|
|
Height = 166
|
|
Top = 165
|
|
Width = 242
|
|
ActiveControl = rbTileList
|
|
Caption = 'Draw settings'
|
|
ClientHeight = 166
|
|
ClientWidth = 242
|
|
OnCreate = FormCreate
|
|
object rbTileList: TRadioButton[0]
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 8
|
|
Height = 19
|
|
Top = 8
|
|
Width = 125
|
|
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 = 19
|
|
Top = 31
|
|
Width = 184
|
|
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 = 122
|
|
Width = 226
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 8
|
|
Caption = 'Hue (Statics only)'
|
|
ClientHeight = 20
|
|
ClientWidth = 222
|
|
TabOrder = 2
|
|
object pbHue: TPaintBox
|
|
Cursor = crHandPoint
|
|
Left = 4
|
|
Height = 16
|
|
Top = 0
|
|
Width = 214
|
|
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 = 19
|
|
Top = 93
|
|
Width = 135
|
|
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 = 184
|
|
Height = 23
|
|
Top = 91
|
|
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 = 19
|
|
Top = 62
|
|
Width = 95
|
|
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 = 184
|
|
Height = 23
|
|
Top = 60
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
MaxValue = 127
|
|
MinValue = -128
|
|
TabOrder = 6
|
|
end
|
|
inherited tmClose: TTimer[7]
|
|
end
|
|
end
|