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,10 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections.Generic
+Imports System.Text
+
+Public Interface IMasterDetailViewInfo
+    ReadOnly Property MasterDetailViewId() As String
+    Sub AssignMasterDetailViewId(ByVal id As String)
+End Interface
+
@@ -0,0 +1,32 @@
+Partial Class MasterModificationsControllerBase
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,26 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+
+
+Public Class MasterModificationsControllerBase
+    Inherits ViewController
+    Public Sub New()
+        TargetViewType = ViewType.DetailView
+        TargetViewNesting = Nesting.Root
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        'For Each lpe As ListPropertyEditor In (CType(View, DetailView)).GetItems(Of ListPropertyEditor)()
+        '    For Each c As Controller In lpe.Frame.Controllers
+        '        If TypeOf c Is IMasterDetailViewInfo Then
+        '            CType(c, IMasterDetailViewInfo).AssignMasterDetailViewId(View.Id)
+        '        End If
+        '    Next c
+        'Next lpe
+    End Sub
+End Class
+
@@ -0,0 +1,32 @@
+Partial Class NestedListViewControllerBase
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,29 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Reflection
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+
+
+Public MustInherit Class NestedListViewControllerBase
+    Inherits ViewController
+    Implements IMasterDetailViewInfo
+    Public Sub New()
+        TargetViewNesting = Nesting.Nested
+        TargetViewType = ViewType.ListView
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+    End Sub
+    Private masterDetailViewIdCore As String = String.Empty
+#Region "IMasterDetailViewInfo Members"
+    Public ReadOnly Property MasterDetailViewId() As String Implements IMasterDetailViewInfo.MasterDetailViewId
+        Get
+            Return masterDetailViewIdCore
+        End Get
+    End Property
+    Public Sub AssignMasterDetailViewId(ByVal id As String) Implements IMasterDetailViewInfo.AssignMasterDetailViewId
+        masterDetailViewIdCore = id
+    End Sub
+#End Region
+End Class