Mini Kabibi Habibi

Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraBars.Helpers
Imports System.Drawing

Namespace DevExpress.XtraBars.Demos.Tutorials
    Public Class RadialMenu
        Inherits TutorialControl

        Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
            MyBase.OnLoad(e)
            Initialize()
        End Sub

        Sub Initialize()
            iSetRadialMenuRadius.EditValue = RadialMenu1.MenuRadius
            iSetBackColor.EditValue = RadialMenu1.BackColor
            iSetBorderColor.EditValue = RadialMenu1.BorderColor
            iSetMenuColor.EditValue = RadialMenu1.MenuColor
            iSetMenuHoverColor.EditValue = RadialMenu1.SubMenuHoverColor
            iCloseOnOuterMouseClick.EditValue = RadialMenu1.CloseOnOuterMouseClick
            iCollapseOnOuterMouseClick.EditValue = RadialMenu1.CollapseOnOuterMouseClick
            SkinHelper.InitSkinGallery(GallerySkins, True)
            SkinHelper.InitSkinPopupMenu(popupMenuSkins)
        End Sub

        Sub LabelControl1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelControl1.MouseClick
            If e.Button = MouseButtons.Right Then
                RadialMenu1.ShowPopup(Cursor.Position)
            End If
        End Sub

        Sub iSetMenuColor_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iSetMenuColor.EditValueChanged
            RadialMenu1.MenuColor = CType(iSetMenuColor.EditValue, Color)
        End Sub

        Sub iSetMenuHoverColor_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iSetMenuHoverColor.EditValueChanged
            RadialMenu1.SubMenuHoverColor = CType(iSetMenuHoverColor.EditValue, Color)
        End Sub

        Sub iSetBackColor_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iSetBackColor.EditValueChanged
            RadialMenu1.BackColor = CType(iSetBackColor.EditValue, Color)
        End Sub

        Sub iSetBorderColor_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iSetBorderColor.EditValueChanged
            RadialMenu1.BorderColor = CType(iSetBorderColor.EditValue, Color)
        End Sub

        Sub iSetRadialMenuRadius_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iSetRadialMenuRadius.EditValueChanged
            RadialMenu1.MenuRadius = Convert.ToInt32(iSetRadialMenuRadius.EditValue)
        End Sub

        Sub iCloseOnOuterMouseClick_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iCloseOnOuterMouseClick.EditValueChanged
            RadialMenu1.CloseOnOuterMouseClick = Convert.ToBoolean(iCloseOnOuterMouseClick.EditValue)
        End Sub

        Sub iCollapseOnOuterMouseClick_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iCollapseOnOuterMouseClick.EditValueChanged
            RadialMenu1.CollapseOnOuterMouseClick = Convert.ToBoolean(iCollapseOnOuterMouseClick.EditValue)
        End Sub
    End Class
End Namespace