Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports DevExpress.XtraReports
Imports DevExpress.XtraCharts
Imports System.Windows
Imports System.Data
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.Printing
Imports DevExpress.Xpf.Editors

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

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

		Private Sub CustomizeParameterEditors(ByVal sender As Object, ByVal e As CustomizeParameterEditorsEventArgs)
			Dim appearanceNames() As String = (CType(ReportPreviewModel.Report, XtraReportsDemos.Charts.Report)).xrChart1.GetAppearanceNames()
			If e.Parameter.Name = "AppearanceParameter" Then
				e.Editor = New ComboBoxEdit() With {.IsTextEditable = False, .ItemsSource = appearanceNames}
				e.BoundDataMember = "SelectedIndex"
			End If
		End Sub

		Protected Overrides Function CreateReport() As IReport
			Return New XtraReportsDemos.Charts.Report()
		End Function
		Protected Overrides Sub FillData(ByVal dataFiller As DataFiller)
			dataFiller.Fill(CType(ReportPreviewModel.Report, XtraReportsDemos.Charts.Report))
		End Sub
	End Class
End Namespace