Mini Kabibi Habibi

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.Utils.Menu
Imports DevExpress.DXperience.Demos
Imports DevExpress.XtraPrinting

Namespace DevExpress.XtraScheduler.Demos
	Public Class TutorialControl
		Inherits TutorialControlBase
		Implements IDXMenuManager
		Private menu As LookAndFeelMenu = Nothing
		Private fMenuManager As IDXMenuManager

		Public Sub New()
		End Sub

		Public Overridable ReadOnly Property PrintingSchedulerControl() As SchedulerControl
			Get
				Return Nothing
			End Get
		End Property

		Public Property DemoMainMenu() As LookAndFeelMenu
			Get
				Return menu
			End Get
			Set
				If menu Is Value Then
					Return
				End If
				Me.menu = Value
			End Set
		End Property

		Private Sub ShowPopupMenu(ByVal menu As DXPopupMenu, ByVal control As Control, ByVal pos As Point) Implements IDXMenuManager.ShowPopupMenu
			MenuManagerHelper.ShowMenu(menu, LookAndFeel, fMenuManager, control, pos)
		End Sub
		Private Function Clone(ByVal newForm As Form) As IDXMenuManager Implements IDXMenuManager.Clone
			Return Me
		End Function
		Private Sub DisposeManager() Implements IDXMenuManager.DisposeManager
		End Sub

		Public Property MenuManager() As IDXMenuManager
			Get
				Return fMenuManager
			End Get
			Set
				fMenuManager = Value
			End Set
		End Property

		Public Overridable ReadOnly Property ShowOptions() As Boolean 'TODO
			Get
				Return False
			End Get
		End Property

		Private Overloads Sub OnSwitchStyle(ByVal sender As Object, ByVal e As EventArgs)
			OnSwitchStyle()
			'MessageBox.Show("Style Changed: " + AppearanceMenu.NeedPaintAppearance.ToString());
		End Sub
		Protected Overrides Sub SetControlManager(ByVal ctrl As Control, ByVal manager As DevExpress.XtraBars.BarManager)
			Dim scheduler As DevExpress.XtraScheduler.SchedulerControl = TryCast(ctrl, DevExpress.XtraScheduler.SchedulerControl)
			If scheduler IsNot Nothing Then
				scheduler.MenuManager = manager
			End If
			Dim be As DevExpress.XtraEditors.BaseEdit = TryCast(ctrl, DevExpress.XtraEditors.BaseEdit)
			If be IsNot Nothing Then
				be.MenuManager = manager
			End If
		End Sub
		Protected Overrides Sub AllowExport()
			EnabledPrintExportActions(True, True, ExportFormats.PDF Or ExportFormats.HTML Or ExportFormats.MHT Or ExportFormats.Image, False)
		End Sub

		#Region "Print and Export"
		Protected Overrides Sub ExportToCore(ByVal filename As String, ByVal ext As String)
			If PrintingSchedulerControl Is Nothing Then
				Return
			End If
			Dim printer As New ComponentPrinter(PrintingSchedulerControl)
			Dim oldCursor As Cursor = Cursor.Current
			Cursor.Current = Cursors.WaitCursor
			If ext = "pdf" Then
				printer.Export(ExportTarget.Pdf, filename)
			End If
			If ext = "html" Then
				printer.Export(ExportTarget.Html, filename)
			End If
			If ext = "mht" Then
				printer.Export(ExportTarget.Mht, filename)
			End If
			If ext = "img" Then
				printer.Export(ExportTarget.Image, filename)
			End If
			Cursor.Current = oldCursor
		End Sub
		Protected Overrides Sub ExportToPDF()
			ExportTo("pdf", "PDF document (*.pdf)|*.pdf")
		End Sub
		Protected Overrides Sub ExportToHTML()
			ExportTo("html", "HTML document (*.html)|*.html")
		End Sub
		Protected Overrides Sub ExportToImage()
			ExportTo("img", "BMP image (*.bmp)|*.bmp|EMF image (*.emf)|*.emf|WMF image (*.wmf)|*.wmf|GIF image (*.gif)|*.gif|JPEG image (*.jpg)|*.jpg|PNG image (*.png)|*.png|TIFF image (*.tiff)|*.tiff")
		End Sub
		Protected Overrides Sub PrintPreview()
			If PrintingSchedulerControl IsNot Nothing Then
				PrintingSchedulerControl.ShowPrintPreview()
			End If
		End Sub
		Protected Overrides Sub Print()
			If PrintingSchedulerControl IsNot Nothing Then
				PrintingSchedulerControl.Print()
			End If
		End Sub
		#End Region
	End Class
End Namespace