or
<
UserControl
x:Class
=
"ucValve"
xmlns:telerik
=
"http://schemas.telerik.com/2008/xaml/presentation"
d:DesignHeight
=
"48"
d:DesignWidth
=
"48"
mc:Ignorable
=
"d"
>
<
Grid
>
<
telerik:RadRadialGauge
>
<
telerik:RadRadialGauge.InnerBackground
>
<
SolidColorBrush
/>
</
telerik:RadRadialGauge.InnerBackground
>
<
telerik:RadRadialGauge.InnerBorderBrush
>
<
SolidColorBrush
/>
</
telerik:RadRadialGauge.InnerBorderBrush
>
<
telerik:RadRadialGauge.OuterBackground
>
<
SolidColorBrush
/>
</
telerik:RadRadialGauge.OuterBackground
>
<
telerik:RadRadialGauge.OuterBorderBrush
>
<
SolidColorBrush
/>
</
telerik:RadRadialGauge.OuterBorderBrush
>
<
telerik:RadialScale
x:Name
=
"Scale"
MajorTickRelativeHeight
=
"0"
MajorTicks
=
"0"
Max
=
"100"
Min
=
"0"
Radius
=
"1.25"
StartAngle
=
"180"
SweepAngle
=
"90"
>
<
telerik:RadialScale.Indicators
>
<
telerik:Needle
x:Name
=
"Needle"
BorderBrush
=
"Black"
>
<
telerik:Needle.Style
>
<
Style
TargetType
=
"{x:Type telerik:Needle}"
>
<
Setter
Property
=
"telerik:ScaleObject.Location"
Value
=
"Inside"
/>
<
Setter
Property
=
"telerik:ScaleObject.RelativeWidth"
Value
=
"0.05"
/>
</
Style
>
</
telerik:Needle.Style
>
</
telerik:Needle
>
<
telerik:Pinpoint
Background
=
"Black"
BorderThickness
=
"1"
>
<
telerik:Pinpoint.Style
>
<
Style
TargetType
=
"{x:Type telerik:Pinpoint}"
>
<
Setter
Property
=
"telerik:ScaleObject.Location"
Value
=
"Inside"
/>
<
Setter
Property
=
"telerik:ScaleObject.RelativeHeight"
Value
=
"0.2"
/>
<
Setter
Property
=
"telerik:ScaleObject.RelativeWidth"
Value
=
"0.2"
/>
</
Style
>
</
telerik:Pinpoint.Style
>
</
telerik:Pinpoint
>
</
telerik:RadialScale.Indicators
>
<
telerik:RadialScale.LabelTemplate
>
<
DataTemplate
/>
</
telerik:RadialScale.LabelTemplate
>
</
telerik:RadialScale
>
</
telerik:RadRadialGauge
>
</
Grid
>
</
UserControl
>
Imports
System.ComponentModel
Public
Class
ucValve
Public
Sub
New
()
InitializeComponent()
Value = valueDefaultValue
End
Sub
#Region "Properties"
Private
Const
valueDefaultValue
As
Double
= 0
<Category(
"Common"
), DefaultValue(valueDefaultValue)>
Public
Property
Value
As
Double
Get
Return
Needle.Value
End
Get
Set
(
ByVal
value
As
Double
)
Needle.Value = value
End
Set
End
Property
Public
ReadOnly
Property
Maximum
As
Double
Get
Return
Scale.Max
End
Get
End
Property
Public
ReadOnly
Property
Minimum
As
Double
Get
Return
Scale.Min
End
Get
End
Property
#End Region
End
Class
<
telerik:Needle
x:Name
=
"Needle"
BorderBrush
=
"Black"
>
<
telerik:Needle
x:Name
=
"Needle"
BorderBrush
=
"Black"
TailHeight
=
"1"
>
<
telerik:RadGridView
Grid.Column
=
"0"
Grid.Row
=
"1"
Grid.ColumnSpan
=
"4"
ItemsSource
=
"{Binding ModelCollection}"
ActionOnLostFocus
=
"None"
AutoGenerateColumns
=
"False"
CanUserSortColumns
=
"True"
IsFilteringAllowed
=
"True"
SelectionMode
=
"Multiple"
ShowGroupPanel
=
"True"
RowIndicatorVisibility
=
"Collapsed"
Height
=
"470"
CanUserSelect
=
"True"
SelectedItem
=
"{Binding SelectedModel, Mode=TwoWay}"
IsSynchronizedWithCurrentItem
=
"False"
IsReadOnly
=
"True"
>
<
telerik:RadGridView.Columns
>
<
telerik:GridViewDataColumn
Header
=
"Kode"
Width
=
"100"
DataMemberBinding
=
"{Binding Code}"
/>
<
telerik:GridViewDataColumn
Header
=
"Tekst"
Width
=
"360"
DataMemberBinding
=
"{Binding Text}"
/>
</
telerik:RadGridView.Columns
>
</
telerik:RadGridView
>