move clientsuite to GUIs.ClientSuite folder

GUIs.ClientSuite/ClassLayout.vb

@@ -0,0 +1,66 @@
+Imports System.IO
+Imports DevExpress.XtraGrid.Views.Base
+
+''' <summary>
+''' Helper Class to save DevExpress layouts
+''' 
+''' Example:
+''' 
+''' Layout 1 (for frmMain)
+''' ----------------------------------------------
+''' |  Component 1        Component 2            |
+''' |  |-------------|    |----------------|     |
+''' |  |  MainGrid   |    |  DocumentGrid  |     |
+''' |  |-------------|    |----------------|     |
+''' |                                            |
+''' |---------------------------------------------
+''' </summary>
+Public Class ClassLayout
+    Public Enum GroupName
+        LayoutMain
+        LayoutUserManager
+    End Enum
+
+    Public Enum LayoutComponent
+        DockManager
+        DocumentManager
+    End Enum
+
+    ''' <summary>
+    ''' Returns a path for the chosen Devexpress layout file
+    ''' </summary>
+    ''' <param name="Group">The Group to which the the component belongs to. For example, a form could be a Layout</param>
+    ''' <param name="Component">The component to which the layout belongs to</param>
+    ''' <returns></returns>
+    Public Shared Function GetLayoutPath(Group As GroupName, Component As LayoutComponent) As String
+        Dim oFileName As String = $"{Group.ToString}-{Component.ToString}.xml"
+        Return Path.Combine(GetLayoutDirectory(), oFileName)
+    End Function
+
+    ''' <summary>
+    ''' Returns a path for the chosen Devexpress layout file
+    ''' </summary>
+    ''' <param name="Group">The Group to which the the component belongs to. For example, a form could be a Layout</param>
+    ''' <param name="Component">The component to which the layout belongs to</param>
+    ''' <returns></returns>
+    Public Shared Function GetLayoutPath(Group As GroupName, Component As String) As String
+        Dim oFileName As String = $"{Group.ToString}-{Component}.xml"
+        Return Path.Combine(GetLayoutDirectory(), oFileName)
+    End Function
+
+    ''' <summary>
+    ''' Returns a path for the chosen Devexpress layout file
+    ''' </summary>
+    ''' <param name="Group">The Group to which the the component belongs to. For example, a form could be a Layout</param>
+    ''' <param name="Component">The component to which the layout belongs to</param>
+    ''' <param name="SubComponent">The sub component under the component</param>
+    ''' <returns></returns>
+    Public Shared Function GetLayoutPath(Group As GroupName, Component As String, SubComponent As String) As String
+        Dim oFileName As String = $"{Group.ToString}-{Component}-{SubComponent}.xml"
+        Return Path.Combine(GetLayoutDirectory(), oFileName)
+    End Function
+
+    Public Shared Function GetLayoutDirectory() As String
+        Return Path.Combine(Application.UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
+    End Function
+End Class