Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Media
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.Grid
Imports DevExpress.Utils
Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.Core
Imports DevExpress.Xpf.Bars
Imports DevExpress.Xpf.DemoBase.DemosHelpers.Grid
Imports System.Windows.Input
Imports DevExpress.Xpf.Core.Commands

Imports System.Data
Imports DevExpress.Xpf.DemoBase.DemosHelpers
Imports System.ComponentModel

Namespace GridDemo
	<CodeFile("Descriptions/MultiEditorDescriptions(.SL).xaml"), CodeFile("ModuleResources/MultiEditorsTemplates(.SL).xaml"), CodeFile("ModuleResources/MultiEditorsClasses.(cs)")> _
	Partial Public Class MultiEditors
		Inherits GridDemoModule
		Private list As MultiEditorsList
		Public Sub New()
			DataContext = Me
			ButtonEditClickCommand = New DelegateCommand(Of Object)(AddressOf PART_Editor_DefaultButtonClick)
			InitializeComponent()
			UpdateDescription()
			AssignDataSource()
		End Sub
		Private Sub AssignDataSource()
			list = New MultiEditorsList()

			Dim templateSelector As New MultiEditorsTemplateSelector()

			For Each propertyDescriptor As PropertyDescriptor In (CType(list, ITypedList)).GetItemProperties(Nothing)
				Dim column As New GridColumn() With {.FieldName = propertyDescriptor.Name}
				If column.FieldName = "Field" Then
					column.AllowEditing = DefaultBoolean.False
					column.Fixed = FixedStyle.Left
				End If
				If column.FieldName = "TemplateName" Then
					column.Visible = False
					column.ShowInColumnChooser = False
				End If
				If column.FieldName = "EditorType" Then
					column.Fixed = FixedStyle.Right
					column.AllowEditing = DefaultBoolean.False
					column.Width = 200
				End If
				If column.FieldName <> "Field" AndAlso column.FieldName <> "EditorType" Then
					column.CellTemplateSelector = templateSelector
				End If
				grid.Columns.Add(column)
			Next propertyDescriptor
			grid.ItemsSource = list
		End Sub

		Private Sub PART_Editor_DefaultButtonClick(ByVal param As Object)
			Dim listBoxEdit As New ListBoxEdit() With {.ItemsSource = NWindData.CountriesArray, .ShowBorder = False}
			listBoxEdit.EditValue = grid.GetCellValue(grid.View.FocusedRowHandle, CType(grid.CurrentColumn, GridColumn))
			Dim closedHandler As DialogClosedDelegate = Function(dialogResult) AnonymousMethod1(dialogResult, listBoxEdit)

			FloatingContainer.ShowDialogContent(listBoxEdit, grid.View.ActiveEditor, New Size(400, 300), New FloatingContainerParameters() With {.ClosedDelegate = closedHandler, .Title = "Select Country", .ContainerFocusable = False})
		End Sub
		
		Private Function AnonymousMethod1(ByVal dialogResult? As Boolean, ByVal listBoxEdit As ListBoxEdit) As Boolean
			If dialogResult.GetValueOrDefault() = True Then
				grid.View.ShowEditor()
				grid.View.ActiveEditor.EditValue = listBoxEdit.EditValue
			End If
			Return True
		End Function
		Private Sub TableView_ShowGridMenu(ByVal sender As Object, ByVal e As GridMenuEventArgs)
			If e.MenuType = GridMenuType.Column Then
				e.Customizations.Add(New RemoveBarItemAndLinkAction() With {.ItemName = DefaultColumnMenuItemNames.GroupBox})
				e.Customizations.Add(New RemoveBarItemAndLinkAction() With {.ItemName = DefaultColumnMenuItemNames.SortAscending})
				e.Customizations.Add(New RemoveBarItemAndLinkAction() With {.ItemName = DefaultColumnMenuItemNames.SortDescending})
				e.Customizations.Add(New RemoveBarItemAndLinkAction() With {.ItemName = DefaultColumnMenuItemNames.ClearSorting})
				e.Customizations.Add(New RemoveBarItemAndLinkAction() With {.ItemName = DefaultColumnMenuItemNames.GroupColumn})
			End If
		End Sub

		Private Sub TableView_FocusedRowChanged(ByVal sender As Object, ByVal e As FocusedRowHandleChangedEventArgs)
			UpdateDescription()
		End Sub
		Private lastDescription As String
		Private Sub UpdateDescription()
			If descriptionRichTextBox Is Nothing Then
				Return
			End If
			Dim blocks As BlockCollection = descriptionRichTextBox.Document.Blocks
			If grid.View.FocusedRowHandle = GridControl.InvalidRowHandle Then
				Return
			End If
			Dim newDescription As String = list.FieldDescriptions(grid.View.FocusedRowHandle).TemplateName & "Description"
			If newDescription = lastDescription Then
				Return
			End If
			lastDescription = newDescription
			Dim control As New ContentControl() With {.Template = TryCast(Resources(newDescription), ControlTemplate)}
			control.ApplyTemplate()
			Dim container As ParagraphContainer = TryCast(VisualTreeHelper.GetChild(control, 0), ParagraphContainer)

			blocks.Clear()
			blocks.Add(container.Paragraph)
		End Sub
		Private Sub TableView_ShowingEditor(ByVal sender As Object, ByVal e As ShowingEditorEventArgs)
			e.Cancel = list.FieldDescriptions(grid.View.FocusedRowHandle).TemplateName = "ProgressBarEdit"
		End Sub
		Private privateButtonEditClickCommand As ICommand
		Public Property ButtonEditClickCommand() As ICommand
			Get
				Return privateButtonEditClickCommand
			End Get
			Private Set(ByVal value As ICommand)
				privateButtonEditClickCommand = value
			End Set
		End Property
	End Class
End Namespace