First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,35 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections.Generic
+Imports System.Web.UI
+Imports DevExpress.ExpressApp.Templates
+Imports DevExpress.ExpressApp.Web
+Imports DevExpress.ExpressApp.Web.Templates
+Imports DevExpress.ExpressApp.Web.Templates.ActionContainers
+
+Partial Public Class [Default]
+    Inherits BaseXafPage
+
+    Shared Sub New()
+    End Sub
+
+    Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu
+        Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports")
+    End Function
+    Protected Sub Page_Init()
+        AddHandler CustomizeTemplateContent, Sub(sender As Object, e As CustomizeTemplateContentEventArgs)
+                                                 Dim _content As DefaultVerticalTemplateContent = TryCast(TemplateContent, DefaultVerticalTemplateContent)
+                                                 If _content Is Nothing Then
+                                                     Return
+                                                 End If
+                                                 _content.HeaderImageControl.DefaultThemeImageLocation = ""
+                                                 _content.HeaderImageControl.ImageName = WebApplication.Instance.Model.Application.Logo
+                                             End Sub
+    End Sub
+
+    Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control
+        Get
+            Return Content
+        End Get
+    End Property
+End Class