Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.Xpf.DemoBase
Namespace PrintingDemo
Public Class ModuleBase
Inherits DemoModule
Public ReadOnly Property ViewModel() As ModuleViewModelBase
Get
Return CType(DataContext, ModuleViewModelBase)
End Get
End Property
Public Overrides ReadOnly Property AllowRtl() As Boolean
Get
Return False
End Get
End Property
Protected Overrides Sub RaiseActualLoaded()
MyBase.RaiseActualLoaded()
If ViewModel IsNot Nothing Then
ViewModel.CreateDocument()
End If
End Sub
Protected Overrides Sub Clear()
MyBase.Clear()
If ViewModel IsNot Nothing Then
ViewModel.ClearDocument()
End If
End Sub
Protected Overridable ReadOnly Property NeedChangeEditorsTheme() As Boolean
Get
Return False
End Get
End Property
End Class
End Namespace