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,90 @@
+Imports DevExpress.ExpressApp.DC
+Imports DevExpress.ExpressApp.Model
+
+#Region "DOMAIN LOGIC"
+<DomainLogic(GetType(IModelListViewExtender))>
+Public NotInheritable Class IModelListViewExtenderLogic
+    Public Shared Function Get_DefaultDateYearInFilter(ByVal modelListView As IModelListView) As Boolean
+        If modelListView.ModelClass IsNot Nothing Then
+            Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilter
+        Else
+            Return False
+        End If
+    End Function
+    Public Shared Function Get_DefaultDateYearInFilterProperty(ByVal modelListView As IModelListView) As String
+        If modelListView.ModelClass IsNot Nothing Then
+            Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilterProperty
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderLeft(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderLeft
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderCenter(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderCenter
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_HeaderRight(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderRight
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterLeft(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterLeft
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterCenter(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterCenter
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+    Public Shared Function Get_FooterRight(ByVal modelListView As IModelListView) As String
+        If modelListView.Application IsNot Nothing Then
+            If modelListView.Application.Options IsNot Nothing Then
+                Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterRight
+            Else
+                Return ""
+            End If
+        Else
+            Return ""
+        End If
+    End Function
+
+End Class
+
+#End Region