Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/ChartsDemo.Wpf/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/ChartsDemo.Wpf/ChartsDemoModuleControl.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports DevExpress.Xpf.Charts
Imports DevExpress.Xpf.DemoBase

Namespace ChartsDemo
	Public Class ChartsDemoModule
		Inherits DemoModule
		Public Const ToolTipOffset As Double = 10

		Public Overridable ReadOnly Property ActualChart() As ChartControl
			Get
				Return Nothing
			End Get
		End Property

		Public Sub New()
		End Sub
		Public Overrides Function SupportSidebarContent() As Boolean
			Return True
		End Function
		Public Overrides Function GetSidebarContent() As Object
			Return New PaletteChooser(ActualChart)
		End Function
		Public Overrides Sub UpdateSidebarContent(ByVal sidebarContent As Object)
			MyBase.UpdateSidebarContent(sidebarContent)
			Dim paletteChooser As PaletteChooser = TryCast(sidebarContent, PaletteChooser)
			If paletteChooser IsNot Nothing AndAlso ActualChart IsNot Nothing Then
				paletteChooser.UpdateChart(ActualChart)
			End If
		End Sub

		Public Overrides Function GetSidebarIcon() As ImageSource
			Return New BitmapImage(New Uri("/ChartsDemo;component/Images/Palette.png", UriKind.Relative))
		End Function
		Public Overrides Function GetSidebarIconSelected() As ImageSource
			Return New BitmapImage(New Uri("/ChartsDemo;component/Images/PaletteSelected.png", UriKind.Relative))
		End Function
		Public Overrides Function GetSidebarTag() As String
			Return "Palette"
		End Function
	End Class
End Namespace