or
RadContextMenu.Resources
>
<
DataTemplate
x:Key
=
"SubItemTemplate"
>
<
telerik:RadMenuItem
Header
=
"{Binding DisplayName}"
IsEnabled
=
"{Binding Enabled}"
>
<
telerik:RadMenuItem.Icon
>
<
Image
Stretch
=
"Fill"
MinHeight
=
"0"
MinWidth
=
"0"
MaxWidth
=
"16"
MaxHeight
=
"16"
Width
=
"Auto"
Height
=
"Auto"
Source
=
"{Binding Image}"
/>
</
telerik:RadMenuItem.Icon
>
</
telerik:RadMenuItem
>
</
DataTemplate
>
</
telerik:RadContextMenu.Resources
>
<!-- Region Add -->
<
telerik:RadMenuItem
Header
=
"Add"
ItemsSource
=
"{Binding Path=PossibleSubItems}"
FontWeight
=
"Bold"
ItemTemplate
=
"{StaticResource SubItemTemplate}"
>
<
telerik:RadMenuItem.Icon
>
<
Image
Width
=
"16"
Height
=
"16"
Stretch
=
"Fill"
Source
=
"/Images/add2_16.png"
/>
</
telerik:RadMenuItem.Icon
>
</
telerik:RadMenuItem
>
<
telerik:RadMenuItem
IsSeparator
=
"True"
/>
<!-- End Region -->
<!-- FOLLOWING PART SHOWS THE CONTEXTUAL SUB-ITEMS -->
<
ItemsControl
ItemsSource
=
"{Binding ContextMenuSubItems}"
ItemTemplate
=
"{StaticResource SubItemTemplate}"
/>
<
telerik:RadMenuItem
IsSeparator
=
"True"
/>
<!-- Region Delete -->
<
telerik:RadMenuItem
Header
=
"Delete..."
>
<
telerik:RadMenuItem.Icon
>
<
Image
Source
=
"/Images/delete2_16.png"
/>
</
telerik:RadMenuItem.Icon
>
</
telerik:RadMenuItem
>
<!-- End Region -->
<!-- Region Rename -->
<
telerik:RadMenuItem
Header
=
"Rename"
/>
<!-- End Region -->
</
telerik:RadContextMenu
>
<
telerik:LineSeries
ItemsSource
=
"{Binding MyCrazyLineNodes}"
ValueBinding
=
"Value"
CategoryBinding
=
"Category"
ShowLabels
=
"False"
>
<
telerik:LineSeries.PointTemplate
>
<
DataTemplate
>
<
Grid
>
<
Canvas
Margin
=
"0,10,0,0"
Visibility
=
"{Binding IsValueVisible, [Converter stuff...}"
>
<
TextBlock
Text
=
"{Binding Value}"
/>
</
Canvas
>
<
Path
Data
=
"M4,0 L8,4 L4,8 L0,4 Z"
Fill
=
"Red"
Width
=
"8"
Height
=
"8"
Stretch
=
"Fill"
/>
</
Grid
>
</
DataTemplate
>
</
telerik:LineSeries.PointTemplate
>
<
AxisStuffAndSoOn
/>
</
telerik:LineSeries
>
<
Style
TargetType
=
"{x:Type telerik:RadPane}"
>
<
Setter
Property
=
"ContextMenuTemplate"
Value
=
"{x:Null}"
/>
</
Style
>
<
chart:RadCartesianChart
Grid.Column
=
"0"
Grid.Row
=
"0"
>
<
chart:RadCartesianChart.HorizontalAxis
>
<
telerik:CategoricalAxis
FontFamily
=
"Segoe UI"
FontSize
=
"12"
/>
</
chart:RadCartesianChart.HorizontalAxis
>
<
chart:RadCartesianChart.VerticalAxis
>
<
chartView:LinearAxis
Minimum
=
"0"
Maximum
=
"100"
/>
</
chart:RadCartesianChart.VerticalAxis
>
<
chartView:BarSeries
ItemsSource
=
"{Binding LogicalProcessors}"
CategoryBinding
=
"DisplayName"
ValueBinding
=
"Value"
>
<
chartView:BarSeries.PointTemplate
>
<
DataTemplate
>
<
Rectangle
Fill
=
"Green"
/>
</
DataTemplate
>
</
chartView:BarSeries.PointTemplate
>
</
chartView:BarSeries
>
</
chart:RadCartesianChart
>
<
ItemsControl
Grid.Column
=
"0"
Grid.Row
=
"1"
ItemsSource
=
"{Binding LogicalProcessors}"
>
<
ItemsControl.ItemsPanel
>
<
ItemsPanelTemplate
>
<
StackPanel
/>
</
ItemsPanelTemplate
>
</
ItemsControl.ItemsPanel
>
<
ItemsControl.ItemTemplate
>
<
DataTemplate
>
<
TextBlock
Text
=
"{Binding Value}"
/>
</
DataTemplate
>
</
ItemsControl.ItemTemplate
>
</
ItemsControl
>
Application.Current.Resources.MergedDictionaries.Clear()
Dim
res1
As
ResourceDictionary =
New
ResourceDictionary()
res1.Source =
New
Uri(
"/Telerik.Windows.Themes.Expression_Dark;component/Themes/System.Windows.xaml"
, UriKind.RelativeOrAbsolute)
Dim
res2
As
ResourceDictionary =
New
ResourceDictionary()
res2.Source =
New
Uri(
"/Telerik.Windows.Themes.Expression_Dark;component/Themes/Telerik.Windows.Controls.xaml"
, UriKind.RelativeOrAbsolute)
Dim
res3
As
ResourceDictionary =
New
ResourceDictionary()
res3.Source =
New
Uri(
"/Telerik.Windows.Themes.Expression_Dark;component/Themes/Telerik.Windows.Controls.Input.xaml"
, UriKind.RelativeOrAbsolute)
...
Application.Current.Resources.MergedDictionaries.Add(res1)
Application.Current.Resources.MergedDictionaries.Add(res2)
Application.Current.Resources.MergedDictionaries.Add(res3)
Dim
str
As
String
= My.Application.Current.Resources.MergedDictionaries(1).Source.OriginalString
str = Strings.Mid(str, 25, str.Length)
str = Left(str, str.IndexOf(
";"
))
'Returns the Theme's name in use
Dim
colorPalette = MetroColors.PaletteInstance
Dim
converter
As
New
System.Windows.Media.BrushConverter
Me
.gridStatus.Background =
DirectCast
(converter.ConvertFromString(colorPalette.AccentColor.ToString), Brush)