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