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,30 @@
+Imports System.Linq
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Win.Layout
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.XtraEditors
+
+Partial Public Class SplitterVC
+    Inherits ViewController(Of ListView)
+    Public Sub New()
+        InitializeComponent()
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        If View.Model.MasterDetailMode = MasterDetailMode.ListViewAndDetailView Then
+            AddHandler View.ControlsCreated, AddressOf View_ControlCreated
+        End If
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+    End Sub
+
+    Private Sub View_ControlCreated(sender As Object, e As EventArgs)
+        Dim splitContainer As SplitContainer = CType(View.Control, SplitContainer)
+        splitContainer.FixedPanel = SplitFixedPanel.None
+        splitContainer.SplitterPosition = TryCast(View.Model.SplitLayout, IModelListViewSplitLayout).SplitterPosition
+    End Sub
+End Class