Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/SnapMainDemo/Modules/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/SnapMainDemo/Modules/BaseTutorial.vb

Imports Microsoft.VisualBasic
Imports DevExpress.DXperience.Demos
Imports DevExpress.Snap.Core
Imports DevExpress.Utils
Imports System
Imports System.IO
Imports DevExpress.Snap
Imports DevExpress.Snap.Core.Native
Imports DevExpress.Snap.Core.API
Imports DevExpress.DataAccess
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.Snap.Extensions.UI
Imports DevExpress.XtraRichEdit.UI

Namespace SnapDemos.Modules
	Partial Public Class BaseTutorial
		Inherits TutorialControlBase
		Public Sub New()
			InitializeComponent()
			DocumentInitiazlizer.Initialize(Me.snapControl1.Document)
		End Sub
		Protected Overridable ReadOnly Property DocumentInitiazlizer() As SnapDocumentInitializer
			Get
				Return Nothing
			End Get
		End Property
		Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
			MyBase.OnVisibleChanged(e)
			If Visible Then
				MergeRibbon()
			Else
				UnMergeRibbon()
			End If
		End Sub

		Private Sub MergeRibbon()
			If ParentFormMain Is Nothing Then
				Return
			End If
			Dim parentRibbon As DevExpress.XtraBars.Ribbon.RibbonControl = ParentFormMain.Ribbon
			parentRibbon.MergeRibbon(Me.ribbonControl1)
			parentRibbon.Pages(0).Text = "Demo"
			parentRibbon.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.ShowOnMultiplePages
			AddHandler parentRibbon.ShowCustomizationMenu, AddressOf OnShowCustomizationMenu
		End Sub

		Private Sub OnShowCustomizationMenu(ByVal sender As Object, ByVal e As RibbonCustomizationMenuEventArgs)
			Dim isTableGallery As Boolean = TypeOf e.Link.Item Is GalleryChangeTableStyleItem
			If isTableGallery Then
				galleryChangeTableStyleItem1.OnShowCustomizationMenu(sender, e)
			End If
			Dim isTableCellGallery As Boolean = TypeOf e.Link.Item Is GalleryChangeTableCellStyleItem
			If isTableCellGallery Then
				galleryChangeTableCellStyleItem1.OnShowCustomizationMenu(sender, e)
			End If
		End Sub

		Private Sub UnMergeRibbon()
			If ParentFormMain Is Nothing Then
				Return
			End If
			Dim parentRibbon As DevExpress.XtraBars.Ribbon.RibbonControl = ParentFormMain.Ribbon
			parentRibbon.UnMergeRibbon()
			parentRibbon.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
			RemoveHandler parentRibbon.ShowCustomizationMenu, AddressOf OnShowCustomizationMenu
		End Sub
	End Class
End Namespace