Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.Snap.Core.API
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid
Imports DevExpress.DXperience.Demos
Imports DevExpress.Utils
Imports System.Data.OleDb
Imports SnapDemos.nwindDataSetTableAdapters
Imports System.Text.RegularExpressions
Imports RegexpMatch = System.Text.RegularExpressions.Match
Imports DevExpress.Snap.Core.Fields
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraRichEdit.UI
Imports DevExpress.Snap.Extensions.UI

Namespace SnapDemos.Modules
	Partial Public Class API
		Inherits TutorialControlBase
		Public Sub New()
			InitializeComponent()
			Using dlg As New WaitDialogForm("Please wait", "Loading...")
				Dim dataSource As Object = GetDataSource()
				gridControl1.DataSource = dataSource
				snapControl1.Document.DataSource = dataSource
			End Using
		End Sub

		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

		Private Function GetDataSource() As Object
			Dim path As String = FilesHelper.FindingFileName(AppDomain.CurrentDomain.BaseDirectory, "Data\nwind.mdb", False)
			Dim dataSource = New nwindDataSet()
			Dim connection = New OleDbConnection()
			connection.ConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}", path)

			Dim categories As New CategoriesTableAdapter()
			categories.Connection = connection
			categories.Fill(dataSource.Categories)

			Dim products As New ProductsTableAdapter()
			products.Connection = connection
			products.Fill(dataSource.Products)

			Dim orderDetails As New Order_DetailsTableAdapter()
			orderDetails.Connection = connection
			orderDetails.Fill(dataSource.Order_Details)

			Dim bindingSource = New BindingSource()
			bindingSource.DataSource = dataSource
			bindingSource.DataMember = "Categories"

			Return bindingSource
		End Function

		Private Sub AdjustSize(ByVal table As Table)
			table.SetPreferredWidth(50 * 100, WidthType.FiftiethsOfPercent)
			table.TableLayout = TableLayoutType.Fixed
			table.ForEachCell(AddressOf AssignPreferredWidth)
		End Sub
		Private Sub AssignPreferredWidth(ByVal cell As TableCell, ByVal rowIndex As Integer, ByVal cellIndex As Integer)
			cell.PreferredWidthType = WidthType.FiftiethsOfPercent
			cell.PreferredWidth = CSng(50.0 * 100.0 / cell.Row.Cells.Count)
		End Sub
		Private Sub ApplyDataSource(ByVal list As SnapList, ByVal node As GridLevelNode)
			If (Not node.IsRootLevel) Then
				list.DataMember = node.RelationName
			End If
		End Sub

		Private Sub ApplyGroups(ByVal list As SnapList, ByVal grid As GridView)
			For Each col As GridColumn In grid.GroupedColumns
				Dim group As SnapListGroupInfo = list.Groups.CreateSnapListGroupInfo(New SnapListGroupParam(col.FieldName, col.SortOrder))
				Dim groupHeader As SnapDocument = group.CreateHeader()
				Dim box As Table = groupHeader.InsertTable(groupHeader.Range.End, 1, 1)
				AdjustSize(box)
				groupHeader.CreateSnText(box.Cell(0, 0).Range.Start, col.FieldName)
				groupHeader.InsertText(box.Cell(0, 0).Range.Start, String.Format("{0}: ", col.FieldName))
				ApplySummary(group, grid)
				list.Groups.Add(group)
			Next col
		End Sub

		Private Shared ReadOnly formatFinder As New Regex("(?:^|[^\{])(\{0(?:(?:,\d+)?(?::([\d]*[\w]?))?)?\})")
		Private Sub BuildSummaryTemplate(ByVal template As SnapDocument, ByVal box As TableCell, ByVal source As GridSummaryItem, ByVal running As SummaryRunning)
			Dim formatFields As MatchCollection = formatFinder.Matches(source.DisplayFormat)
			Dim k As Integer = 0
			template.InsertText(box.ContentRange.End, " ")
			For Each match As RegexpMatch In formatFields
				template.InsertText(box.ContentRange.End, source.DisplayFormat.Substring(k, match.Groups(1).Index - k))
				k = match.Groups(1).Index + match.Groups(1).Length
				Dim snText As SnapText = template.CreateSnText(box.ContentRange.End, source.FieldName)
				snText.BeginUpdate()
				snText.SummaryRunning = running
				snText.SummaryFunc = source.SummaryType
				Dim format As String = match.Groups(2).Value
				If (Not String.IsNullOrEmpty(format)) Then
					If format.EndsWith("C", StringComparison.InvariantCultureIgnoreCase) Then
						snText.FormatString = "$0.00"
					End If
				End If
				snText.EndUpdate()
			Next match
			template.InsertText(box.ContentRange.End, source.DisplayFormat.Substring(k))
		End Sub

		Private Sub ApplySummary(ByVal group As SnapListGroupInfo, ByVal grid As GridView)
			For Each item As GridSummaryItem In grid.GroupSummary
				Dim summary As GridGroupSummaryItem = TryCast(item, GridGroupSummaryItem)
				If summary IsNot Nothing Then
					If summary.ShowInGroupColumnFooter Is Nothing Then
						BuildSummaryTemplate(group.Header, group.Header.Tables(0).Cell(0, 0), summary, SummaryRunning.Group)
					Else
						Dim col As Integer = grid.VisibleColumns.IndexOf(summary.ShowInGroupColumnFooter)
						If col < 0 Then
							Continue For
						End If
						Dim footer As SnapDocument = group.Footer
						If footer Is Nothing Then
							footer = group.CreateFooter()
						End If
						If footer.Tables.Count = 0 OrElse footer.Tables(0).Rows.Count = 0 OrElse footer.Tables(0).Rows(0).Cells.Count <> grid.VisibleColumns.Count Then
							Dim table As Table = footer.InsertTable(footer.Range.Start, 1, grid.VisibleColumns.Count)
							AdjustSize(table)
						End If
						BuildSummaryTemplate(footer, footer.Tables(0).Cell(0, col), summary, SummaryRunning.Group)
					End If
				End If
			Next item
		End Sub

		Private Sub ApplySorting(ByVal list As SnapList, ByVal grid As GridView)
			For Each col As GridColumn In grid.SortedColumns
				list.Sorting.Add(New SnapListGroupParam(col.FieldName, col.SortOrder))
			Next col
		End Sub

		Private Sub ApplyFilter(ByVal list As SnapList, ByVal grid As GridView)
			Dim filter As String = grid.ActiveFilterString
			If (Not String.IsNullOrEmpty(filter)) Then
				list.Filters.Add(filter)
			End If
		End Sub

		Private Sub MakeTemplate(ByVal list As SnapList, ByVal grid As GridView, <System.Runtime.InteropServices.Out()> ByRef table As Table, <System.Runtime.InteropServices.Out()> ByRef template As SnapDocument)
			template = list.RowTemplate
			Dim header As SnapDocument = list.ListHeader

			table = template.InsertTable(template.Range.End, 1, grid.VisibleColumns.Count)
			Dim caption As Table = header.InsertTable(header.Range.End, 1, grid.VisibleColumns.Count)
			AdjustSize(table)
			AdjustSize(caption)

			For Each col As GridColumn In grid.VisibleColumns
				header.InsertText(caption.Cell(0, col.VisibleIndex).Range.Start, col.FieldName)
				Dim cell As TableCell = table.Cell(0, col.VisibleIndex)

				Dim pos As DocumentPosition = cell.Range.Start
				Dim colType As Type = GetColType(col)
				If colType Is GetType(Byte()) Then
					template.CreateSnImage(pos, col.FieldName)
				ElseIf colType Is GetType(Boolean) Then
					template.CreateSnCheckBox(pos, col.FieldName)
				Else
					template.CreateSnText(pos, col.FieldName)
				End If
			Next col
		End Sub

		Private Function GetColType(ByVal gridCol As GridColumn) As Type
			If gridCol.View.DataSource IsNot Nothing Then
				Return gridCol.ColumnType
			End If
			If String.Equals(gridCol.View.Name, "detailView") Then
				Dim products As nwindDataSet.ProductsDataTable = nwindDataSet.Products
				For Each dataCol As DataColumn In products.Columns
					If String.Equals(gridCol.FieldName, dataCol.ColumnName) Then
						Return dataCol.DataType
					End If
				Next dataCol
			End If
			Return GetType(System.Object)
		End Function

		Private Sub MakeReportFooter(ByVal list As SnapList, ByVal grid As GridView)
			Dim tmp = New Dictionary(Of Integer, List(Of GridColumnSummaryItem))()
			For Each column As GridColumn In grid.VisibleColumns
				Dim colNum As Integer = column.VisibleIndex
				For Each item As GridColumnSummaryItem In column.Summary
					If (Not tmp.ContainsKey(colNum)) Then
						tmp(colNum) = New List(Of GridColumnSummaryItem)(1)
					End If
					tmp(colNum).Add(item)
				Next item
			Next column
			If tmp.Count = 0 Then
				Return
			End If
			Dim footer As SnapDocument = list.ListFooter
			Dim table As Table = footer.InsertTable(footer.Range.Start, tmp.Values.Max(Function(o) o.Count), grid.VisibleColumns.Count)
			AdjustSize(table)
			For Each rec As KeyValuePair(Of Integer, List(Of GridColumnSummaryItem)) In tmp
				Dim colNum As Integer = rec.Key
				Dim rowNum As Integer = 0
				For Each summary As GridColumnSummaryItem In rec.Value
					BuildSummaryTemplate(footer, table.Cell(rowNum, colNum), summary, SummaryRunning.Report)
					rowNum += 1
				Next summary
			Next rec
		End Sub

		Private Sub ApplyDetails(ByVal node As GridLevelNode, ByVal table As Table, ByVal template As SnapDocument, ByVal level As Integer)
			If node.HasChildren Then
				For Each child As GridLevelNode In node.Nodes
					Dim detail As TableRow = table.Rows.Append()
					table.MergeCells(detail.FirstCell, detail.LastCell)
					Convert(child, template, detail.Range.Start, level + 1)
				Next child
			End If
		End Sub

		Private Sub Convert(ByVal node As GridLevelNode, ByVal document As SnapDocument)
			Convert(node, document, document.Range.End, 1)
		End Sub
		Private Sub Convert(ByVal node As GridLevelNode, ByVal document As SnapDocument, ByVal position As DocumentPosition, ByVal level As Integer)
			Dim grid As GridView = TryCast(node.LevelTemplate, GridView)
			If grid Is Nothing OrElse grid.VisibleColumns.Count = 0 Then
				Return
			End If

			Dim list As SnapList = document.CreateSnList(position, grid.Name)
			list.BeginUpdate()

			ApplyDataSource(list, node)
			ApplyGroups(list, grid)
			ApplySorting(list, grid)
			ApplyFilter(list, grid)
			Dim table As Table = Nothing
			Dim template As SnapDocument = Nothing
			MakeTemplate(list, grid, table, template)
			MakeReportFooter(list, grid)
			ApplyDetails(node, table, template, level)

			list.ApplyTableStyles(level)
			list.EndUpdate()
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton1.Click
			Using dlg As New WaitDialogForm("Please wait", "Document processing...")
				snapControl1.CreateNewDocument()
				Dim document As SnapDocument = snapControl1.Document
				document.BeginUpdate()
				Convert(gridControl1.LevelTree, document)
				document.Fields.Update()
				document.EndUpdate()
			End Using
		End Sub
	End Class
End Namespace