Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/ASPxHtmlEditorDemos/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/ASPxHtmlEditorDemos/Global.asax

<%@ Application Language="vb" %>

<script runat="server">

	Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
		Utils.EnsureRequestValidationMode()
	End Sub

	Sub Application_PreRequestHandlerExecute(ByVal sender As Object, ByVal e As EventArgs)
		If CurrentPage IsNot Nothing Then
			AddHandler CurrentPage.PreInit, AddressOf Page_PreInit
		End If

		If (Not Utils.IsIntro) Then
			DevExpress.Web.ASPxClasses.ASPxWebControl.GlobalTheme = Utils.CurrentTheme
		End If
	End Sub

	Shared ReadOnly Property CurrentPage() As Page
		Get
			Return TryCast(HttpContext.Current.CurrentHandler, Page)
		End Get
	End Property

	Shared Sub Page_PreInit(ByVal sender As Object, ByVal e As EventArgs)
		Utils.RegisterCurrentWebFormsDemo(CurrentPage)
		Dim IE7CompatModeRequired As Boolean = DemosModel.Current.IE7CompatModeRequired OrElse Utils.CurrentDemo.IE7CompatModeRequired
		Dim IE7CompatModeAllowed As Boolean = Not Utils.IsIE10()
		If IE7CompatModeRequired AndAlso IE7CompatModeAllowed Then
			Utils.InjectIE7CompatModeMeta(CurrentPage.Master)
		Else
			Utils.InjectIEEdgeCompatModeMeta(CurrentPage.Master)
		End If
		Utils.InjectDescriptionMeta(CurrentPage.Master)
	End Sub

</script>