Mini Kabibi Habibi

Imports System
Imports DevExpress.XtraEditors
Imports DevExpress.Utils

Namespace DevExpress.XtraCharts.Demos.Modules
    Partial Public Class ChartDemoBase
        Inherits TutorialControl

        Protected panel As PanelControl
        Protected WithEvents checkEditShowLabels As DevExpress.XtraEditors.CheckEdit

        Protected Property CheckEditShowLabelsVisible() As Boolean
            Get
                Return checkEditShowLabels.Visible
            End Get
            Set(ByVal value As Boolean)
                checkEditShowLabels.Visible = value
            End Set
        End Property
        Protected Property ShowLabels() As Boolean
            Get
                Return Me.checkEditShowLabels.Checked
            End Get
            Set(ByVal value As Boolean)
                Me.checkEditShowLabels.Checked = value
            End Set
        End Property
        Protected Overridable ReadOnly Property CrosshairEnabled() As DefaultBoolean
            Get
                Return DefaultBoolean.Default
            End Get
        End Property
        Protected Overridable ReadOnly Property ToolTipEnabled() As DefaultBoolean
            Get
                Return DefaultBoolean.Default
            End Get
        End Property
        Public Property AppearanceName() As String
            Get
                If ChartControl Is Nothing Then
                    Return String.Empty
                Else
                    Return ChartControl.AppearanceName
                End If
            End Get
            Set(ByVal value As String)
                SetAppearanceName(value)
            End Set
        End Property
        Public Property PaletteName() As String
            Get
                If ChartControl Is Nothing Then
                    Return String.Empty
                Else
                    Return ChartControl.PaletteName
                End If
            End Get
            Set(ByVal value As String)
                If Not ChartControl Is Nothing Then
                    ChartControl.PaletteName = value
                End If
            End Set
        End Property

        Public Sub New()
            InitializeComponent()
        End Sub
        Protected Sub SetNumericOptions(ByVal series As Series, ByVal format As NumericFormat, ByVal precision As Integer)
            series.Label.PointOptions.ValueNumericOptions.Format = format
            series.Label.PointOptions.ValueNumericOptions.Precision = precision
        End Sub
        Protected Overridable Sub ChartDemoBase_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not ChartControl Is Nothing And Not DesignMode Then
                InitControls()
                UpdateControls()
            End If
        End Sub
        Protected Overridable Sub SetAppearanceName(ByVal appearanceName As String)
            If Not ChartControl Is Nothing Then
                ChartControl.AppearanceName = appearanceName
            End If
        End Sub
        Protected Overridable Sub checkEditShowLabels_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles checkEditShowLabels.CheckedChanged
            For Each series As Series In ChartControl.Series
                If series.Label IsNot Nothing Then
                    If Me.checkEditShowLabels.Checked Then
                        series.LabelsVisibility = DefaultBoolean.True
                    Else
                        series.LabelsVisibility = DefaultBoolean.False
                    End If
                End If
            Next series
            If Me.checkEditShowLabels.Checked Then
                ChartControl.CrosshairEnabled = DefaultBoolean.False
                ChartControl.ToolTipEnabled = DefaultBoolean.False
            Else
                ChartControl.CrosshairEnabled = CrosshairEnabled
                ChartControl.ToolTipEnabled = ToolTipEnabled
            End If
            UpdateControls()
        End Sub
        Protected Overridable Sub InitControls()
        End Sub
        Public Overridable Sub UpdateControls()
        End Sub
    End Class
End Namespace