or
<
telerik:RadGridView
x:Name
=
"something"
ItemsSource
=
"{Binding Events}"
telerik:Theming.Theme
=
"Windows7"
ShowGroupPanel
=
"False"
AutoGenerateColumns
=
"False"
ScrollMode
=
"Deferred"
>
<
telerik:RadGridView.ScrollPositionIndicatorTemplate
>
<
DataTemplate
>
<
TextBlock
Text
=
"{Binding ScrollIndicator}"
/>
</
DataTemplate
>
</
telerik:RadGridView.ScrollPositionIndicatorTemplate
>
<
telerik:RadGridView.Columns
>
<
telerik:GridViewDataColumn
Header
=
"ID"
DataMemberBinding
=
"{Binding ID}"
Width
=
"100"
/>
<!--<
telerik:GridViewDataColumn
Header
=
"Artikkel"
DataMemberBinding
=
"{Binding Article}"
/>
<
telerik:GridViewDataColumn
Header
=
"Sats"
DataMemberBinding
=
"{Binding Batch}"
/>
<
telerik:GridViewDataColumn
Header
=
"Serienummer"
DataMemberBinding
=
"{Binding Serial}"
/>-->
<
telerik:GridViewDataColumn
Header
=
"Operasjon"
DataMemberBinding
=
"{Binding EventType}"
Width
=
"150"
/>
<
telerik:GridViewDataColumn
Header
=
"Startet"
DataMemberBinding
=
"{Binding Started}"
Width
=
"100"
/>
<
telerik:GridViewDataColumn
Header
=
"Avsluttet"
DataMemberBinding
=
"{Binding Ended}"
Width
=
"100"
/>
<
telerik:GridViewDataColumn
Header
=
"Status"
Width
=
"100"
>
<
telerik:GridViewDataColumn.CellTemplate
>
<
DataTemplate
>
<
TextBlock
Text
=
"{Binding Status}"
HorizontalAlignment
=
"Left"
FontWeight
=
"Bold"
Foreground
=
"{Binding StatusColor}"
/>
</
DataTemplate
>
</
telerik:GridViewDataColumn.CellTemplate
>
</
telerik:GridViewDataColumn
>
<
telerik:GridViewDataColumn
Header
=
"Bruker"
DataMemberBinding
=
"{Binding EmployeeID}"
Width
=
"100"
/>
<
telerik:GridViewDataColumn
Header
=
"Informasjon"
DataMemberBinding
=
"{Binding Information}"
Width
=
"300"
/>
</
telerik:RadGridView.Columns
>
</
telerik:RadGridView
>
<
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"
>