Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/DockingDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/DockingDemo/DemoControls.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports DevExpress.Utils.Internal
Imports DevExpress.Xpf.Docking
Imports DevExpress.Xpf.Docking.Base
Imports DevExpress.Xpf.Layout.Core
Imports DevExpress.Xpf.DemoBase.Helpers
Imports DevExpress.Xpf.DemoBase.Helpers.TextColorizer
Imports DevExpress.Xpf.DemoBase.Helpers.TextColorizer.Internal


Namespace DockingDemo
	Public Class CodeViewPresenter
		Inherits DevExpress.Xpf.DemoBase.Helpers.Internal.CodeViewPresenter
		Public Shared Shadows ReadOnly CodeTextProperty As DependencyProperty
		Shared Sub New()
			CodeTextProperty = DependencyProperty.Register("CodeText", GetType(CodeLanguageText), GetType(CodeViewPresenter), Nothing)
		End Sub
		Public Overrides Sub OnApplyTemplate()
			MyBase.OnApplyTemplate()
			Dispatcher.BeginInvoke(New Action(Function() AnonymousMethod1()))
		End Sub
		
		Private Function AnonymousMethod1() As Boolean
			MyBase.CodeText = CodeText
			Return True
		End Function
		Public Shadows Property CodeText() As CodeLanguageText
			Get
				Return CType(GetValue(CodeTextProperty), CodeLanguageText)
			End Get
			Set(ByVal value As CodeLanguageText)
				SetValue(CodeTextProperty, value)
			End Set
		End Property
	End Class
	Public Class DockPanel
		Inherits DevExpress.Xpf.Core.DockPanel
	End Class
End Namespace