It seems like I should be able to make a compass rose from my TILAngularGuage but I cannot.
I need to have 0/360 degrees at the top and increment clockwise. I also need a control hand that can range from 0 to 360 degrees.
This form creates exactly the look of the gauge I need but I cannot position the control hand > 270 degrees (it resets to 0). Is there a fix?
===================================================================
object Form9: TForm9
Left = 0
Top = 0
Caption = 'Form9'
ClientHeight = 611
ClientWidth = 749
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ILAngularGauge1: TILAngularGauge
Left = 264
Top = 208
Border.BevelOuter.Width.Value = 0.019999999552965160
Border.BevelInner.Width.Value = 0.019999999552965160
Border.Width._Floats = (
(
Value
0.000000000000000000))
Border.CornerRadius.Value = 0.100000001490116100
Caption.Font.Name = 'Microsoft Sans Serif'
Caption.Font.Style = [fsBold]
Caption.Font.Brush.Color = claBlack
Caption.Font.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Caption.Font.Brush.Blend.Shape.Focus = 0.500000000000000000
Caption.Font.Brush.Blend.Shape.Scale = 1.000000000000000000
Caption.Font.Pen.Brush.Color = claBlack
Caption.Font.Pen.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Caption.Font.Pen.Brush.Blend.Shape.Focus = 0.500000000000000000
Caption.Font.Pen.Brush.Blend.Shape.Scale = 1.000000000000000000
Caption.Font.Pen.Width = 1.000000000000000000
Caption.Font.Pen.DashStyle._Floats = (
(
Offset
0.000000000000000000))
Caption.Font.Pen.Enabled = False
Caption.Font.Pen.AdditionalPens = <>
Caption.Font.Pen._Floats = (
(
MiterLimit
0.000000000000000000))
Caption.Font.Size.Value = 0.090000003576278690
Caption.Position.X._Floats = (
(
Value
0.000000000000000000))
Caption.Position.Y.Value = 0.699999988079071000
Caption.AdditionalCaptions = <>
Caption._Floats = (
(
Angle
0.000000000000000000))
Glass.Visible = False
Scale.Position.Value = 0.899999976158142100
Scale.Precision.NumberDigits = 2
Scale.Precision.FixedPrecision = False
Scale.MajorTicks.Visible = True
Scale.MajorTicks.Thickness.Value = 0.019999999552965160
Scale.MajorTicks.Length.Value = 0.050000000745058060
Scale.MajorTicks.Count = 13
Scale.MajorTicks.Brush.Color = claBlack
Scale.MajorTicks.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MajorTicks.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MajorTicks.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MajorTicks.Labels.Position.Value = 0.750000000000000000
Scale.MajorTicks.Labels.Visible = True
Scale.MajorTicks.Labels.Font.Name = 'Microsoft Sans Serif'
Scale.MajorTicks.Labels.Font.Style = [fsBold]
Scale.MajorTicks.Labels.Font.Brush.Color = claBlack
Scale.MajorTicks.Labels.Font.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MajorTicks.Labels.Font.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MajorTicks.Labels.Font.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MajorTicks.Labels.Font.Pen.Brush.Color = claBlack
Scale.MajorTicks.Labels.Font.Pen.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MajorTicks.Labels.Font.Pen.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MajorTicks.Labels.Font.Pen.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MajorTicks.Labels.Font.Pen.Width = 1.000000000000000000
Scale.MajorTicks.Labels.Font.Pen.DashStyle._Floats = (
(
Offset
0.000000000000000000))
Scale.MajorTicks.Labels.Font.Pen.Enabled = False
Scale.MajorTicks.Labels.Font.Pen.AdditionalPens = <>
Scale.MajorTicks.Labels.Font.Pen._Floats = (
(
MiterLimit
0.000000000000000000))
Scale.MajorTicks.Labels.Font.Size.Value = 0.090000003576278690
Scale.MajorTicks.Labels._Floats = (
(
Angle
0.000000000000000000))
Scale.MajorTicks.MinTick.Visible = True
Scale.MajorTicks.MinTick.TickLabel.Visible = True
Scale.MajorTicks.MaxTick.Visible = True
Scale.MajorTicks.MaxTick.TickLabel.Visible = True
Scale.MinorTicks.Visible = True
Scale.MinorTicks.Thickness.Value = 0.009999999776482582
Scale.MinorTicks.Length.Value = 0.019999999552965160
Scale.MinorTicks.Count = 4
Scale.MinorTicks.Brush.Color = claBlack
Scale.MinorTicks.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MinorTicks.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MinorTicks.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MinorTicks.Labels.Position.Value = 0.850000023841857900
Scale.MinorTicks.Labels.Visible = False
Scale.MinorTicks.Labels.Font.Name = 'Microsoft Sans Serif'
Scale.MinorTicks.Labels.Font.Style = [fsBold]
Scale.MinorTicks.Labels.Font.Brush.Color = claBlack
Scale.MinorTicks.Labels.Font.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MinorTicks.Labels.Font.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MinorTicks.Labels.Font.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MinorTicks.Labels.Font.Pen.Brush.Color = claBlack
Scale.MinorTicks.Labels.Font.Pen.Brush.Gradient.CenterColor.Point._Floats = (
(
X
0.000000000000000000)
(
Y
0.000000000000000000))
Scale.MinorTicks.Labels.Font.Pen.Brush.Blend.Shape.Focus = 0.500000000000000000
Scale.MinorTicks.Labels.Font.Pen.Brush.Blend.Shape.Scale = 1.000000000000000000
Scale.MinorTicks.Labels.Font.Pen.Width = 1.000000000000000000
Scale.MinorTicks.Labels.Font.Pen.DashStyle._Floats = (
(
Offset
0.000000000000000000))
Scale.MinorTicks.Labels.Font.Pen.Enabled = False
Scale.MinorTicks.Labels.Font.Pen.AdditionalPens = <>
Scale.MinorTicks.Labels.Font.Pen._Floats = (
(
MiterLimit
0.000000000000000000))
Scale.MinorTicks.Labels.Font.Size.Value = 0.064999997615814210
Scale.MinorTicks.Labels._Floats = (
(
Angle
0.000000000000000000))
Scale.MinAngle = 90.000000000000000000
Scale.MaxAngle = 90.000000000000000000
Ranges.Position.Value = 0.949999988079071000
Ranges.Ranges = <>
Ranges.Width.Value = 0.025000000372529030
Hand.Length.Value = 0.779999971389770500
Hand.TailLength.Value = 0.400000005960464500
Hand.TipWidth.Value = 0.019999999552965160
Hand.TailIndentSize.Value = 0.070000000298023220
Hand.TailWidth.Value = 0.100000001490116100
Hand.Color = claLime
Hand.Animation.Acceleration = 0.014999999664723870
Hand.Animation.Resistance = 0.159999996423721300
Center.Position.X._Floats = (
(
Value
0.000000000000000000))
Center.Position.Y._Floats = (
(
Value
0.000000000000000000))
Center.Bottom.Size.Value = 0.200000002980232200
Center.Bottom.Color = x64808080
Center.Top.Size.Value = 0.143000006675720200
Center.Top.Color = claSlategray
Value = 355.000000000000000000
Max = 360.000000000000000000
Background.UseParentColor = True
Background.Color = clBtnFace
_Floats = (
(
Min
0.000000000000000000))
object ILExternalGaugeControlHandElement1: TILExternalGaugeControlHandElement
Range.Max = 360.000000000000000000
Range._Floats = (
(
Min
0.000000000000000000))
Value = 330.000000000000000000
Hand.Length.Value = 0.779999971389770500
Hand.TailLength.Value = 0.400000005960464500
Hand.TipWidth.Value = 0.019999999552965160
Hand.TailIndentSize.Value = 0.070000000298023220
Hand.TailWidth.Value = 0.100000001490116100
Hand.Color = claYellow
Hand.Animation.Acceleration = 0.014999999664723870
Hand.Animation.Resistance = 0.159999996423721300
_OwnerCollection = Elements
end
end
end