I'm trying to put two rad gauges on top of each other. If I set the labels visible = false for the top gauge, it has a completely different size than the bottom. Why does this happen?
aspx code:
VB Code with some formatting options that I'm doing:
aspx code:
<
telerik:RadLinearGauge
runat
=
"server"
ID
=
"rlgOverHeadActual"
Width
=
"590px"
Height
=
"70px"
Skin
=
"Windows7"
Style
=
"float: left; "
ResolvedRenderMode
=
"Classic"
>
<
Pointer
Shape
=
"BarIndicator"
Size
=
"15"
Color
=
"#D8B179"
>
<
Track
Color
=
"#646262"
Visible
=
"true"
Opacity
=
"0.4"
/>
</
Pointer
>
<
Scale
Vertical
=
"false"
>
<
MajorTicks
Visible
=
"false"
Size
=
"20"
Color
=
"Black"
/>
<
MinorTicks
Visible
=
"false"
Size
=
"10"
Color
=
"Black"
/>
<
Labels
Visible
=
"false"
/>
<
Ranges
>
</
Ranges
>
</
Scale
>
</
telerik:RadLinearGauge
><
telerik:RadLinearGauge
runat
=
"server"
ID
=
"rlgOverhead"
Width
=
"590px"
Height
=
"70px"
Skin
=
"Windows7"
Style
=
"float: left;"
ResolvedRenderMode
=
"Classic"
>
<
Pointer
Shape
=
"BarIndicator"
Size
=
"15"
Color
=
"#566D8F"
>
<
Track
Color
=
"#646262"
Visible
=
"true"
Opacity
=
"0.4"
/>
</
Pointer
>
<
Scale
Vertical
=
"false"
>
<
MajorTicks
Visible
=
"true"
Size
=
"20"
Color
=
"Black"
/>
<
MinorTicks
Visible
=
"true"
Size
=
"10"
Color
=
"Black"
/>
<
Labels
/>
<
Ranges
>
</
Ranges
>
</
Scale
>
</
telerik:RadLinearGauge
>
<
asp:Label
ID
=
"lbltest"
runat
=
"server"
></
asp:Label
>
<
asp:SqlDataSource
ID
=
"sqlOverHead"
runat
=
"server"
ConnectionString="<%$ ConnectionStrings:IntranetConnectionString %>"
SelectCommand="USP_Intranet_Select_Overhead" SelectCommandType="StoredProcedure"></
asp:SqlDataSource
>
VB Code with some formatting options that I'm doing:
Private
Sub
OverHeadGauge()
Dim
dvOverHeadGauge
As
DataView
Dim
decOHBudgetAmount
As
Decimal
= 0
Dim
decOHExpenseAmount
As
Decimal
= 0
Dim
dtOverHeadGoodThrough
As
DateTime =
"8/1/2014"
dvOverHeadGauge =
CType
(sqlOverHead.
Select
(DataSourceSelectArguments.Empty), DataView)
' intFiscalYear = CType(dv.Table.Rows(0)(0), Integer)
decOHBudgetAmount =
CType
(dvOverHeadGauge.Table.Rows(0)(0),
Decimal
)
decOHBudgetAmount = Math.Round(decOHBudgetAmount / 1000000, 2)
decOHExpenseAmount =
CType
(dvOverHeadGauge.Table.Rows(0)(1),
Decimal
)
decOHExpenseAmount = Math.Round(decOHExpenseAmount / 1000000, 2)
dtOverHeadGoodThrough =
CType
(dvOverHeadGauge.Table.Rows(0)(2), DateTime)
Dim
decMonthscale
As
Decimal
= decOHBudgetAmount / 12
Dim
mthFY
As
Integer
= 0
Select
Case
Month(dtOverHeadGoodThrough)
Case
1
mthFY = 7
Case
2
mthFY = 8
Case
3
mthFY = 9
Case
4
mthFY = 10
Case
5
mthFY = 11
Case
6
mthFY = 12
Case
7
mthFY = 1
Case
8
mthFY = 2
Case
9
mthFY = 3
Case
10
mthFY = 4
Case
11
mthFY = 5
Case
12
mthFY = 6
End
Select
decMonthscale = decMonthscale * mthFY
'Set the top grid
rlgOverHeadActual.Scale.Min = 0
rlgOverHeadActual.Scale.Max = Math.Round(decOHBudgetAmount + 0.5, 0)
rlgOverHeadActual.Pointer.Value = decOHExpenseAmount
'rlgOverHeadActual.Scale.Labels.Visible = False
rlgOverHeadActual.Scale.MinorTicks.Visible =
False
rlgOverHeadActual.Scale.MajorTicks.Visible =
False
rlgOverHeadActual.Scale.Labels.Format =
"${0}m"
'rlgOverHeadActual.Scale.Labels.Font = "15px 'PT Sans', sans-serif"
If
decOHExpenseAmount > decOHBudgetAmount
Then
rlgOverHeadActual.Pointer.Color = Drawing.Color.Red
End
If
'decOHExpenseAmount = decOHBudgetAmount * 9
rlgOverhead.Scale.Min = 0
rlgOverhead.Scale.Max = Math.Round(decOHBudgetAmount + 0.5, 0)
rlgOverhead.Scale.MajorUnit = 1
rlgOverhead.Scale.MinorUnit = 0.1
rlgOverhead.Pointer.Value = decMonthscale
rlgOverhead.Scale.Labels.Format =
"${0}m"
'rlgOverhead.Scale.Labels.Font = "15px 'PT Sans', sans-serif"
Dim
gr1
As
New
GaugeRange()
Dim
gr2
As
New
GaugeRange()
gr1.From = decOHBudgetAmount
gr1.
To
= rlgOverhead.Scale.Max
gr1.Color = Drawing.ColorTranslator.FromHtml(
"#B14747"
)
'Drawing.Color.Red
rlgOverhead.Scale.Ranges.Add(gr1)
'rlgOverhead.Scale.Ranges.Add(gr2)
End
Sub