Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.XtraReports
Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.Printing

Namespace ReportWpfDemo
	Partial Public Class Table
		Inherits ReportModuleBase
		Public Sub New()
			InitializeComponent()
		End Sub
	End Class

	Public Class TableViewModel
		Inherits ReportModuleViewModelBase
		Public Sub New()
			AddHandler ReportPreviewModel.CustomizeParameterEditors, AddressOf ReportPreviewModel_CustomizeParameterEditors
		End Sub

		Private Sub ReportPreviewModel_CustomizeParameterEditors(ByVal sender As Object, ByVal e As CustomizeParameterEditorsEventArgs)
			If e.Parameter.Name = "OrderIdParameter" Then
				Dim spinEdit As New SpinEdit()
				spinEdit.IsFloatValue = False
				spinEdit.MinValue = 10248
				spinEdit.MaxValue = 11077
				spinEdit.InvalidValueBehavior = DevExpress.Xpf.Editors.Validation.InvalidValueBehavior.AllowLeaveEditor
				e.BoundDataMember = "EditValue"
				e.Editor = spinEdit
			End If
			If e.Parameter.Name = "MaxRowCountParameter" Then
				Dim spinEdit As New SpinEdit()
				spinEdit.IsFloatValue = False
				spinEdit.MinValue = 1
				spinEdit.MaxValue = Decimal.MaxValue
				spinEdit.InvalidValueBehavior = DevExpress.Xpf.Editors.Validation.InvalidValueBehavior.AllowLeaveEditor
				e.BoundDataMember = "EditValue"
				e.Editor = spinEdit
			End If
		End Sub

		Protected Overrides Function CreateReport() As IReport
#If XBAP Then
			Return New XtraReportsDemos.TableReport.Report(New DataFiller())
#Else
			Return New XtraReportsDemos.TableReport.Report()
#End If
		End Function
	End Class
End Namespace