Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraSpellChecker
Imports DevExpress.Xpf.Ribbon
Imports DevExpress.Xpf.SpellChecker

Namespace RichEditDemo
	Partial Public Class RibbonUI
		Inherits RichEditDemoModule
		Private spellChecker As SpellChecker

		Public Sub New()
			InitializeComponent()
			Me.spellChecker = CheckSpelling.InitializeSpellChecker()
			OpenXmlLoadHelper.Load("MovieRentals.docx", richEdit)
		End Sub

		Private Sub richEdit_StartHeaderFooterEditing(ByVal sender As Object, ByVal e As HeaderFooterEditingEventArgs)
			catHeaderFooterTools.IsVisible = True
			ribbonControl.SelectedPage = pageHeaderFooterToolsInsert
		End Sub

		Private Sub richEdit_FinishHeaderFooterEditing(ByVal sender As Object, ByVal e As HeaderFooterEditingEventArgs)
			catHeaderFooterTools.IsVisible = False
		End Sub

		Private Sub richEdit_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
			Dim isSelectionInTable As Boolean = richEdit.IsSelectionInTable()
			If catTableTools.IsVisible <> isSelectionInTable Then
				catTableTools.IsVisible = isSelectionInTable
				If isSelectionInTable Then
					ribbonControl.SelectedPage = pageTableToolsDesign
				End If
			End If

			Dim isSelectionInFloatingObject As Boolean = richEdit.IsFloatingObjectSelected
			If catPictureTools.IsVisible <> isSelectionInFloatingObject Then
				catPictureTools.IsVisible = isSelectionInFloatingObject
				If isSelectionInFloatingObject Then
					ribbonControl.SelectedPage = pagePictureToolsFormat
				End If
			End If
		End Sub

		Private Sub richEdit_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
			richEdit.SpellChecker = spellChecker
			spellChecker.SpellCheckMode = SpellCheckMode.AsYouType
		End Sub
	End Class
End Namespace