Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports XtraPrintingDemos
Imports XtraPrintingDemos.Tutorial1
Imports DevExpress.Tutorials
Imports DevExpress.LookAndFeel
Imports DevExpress.DXperience.Demos
Imports DevExpress.Skins
Imports DevExpress.Utils

Namespace DevExpress.XtraBars.Demos.Tutorials
	Partial Public Class frmMain
		Inherits DevExpress.Tutorials.FrmMain
        <STAThread()> _
        Shared Sub Main()
            DevExpress.UserSkins.BonusSkins.Register()

            Application.Run(New frmMain())
        End Sub

		Private Const IntroDemoInfoName As String = "Intro"

        Private descriptions() As String = { _
            "This lesson shows a Print Preview of a document, which contains a simple ""Product List"". To perform this task, it is necessary to handle a link's CreateReportHeaderArea event and use the e.Graph.DrawString method.", _
            "This lesson illustrates how to draw a text with a custom font face, font size and horizontal and vertical alignment in a document header. This task is similar to Lesson 1, but modifies more properties of the Graphics object in the CreateReportHeaderArea event handler.", _
            "This lesson demonstrates how to draw a simple single-cell table in a document's detail section. For this, you need to handle the CreateDetailArea event and draw a table cell with custom appearance settings.", _
            "This lesson shows how to add a second cell to a table row in the detail band. The second cell is drawn to the right of the main cell and displays a price value with the applied currency format.", _
            "This lesson shows how to add a third cell to a table row in the detail band. The third cell is drawn to the right of the previous two cells and displays a check box, drawn via the DrawCheckBox method.", _
            "This lesson shows how to add a fourth cell to a table row in the detail band. The fourth cell is drawn to the right of the previous three cells and displays an image, drawn via the DrawImage method.", _
            "This lesson demonstrates how to add a header row to the table. To perform this task, it is necessary to handle a link's CreateDetailHeaderArea event and draw four text bricks with the corresponding column names.", _
            "This lesson shows how to draw a table with multiple rows, obtained from a datasource.\r\nIn addition, this tutorial illustrates how to insert page numbers and the current system date into page headers. For this, it is necessary to handle the CreateMarginalHeaderArea event and add system information via the DrawPageInfo method."}

		Public Sub New()
			InitializeComponent()
            Me.Icon = ResourceImageHelper.CreateIconFromResources("AppIcon.ico", GetType(frmMain).Assembly)
		End Sub

		Protected Overrides Function CreateMenu(ByVal manager As BarManager, ByVal lookAndFeel As DefaultLookAndFeel) As DevExpress.DXperience.Demos.LookAndFeelMenu
			Return New PrintingAppearanceMenu(manager, lookAndFeel, String.Empty, True)
		End Function

		Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
			RegisterTutorials()
			TutorialsInfo.FillListBox(Me.listBoxControl1, New String() { IntroDemoInfoName })
			listBoxControl1.SortOrder = SortOrder.Ascending
			listBoxControl1.SelectedIndex = -1
			ShowModule(IntroDemoInfoName)
		End Sub
		Private Sub RegisterTutorials()
            TutorialsInfo.Add(IntroDemoInfoName, "XtraPrintingDemos.Tutorial1.LessonPreviewIntro")
            TutorialsInfo.Add("Lesson 1", "XtraPrintingDemos.Tutorial1.LessonPreviewControl1", descriptions(0))
            TutorialsInfo.Add("Lesson 2", "XtraPrintingDemos.Tutorial1.LessonPreviewControl2", descriptions(1))
            TutorialsInfo.Add("Lesson 3", "XtraPrintingDemos.Tutorial1.LessonPreviewControl3", descriptions(2))
            TutorialsInfo.Add("Lesson 4", "XtraPrintingDemos.Tutorial1.LessonPreviewControl4", descriptions(3))
            TutorialsInfo.Add("Lesson 5", "XtraPrintingDemos.Tutorial1.LessonPreviewControl5", descriptions(4))
            TutorialsInfo.Add("Lesson 6", "XtraPrintingDemos.Tutorial1.LessonPreviewControl6", descriptions(5))
            TutorialsInfo.Add("Lesson 7", "XtraPrintingDemos.Tutorial1.LessonPreviewControl7", descriptions(6))
            TutorialsInfo.Add("Lesson 8", "XtraPrintingDemos.Tutorial1.LessonPreviewControl8", descriptions(7))
		End Sub
		Private Sub listBoxControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles listBoxControl1.SelectedIndexChanged
			If listBoxControl1.SelectedItem IsNot Nothing Then
				ShowModule(listBoxControl1.SelectedItem.ToString())
			End If
		End Sub
		Private Sub ShowModule(ByVal name As String)
			pcMain.SuspendLayout()
			Try
				Dim [module] As ModuleBase = TutorialsInfo.ShowModule(name, gcContainer, MainMenu, defaultLookAndFeel)
				SelectModule([module], True)
			Finally
				pcMain.ResumeLayout()
			End Try
		End Sub
	End Class
End Namespace