Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Windows.Data
Imports GridDemo
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.Grid
Imports DevExpress.Xpf.DemoBase.NWind
Imports System.Collections.ObjectModel

Namespace GridDemo
 Partial Public Class NewItemRow
	 Inherits GridDemoModule
		Private newRowID As Integer = 10000
  Public Sub New()
   InitializeComponent()

			grid.ItemsSource = New ObservableCollection(Of OrderDetails)(TryCast((CType(Resources("NWindDataLoader"), NWindDataLoader)).OrderDetailsNew, IEnumerable(Of OrderDetails)))
  End Sub

		Protected Overrides Sub RaiseModuleAppear()
			MyBase.RaiseModuleAppear()
			view.ScrollIntoView(view.FocusedRowHandle)
		End Sub
  Private Sub view_InitNewRow(ByVal sender As Object, ByVal e As DevExpress.Xpf.Grid.InitNewRowEventArgs)
   grid.SetCellValue(e.RowHandle, colQuantity, 1)
			grid.SetCellValue(e.RowHandle, colUnitPrice, 100)
			grid.SetCellValue(e.RowHandle, colDiscount, 0)
			grid.SetCellValue(e.RowHandle, colOrderID, newRowID)
			newRowID += 1
  End Sub
		Private Sub newItemRowPositionChanged(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
			If view.NewItemRowPosition <> NewItemRowPosition.None Then
				view.FocusedRowHandle = GridControl.NewItemRowHandle
				view.ScrollIntoView(view.FocusedRowHandle)
			End If
		End Sub
 End Class
End Namespace