diff --git a/EDMI_ClientSuite/Base/BaseForm.resx b/EDMI_ClientSuite/Base/BaseForm.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/EDMI_ClientSuite/Base/BaseForm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/EDMI_ClientSuite/Base/BaseForm.vb b/EDMI_ClientSuite/Base/BaseForm.vb index d647492e..8bde5fd9 100644 --- a/EDMI_ClientSuite/Base/BaseForm.vb +++ b/EDMI_ClientSuite/Base/BaseForm.vb @@ -1,43 +1,60 @@ Imports DevExpress.XtraBars.Ribbon Imports DigitalData.Modules.Logging -''' -''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms -''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.: -''' -''' Partial Class frmExample -''' Inherits BaseForm -''' -''' ... -''' End Class -''' -Public Class BaseForm - Inherits Form +Namespace Base + ''' + ''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms + ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.: + ''' + ''' Partial Class frmExample + ''' Inherits BaseForm + ''' + ''' ... + ''' End Class + ''' + Public Class BaseForm + Inherits Form - Private ReadOnly _Logger As Logger - Private ReadOnly _ErrorHandler As ClassErrorHandler + Private ReadOnly _Logger As Logger + Private ReadOnly _ErrorHandler As ClassErrorHandler - Protected ReadOnly Property Logger As Logger - Get - Return _Logger - End Get - End Property + Protected ReadOnly Property Logger As Logger + Get + Return _Logger + End Get + End Property - Public Sub New() - ' Get the full name of the inheriting form - ' so the log messages have the right classname - Dim oClassName = [GetType]().FullName + Public Sub New() + ' Get the full name of the inheriting form + ' so the log messages have the right classname + Dim oClassName = [GetType]().FullName - ' My.LogConfig is undefined in the designer - _Logger = My.LogConfig?.GetLogger(oClassName) - _ErrorHandler = New ClassErrorHandler(_Logger) + ' My.LogConfig is undefined in the designer + _Logger = My.LogConfig?.GetLogger(oClassName) + _ErrorHandler = New ClassErrorHandler(_Logger) - ' When you add something, be careful if it - ' depends on a global var like My.LogConfig - ' you might need to check for its existence with ? - End Sub + ' When you add something, be careful if it + ' depends on a global var like My.LogConfig + ' you might need to check for its existence with ? + End Sub - Public Sub ShowErrorMessage(Exception As Exception) - _ErrorHandler.ShowErrorMessage(Exception) - End Sub -End Class \ No newline at end of file + Public Sub ShowErrorMessage(Exception As Exception) + _ErrorHandler.ShowErrorMessage(Exception) + End Sub + + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'BaseForm + ' + Me.ClientSize = New System.Drawing.Size(284, 261) + Me.Name = "BaseForm" + Me.ResumeLayout(False) + + End Sub + + Private Sub BaseForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + End Class +End Namespace diff --git a/EDMI_ClientSuite/Base/BaseRibbonForm.vb b/EDMI_ClientSuite/Base/BaseRibbonForm.vb index 8190b869..20a32fa4 100644 --- a/EDMI_ClientSuite/Base/BaseRibbonForm.vb +++ b/EDMI_ClientSuite/Base/BaseRibbonForm.vb @@ -2,63 +2,93 @@ Imports DevExpress.XtraBars.Ribbon Imports DigitalData.Modules.Logging -''' -''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms -''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.: -''' -''' Partial Class frmExample -''' Inherits BaseRibbonForm -''' -''' ... -''' End Class -''' -''' Only BaseRibbonForms can have panels attached to it! -''' -Public Class BaseRibbonForm - Inherits RibbonForm - - Private ReadOnly _Logger As Logger - Private ReadOnly _ErrorHandler As ClassErrorHandler - - Protected ReadOnly Property Logger As Logger - Get - Return _Logger - End Get - End Property - - Public Sub New() - ' Get the full name of the inheriting form - ' so the log messages have the right classname - Dim oClassName = [GetType]().FullName - - ' My.LogConfig is undefined in the designer - _Logger = My.LogConfig?.GetLogger(oClassName) - _ErrorHandler = New ClassErrorHandler(_Logger) - - ' When you add something, be careful if it - ' depends on a global var like My.LogConfig - ' you might need to check for its existence with ? - End Sub - - Public Sub ShowErrorMessage(Exception As Exception) - _ErrorHandler.ShowErrorMessage(Exception) - End Sub - - Public Sub ShowErrorMessage(ErrorMessage As String) - _ErrorHandler.ShowErrorMessage(New Exception(ErrorMessage)) - End Sub - +Namespace Base ''' - ''' Returns a list of panels that will be show when the form is opened. - ''' This can be overridden by all inheriting forms to extend the list of panels - ''' Panels will be created by PanelManager. + ''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms + ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.: + ''' + ''' Partial Class frmExample + ''' Inherits BaseRibbonForm + ''' + ''' ... + ''' End Class + ''' + ''' Only BaseRibbonForms can have panels attached to it! ''' - ''' - ''' A list of PanelInformation - Public Overridable Function GetInitialPanels() As List(Of PanelInfo) - Return New List(Of PanelInfo) - End Function -End Class + Public Class BaseRibbonForm + Inherits RibbonForm + + Private ReadOnly _Logger As Logger + Private ReadOnly _ErrorHandler As ClassErrorHandler + + Protected ReadOnly Property Logger As Logger + Get + Return _Logger + End Get + End Property + + ''' + ''' Sets or gets the ribbon Page that will be shown when the window is visible + ''' + ''' + Public Property DefaultRibbonPage As RibbonPage + + Protected Overrides Sub OnLoad(e As EventArgs) + MyBase.OnLoad(e) + + If DefaultRibbonPage IsNot Nothing Then + Ribbon.SelectPage(DefaultRibbonPage) + End If + End Sub + + Protected Overrides Sub OnVisibleChanged(e As EventArgs) + MyBase.OnVisibleChanged(e) + + If Visible And DefaultRibbonPage IsNot Nothing Then + Ribbon.SelectPage(DefaultRibbonPage) + End If + End Sub + + Protected Overrides Sub OnActivated(e As EventArgs) + MyBase.OnVisibleChanged(e) + + If Visible And DefaultRibbonPage IsNot Nothing Then + Ribbon.SelectPage(DefaultRibbonPage) + End If + End Sub + Public Sub New() + ' Get the full name of the inheriting form + ' so the log messages have the right classname + Dim oClassName = [GetType]().FullName + ' My.LogConfig is undefined in the designer + _Logger = My.LogConfig?.GetLogger(oClassName) + _ErrorHandler = New ClassErrorHandler(_Logger) + + ' When you add something, be careful if it + ' depends on a global var like My.LogConfig + ' you might need to check for its existence with ? + End Sub + + Public Sub ShowErrorMessage(Exception As Exception) + _ErrorHandler.ShowErrorMessage(Exception) + End Sub + + Public Sub ShowErrorMessage(ErrorMessage As String) + _ErrorHandler.ShowErrorMessage(New Exception(ErrorMessage)) + End Sub + + ''' + ''' Returns a list of panels that will be show when the form is opened. + ''' This can be overridden by all inheriting forms to extend the list of panels + ''' Panels will be created by PanelManager. + ''' + ''' + ''' A list of PanelInformation + Public Overridable Function GetInitialPanels() As List(Of PanelInfo) + Return New List(Of PanelInfo) + End Function + End Class +End Namespace diff --git a/EDMI_ClientSuite/ClassPanelManager.vb b/EDMI_ClientSuite/ClassPanelManager.vb index 5f5f45fa..30a753a8 100644 --- a/EDMI_ClientSuite/ClassPanelManager.vb +++ b/EDMI_ClientSuite/ClassPanelManager.vb @@ -3,6 +3,7 @@ Imports DevExpress.XtraBars.Docking2010 Imports DevExpress.XtraBars.Docking2010.Views Imports DevExpress.XtraBars.Docking2010.Views.Tabbed Imports DevExpress.XtraGrid +Imports DigitalData.GUIs.ClientSuite.Base Imports DigitalData.Modules.Logging Public Class ClassPanelManager diff --git a/EDMI_ClientSuite/ClientSuite.vbproj b/EDMI_ClientSuite/ClientSuite.vbproj index 07362b61..0009c873 100644 --- a/EDMI_ClientSuite/ClientSuite.vbproj +++ b/EDMI_ClientSuite/ClientSuite.vbproj @@ -159,6 +159,10 @@ Form + + + + frmFormDesigner.vb @@ -314,6 +318,9 @@ + + BaseForm.vb + frmDatasourceEditor.vb diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Loader.vb b/EDMI_ClientSuite/FormDesigner/Controls/Loader.vb index 6c0e7fed..85e2309b 100644 --- a/EDMI_ClientSuite/FormDesigner/Controls/Loader.vb +++ b/EDMI_ClientSuite/FormDesigner/Controls/Loader.vb @@ -58,9 +58,10 @@ Namespace Controls End If oEditor.Tag = New Metadata() With { - .Id = oControlId, - .Type = oControlType - } + .Id = oControlId, + .Type = oControlType, + .Caption = oCaption + } LayoutControls.Add(oEditor) LayoutControlGroup.AddItem(oCaption, oEditor) diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Metadata.vb b/EDMI_ClientSuite/FormDesigner/Controls/Metadata.vb index bf6c5901..ee1ced53 100644 --- a/EDMI_ClientSuite/FormDesigner/Controls/Metadata.vb +++ b/EDMI_ClientSuite/FormDesigner/Controls/Metadata.vb @@ -2,6 +2,7 @@ Public Class Metadata Public Id As Int64 Public Type As String + Public Caption As String End Class End Namespace diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Properties/BaseProperties.vb b/EDMI_ClientSuite/FormDesigner/Controls/Properties/BaseProperties.vb index 71d730a4..d8086c57 100644 --- a/EDMI_ClientSuite/FormDesigner/Controls/Properties/BaseProperties.vb +++ b/EDMI_ClientSuite/FormDesigner/Controls/Properties/BaseProperties.vb @@ -9,7 +9,7 @@ Namespace Controls.Properties <[ReadOnly](True)> Public Property Id As Integer - + Public Property Name As String End Class diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Properties/CheckboxProperties.vb b/EDMI_ClientSuite/FormDesigner/Controls/Properties/CheckboxProperties.vb new file mode 100644 index 00000000..c2512d04 --- /dev/null +++ b/EDMI_ClientSuite/FormDesigner/Controls/Properties/CheckboxProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class CheckboxProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Properties/DatepickerProperties.vb b/EDMI_ClientSuite/FormDesigner/Controls/Properties/DatepickerProperties.vb new file mode 100644 index 00000000..4b3213ad --- /dev/null +++ b/EDMI_ClientSuite/FormDesigner/Controls/Properties/DatepickerProperties.vb @@ -0,0 +1,6 @@ +Namespace Controls.Properties + Public Class DatepickerProperties + Inherits BaseProperties + End Class + +End Namespace \ No newline at end of file diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Properties/MemoeditProperties.vb b/EDMI_ClientSuite/FormDesigner/Controls/Properties/MemoeditProperties.vb new file mode 100644 index 00000000..14c155d6 --- /dev/null +++ b/EDMI_ClientSuite/FormDesigner/Controls/Properties/MemoeditProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class MemoeditProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/EDMI_ClientSuite/FormDesigner/Controls/Properties/TextboxProperties.vb b/EDMI_ClientSuite/FormDesigner/Controls/Properties/TextboxProperties.vb new file mode 100644 index 00000000..0dd09224 --- /dev/null +++ b/EDMI_ClientSuite/FormDesigner/Controls/Properties/TextboxProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class TextboxProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.Designer.vb b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.Designer.vb index 5112d926..7eb54990 100644 --- a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.Designer.vb +++ b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.Designer.vb @@ -1,4 +1,6 @@ - _ +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmFormDesigner Inherits BaseRibbonForm @@ -21,10 +23,11 @@ Partial Class frmFormDesigner Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner)) - Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.FormDesignerRibbon = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarCheckEditLayout = New DevExpress.XtraBars.BarCheckItem() + Me.BarCheckEditControls = New DevExpress.XtraBars.BarCheckItem() Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageFormDesigner = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.LayoutControlMain = New DevExpress.XtraLayout.LayoutControl() @@ -37,16 +40,16 @@ Partial Class frmFormDesigner Me.ToolboxItemCombobox = New DevExpress.XtraToolbox.ToolboxItem() Me.ToolboxItemCheckbox = New DevExpress.XtraToolbox.ToolboxItem() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabControlMain = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageControls = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageProperties = New DevExpress.XtraTab.XtraTabPage() Me.PropertyGridControlMain = New DevExpress.XtraVerticalGrid.PropertyGridControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() - CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FormDesignerRibbon, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl1.SuspendLayout() + CType(Me.XtraTabControlMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControlMain.SuspendLayout() Me.XtraTabPageControls.SuspendLayout() Me.XtraTabPageProperties.SuspendLayout() CType(Me.PropertyGridControlMain, System.ComponentModel.ISupportInitialize).BeginInit() @@ -54,39 +57,56 @@ Partial Class frmFormDesigner Me.SplitContainerMain.SuspendLayout() Me.SuspendLayout() ' - 'RibbonControl + 'FormDesignerRibbon ' - Me.RibbonControl.ExpandCollapseItem.Id = 0 - Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarCheckEditLayout}) - Me.RibbonControl.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl.MaxItemId = 4 - Me.RibbonControl.Name = "RibbonControl" - Me.RibbonControl.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) - Me.RibbonControl.Size = New System.Drawing.Size(870, 146) - Me.RibbonControl.StatusBar = Me.RibbonStatusBar + Me.FormDesignerRibbon.ExpandCollapseItem.Id = 0 + Me.FormDesignerRibbon.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.FormDesignerRibbon.ExpandCollapseItem, Me.BarCheckEditLayout, Me.BarCheckEditControls}) + Me.FormDesignerRibbon.Location = New System.Drawing.Point(0, 0) + Me.FormDesignerRibbon.MaxItemId = 6 + Me.FormDesignerRibbon.MdiMergeStyle = DevExpress.XtraBars.Ribbon.RibbonMdiMergeStyle.Always + Me.FormDesignerRibbon.Name = "FormDesignerRibbon" + Me.FormDesignerRibbon.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1}) + Me.FormDesignerRibbon.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.FormDesignerRibbon.Size = New System.Drawing.Size(870, 146) + Me.FormDesignerRibbon.StatusBar = Me.RibbonStatusBar ' 'BarCheckEditLayout ' Me.BarCheckEditLayout.Caption = "Layout bearbeiten" + Me.BarCheckEditLayout.CheckStyle = DevExpress.XtraBars.BarCheckStyles.Radio + Me.BarCheckEditLayout.GroupIndex = 1 Me.BarCheckEditLayout.Id = 3 Me.BarCheckEditLayout.ImageOptions.Image = CType(resources.GetObject("BarCheckEditLayout.ImageOptions.Image"), System.Drawing.Image) Me.BarCheckEditLayout.ImageOptions.LargeImage = CType(resources.GetObject("BarCheckEditLayout.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarCheckEditLayout.Name = "BarCheckEditLayout" ' + 'BarCheckEditControls + ' + Me.BarCheckEditControls.BindableChecked = True + Me.BarCheckEditControls.Caption = "Elemente bearbeiten" + Me.BarCheckEditControls.Checked = True + Me.BarCheckEditControls.CheckStyle = DevExpress.XtraBars.BarCheckStyles.Radio + Me.BarCheckEditControls.GroupIndex = 1 + Me.BarCheckEditControls.Id = 5 + Me.BarCheckEditControls.ImageOptions.Image = CType(resources.GetObject("BarCheckEditControls.ImageOptions.Image"), System.Drawing.Image) + Me.BarCheckEditControls.ImageOptions.LargeImage = CType(resources.GetObject("BarCheckEditControls.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarCheckEditControls.Name = "BarCheckEditControls" + ' 'RibbonPageCategory1 ' Me.RibbonPageCategory1.Name = "RibbonPageCategory1" - Me.RibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage2}) + Me.RibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageFormDesigner}) Me.RibbonPageCategory1.Text = "Form Designer" ' - 'RibbonPage2 + 'RibbonPageFormDesigner ' - Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "Allgemein" + Me.RibbonPageFormDesigner.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) + Me.RibbonPageFormDesigner.Name = "RibbonPageFormDesigner" + Me.RibbonPageFormDesigner.Text = "Allgemein" ' 'RibbonPageGroup2 ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckEditControls) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckEditLayout) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "RibbonPageGroup2" @@ -95,11 +115,12 @@ Partial Class frmFormDesigner ' Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 508) Me.RibbonStatusBar.Name = "RibbonStatusBar" - Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Ribbon = Me.FormDesignerRibbon Me.RibbonStatusBar.Size = New System.Drawing.Size(870, 21) ' 'LayoutControlMain ' + Me.LayoutControlMain.AllowCustomization = False Me.LayoutControlMain.AllowDrop = True Me.LayoutControlMain.BackColor = System.Drawing.Color.Transparent Me.LayoutControlMain.Dock = System.Windows.Forms.DockStyle.Fill @@ -110,7 +131,7 @@ Partial Class frmFormDesigner Me.LayoutControlMain.OptionsCustomizationForm.ShowLoadButton = False Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False Me.LayoutControlMain.Root = Me.LayoutControlGroupMain - Me.LayoutControlMain.Size = New System.Drawing.Size(624, 362) + Me.LayoutControlMain.Size = New System.Drawing.Size(655, 362) Me.LayoutControlMain.TabIndex = 2 Me.LayoutControlMain.Text = "LayoutControl1" ' @@ -119,7 +140,7 @@ Partial Class frmFormDesigner Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroupMain.GroupBordersVisible = False Me.LayoutControlGroupMain.Name = "Root" - Me.LayoutControlGroupMain.Size = New System.Drawing.Size(624, 362) + Me.LayoutControlGroupMain.Size = New System.Drawing.Size(655, 362) Me.LayoutControlGroupMain.TextVisible = False ' 'ToolboxControlMain @@ -134,7 +155,7 @@ Partial Class frmFormDesigner Me.ToolboxControlMain.OptionsView.ShowToolboxCaption = True Me.ToolboxControlMain.SelectedGroup = Me.ToolboxGroupMain Me.ToolboxControlMain.SelectedGroupIndex = 0 - Me.ToolboxControlMain.Size = New System.Drawing.Size(232, 337) + Me.ToolboxControlMain.Size = New System.Drawing.Size(201, 337) Me.ToolboxControlMain.TabIndex = 4 Me.ToolboxControlMain.Text = "Form Controls" ' @@ -194,37 +215,39 @@ Partial Class frmFormDesigner Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' - 'XtraTabControl1 + 'XtraTabControlMain ' - Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom - Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) - Me.XtraTabControl1.Name = "XtraTabControl1" - Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageControls - Me.XtraTabControl1.Size = New System.Drawing.Size(234, 362) - Me.XtraTabControl1.TabIndex = 7 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageControls, Me.XtraTabPageProperties}) + Me.XtraTabControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControlMain.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom + Me.XtraTabControlMain.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControlMain.Name = "XtraTabControlMain" + Me.XtraTabControlMain.SelectedTabPage = Me.XtraTabPageControls + Me.XtraTabControlMain.Size = New System.Drawing.Size(203, 362) + Me.XtraTabControlMain.TabIndex = 7 + Me.XtraTabControlMain.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageControls, Me.XtraTabPageProperties}) ' 'XtraTabPageControls ' Me.XtraTabPageControls.Controls.Add(Me.ToolboxControlMain) Me.XtraTabPageControls.Name = "XtraTabPageControls" - Me.XtraTabPageControls.Size = New System.Drawing.Size(232, 337) + Me.XtraTabPageControls.Size = New System.Drawing.Size(201, 337) Me.XtraTabPageControls.Text = "Controls" ' 'XtraTabPageProperties ' Me.XtraTabPageProperties.Controls.Add(Me.PropertyGridControlMain) Me.XtraTabPageProperties.Name = "XtraTabPageProperties" - Me.XtraTabPageProperties.Size = New System.Drawing.Size(232, 337) + Me.XtraTabPageProperties.PageEnabled = False + Me.XtraTabPageProperties.Size = New System.Drawing.Size(201, 337) Me.XtraTabPageProperties.Text = "Eigenschaften" ' 'PropertyGridControlMain ' + Me.PropertyGridControlMain.Cursor = System.Windows.Forms.Cursors.Hand Me.PropertyGridControlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.PropertyGridControlMain.Location = New System.Drawing.Point(0, 0) Me.PropertyGridControlMain.Name = "PropertyGridControlMain" - Me.PropertyGridControlMain.Size = New System.Drawing.Size(232, 337) + Me.PropertyGridControlMain.Size = New System.Drawing.Size(201, 337) Me.PropertyGridControlMain.TabIndex = 0 ' 'SplitContainerMain @@ -234,11 +257,12 @@ Partial Class frmFormDesigner Me.SplitContainerMain.Location = New System.Drawing.Point(0, 146) Me.SplitContainerMain.Name = "SplitContainerMain" Me.SplitContainerMain.Panel1.Controls.Add(Me.LayoutControlMain) - Me.SplitContainerMain.Panel1.Text = "Panel1" - Me.SplitContainerMain.Panel2.Controls.Add(Me.XtraTabControl1) - Me.SplitContainerMain.Panel2.Text = "Panel2" + Me.SplitContainerMain.Panel1.Text = "PanelMain" + Me.SplitContainerMain.Panel2.Controls.Add(Me.XtraTabControlMain) + Me.SplitContainerMain.Panel2.MinSize = 200 + Me.SplitContainerMain.Panel2.Text = "PanelSidebar" Me.SplitContainerMain.Size = New System.Drawing.Size(870, 362) - Me.SplitContainerMain.SplitterPosition = 624 + Me.SplitContainerMain.SplitterPosition = 655 Me.SplitContainerMain.TabIndex = 3 Me.SplitContainerMain.Text = "SplitContainerControl1" ' @@ -249,16 +273,18 @@ Partial Class frmFormDesigner Me.ClientSize = New System.Drawing.Size(870, 529) Me.Controls.Add(Me.SplitContainerMain) Me.Controls.Add(Me.RibbonStatusBar) - Me.Controls.Add(Me.RibbonControl) + Me.Controls.Add(Me.FormDesignerRibbon) + Me.DefaultRibbonPage = Me.RibbonPageFormDesigner Me.Name = "frmFormDesigner" - Me.Ribbon = Me.RibbonControl + Me.Ribbon = Me.FormDesignerRibbon + Me.ShowIcon = False Me.StatusBar = Me.RibbonStatusBar Me.Text = "Form Designer" - CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FormDesignerRibbon, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl1.ResumeLayout(False) + CType(Me.XtraTabControlMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControlMain.ResumeLayout(False) Me.XtraTabPageControls.ResumeLayout(False) Me.XtraTabPageProperties.ResumeLayout(False) CType(Me.PropertyGridControlMain, System.ComponentModel.ISupportInitialize).EndInit() @@ -269,7 +295,7 @@ Partial Class frmFormDesigner End Sub - Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents FormDesignerRibbon As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents LayoutControlMain As DevExpress.XtraLayout.LayoutControl Friend WithEvents LayoutControlGroupMain As DevExpress.XtraLayout.LayoutControlGroup @@ -279,7 +305,7 @@ Partial Class frmFormDesigner Friend WithEvents ToolboxItemTextbox As DevExpress.XtraToolbox.ToolboxItem Friend WithEvents ToolboxItemMemoedit As DevExpress.XtraToolbox.ToolboxItem Friend WithEvents ToolboxItemDatepicker As DevExpress.XtraToolbox.ToolboxItem - Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabControlMain As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPageControls As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPageProperties As DevExpress.XtraTab.XtraTabPage Friend WithEvents PropertyGridControlMain As DevExpress.XtraVerticalGrid.PropertyGridControl @@ -288,6 +314,7 @@ Partial Class frmFormDesigner Friend WithEvents ToolboxItemCheckbox As DevExpress.XtraToolbox.ToolboxItem Friend WithEvents BarCheckEditLayout As DevExpress.XtraBars.BarCheckItem Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory - Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageFormDesigner As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarCheckEditControls As DevExpress.XtraBars.BarCheckItem End Class diff --git a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.resx b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.resx index 3357c924..13eb9095 100644 --- a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.resx +++ b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.resx @@ -120,23 +120,43 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAG3RFWHRUaXRsZQBPdXRsaW5l - O0JvcmRlcjtDb2xvcjtFPhLAAAAAiklEQVQ4T5WSyw2AIBBE6Yk6bMpQlL14924BsjrIEkJm+WzyQjLZ - NxjViQhl2w8L/yE4sedCCDJC57xuiDU+FcxMJesTJKYK2M16DguIrKDkfwfWjGRgFuSlVtS8fBVakJda - UfMiA6tAl7sy6BWoZMogFdQ8MdYFXRnQ33gFGq5AwxVouAIN5xH3Aj5Jzm636GRiAAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE91dGxpbmU7Qm9yZGVyO0NvbG9y + O0U+EsAAAACKSURBVDhPlZLLDYAgEETpiTpsylCUvXj3bgGyOsgSQmb5bPJCMtk3GNWJCGXbDwv/ITix + 50IIMkLnvG6INT4VzEwl6xMkpgrYzXoOC4isoOR/B9aMZGAW5KVW1Lx8FVqQl1pR8yIDq0CXuzLoFahk + yiAV1Dwx1gVdGdDfeAUarkDDFWi4Ag3nEfcCPknObrfoZGIAAAAASUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAG3RFWHRUaXRsZQBPdXRsaW5l - O0JvcmRlcjtDb2xvcjtFPhLAAAABDUlEQVRYR72S0Q2DMAxE2Yk5ulTFUB2iG/S//50gvYswSuEIaWI5 - 0hNg4XtH1Sml5M7t/lDMIK3wPr97WPaA4TtK+VaC78qAURB+JTdmGeAFBQWqgF70AOGl9LTEtCxL8sLO - 6/05iIAqMecCnudEbpQleJ1cC1zIDSuR/6RuBRrlZJMTlwK9cjJcoFeO1cxQgZEvx/pYgRE5QUR/gVE5 - QUxfAQ85QVS1wHO9/hwvOUHcf7+Ap5wgsr2At5wgtr0AFiy8lO1plhPE/l3AJOVzOZeiMxDbVcBk+2cp - qYHY7gImtasUEKxekgvU4EGY4vLLTVJDDiORw0jkMBI5jEQOI5HDSOQwEjmMRA7jSNMXcaR3S692HfcA - AAAASUVORK5CYII= + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE91dGxpbmU7Qm9yZGVyO0NvbG9y + O0U+EsAAAAENSURBVFhHvZLRDYMwDETZiTm6VMVQHaIb9L//nSC9izBK4QhpYjnSE2Dhe0fVKaXkzu3+ + UMwgrfA+v3tY9oDhO0r5VoLvyoBREH4lN2YZ4AUFBaqAXvQA4aX0tMS0LEvyws7r/TmIgCox5wKe50Ru + lCV4nVwLXMgNK5H/pG4FGuVkkxOXAr1yMlygV47VzFCBkS/H+liBETlBRH+BUTlBTF8BDzlBVLXAc73+ + HC85Qdx/v4CnnCCyvYC3nCC2vQAWLLyU7WmWE8T+XcAk5XM5l6IzENtVwGT7ZympgdjuAia1qxQQrF6S + C9TgQZji8stNUkMOI5HDSOQwEjmMRA4jkcNI5DASOYxEDuNI0xdxpHdLr3Yd9wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh + bmRhcmQ7MBPD2wAAAIxJREFUOE+tkksOgCAMBbkT5/BShjXn4S7GrXu3LqytsVgawk9fMsGkvEENBgA+ + ER+cc1DgfFYry0QiKIXm3vtVS7oEmENLugQSTJ9A5hcBMi6gDAuWbYdpDoztEnBZSpoF6mTCNgsyZab+ + CaUyUv+JtDn3+jgyuKYCDYVLQhKvcSLQoOCGBVym0kswFwCbJlIIfiUIAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAgdEVYdFRpdGxlAEVkaXQ7QmFycztSaWJib247U3Rh + bmRhcmQ7MBPD2wAAASZJREFUWEftkkEOgjAQRbkTtzDxUoYtR+Ae3sWwMmHvVhf1f2SStozQNm3ZMMkL + MDDzn0hjjDkUtVkTtVkTtVkTtUm6rjORPMEFcHaFlkHUJsEQDuHF5/u+/wzDcMGlv8u5tlGbJEVgHEdV + opoAS5OoKsDyJaoLsBaJNyUOEWCJBO6tPkxBbZIUgQ0mPKLmqE3CwVy17FJz1CY5BU6BnAKs6+3eAh7l + fM5ZBQs5BR7TS4JtWtwqL2CF229gBlVWQPnljgSqnMCf105EotxfsBEulPsIQ8MJHs8rEBNOMJJPICWc + OKE2MQKx4QRjM06oDQX2YKWEE8lxQlPAMgnxg6W/Cicy7yxLAcvssKBwIvPOshSwzA/dDScy7yxLActs + gaBw8ps3zRc04YO9+3Zd0gAAAABJRU5ErkJggg== \ No newline at end of file diff --git a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.vb b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.vb index 919716a3..41522de0 100644 --- a/EDMI_ClientSuite/FormDesigner/frmFormDesigner.vb +++ b/EDMI_ClientSuite/FormDesigner/frmFormDesigner.vb @@ -105,6 +105,8 @@ Public Class frmFormDesigner End Sub Private Async Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load + FormDesignerRibbon.SelectPage(RibbonPageFormDesigner) + _ControlLoader = New ControlLoader(My.LogConfig, LayoutControlGroupMain) Dim oTable = Await My.Common.Views.VWICM_FORM_CONTROL(_FormId) @@ -117,31 +119,78 @@ Public Class frmFormDesigner End Function Private Sub LayoutControlMain_ItemSelectionChanged(sender As Object, e As EventArgs) Handles LayoutControlMain.ItemSelectionChanged - ' TODO: Load Property Grid for selected item + ' only layout control items have properties + If TypeOf sender IsNot LayoutControlItem Then + Exit Sub + End If + Dim oLayoutItem As LayoutControlItem = DirectCast(sender, LayoutControlItem) Dim oSelectedControl As BaseEdit = oLayoutItem.Control - Dim oMetadata As Metadata = oSelectedControl.Tag + Dim oMetadata As Metadata + + ' Don't load properties for layout items like splitters, separators, etc. + If oLayoutItem.Control Is Nothing Then + Exit Sub + End If + + + oMetadata = oSelectedControl.Tag Select Case oSelectedControl.GetType Case GetType(MemoEdit) - + PropertyGridControlMain.SelectedObject = New MemoeditProperties() With { + .Id = oMetadata.Id, + .Name = oMetadata.Caption + } Case GetType(TextEdit) - + PropertyGridControlMain.SelectedObject = New TextboxProperties() With { + .Id = oMetadata.Id, + .Name = oMetadata.Caption + } Case GetType(LookupControl2) PropertyGridControlMain.SelectedObject = New ComboboxProperties() With { .Datasource = New DatasourceType, - .Id = oMetadata.Id + .Id = oMetadata.Id, + .Name = oMetadata.Caption + } + Case GetType(DateEdit) + PropertyGridControlMain.SelectedObject = New DatepickerProperties() With { + .Id = oMetadata.Id, + .Name = oMetadata.Caption + } + Case GetType(CheckEdit) + PropertyGridControlMain.SelectedObject = New CheckboxProperties() With { + .Id = oMetadata.Id, + .Name = oMetadata.Caption } End Select - - End Sub Private Sub BarCheckEditLayout_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckEditLayout.CheckedChanged If BarCheckEditLayout.Checked Then LayoutControlMain.ShowCustomizationForm() - Else - LayoutControlMain.HideCustomizationForm() + XtraTabPageProperties.PageEnabled = True + XtraTabPageControls.PageEnabled = False + XtraTabControlMain.SelectedTabPage = XtraTabPageProperties End If End Sub + + Private Sub BarCheckEditControls_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckEditControls.CheckedChanged + If BarCheckEditControls.Checked Then + LayoutControlMain.HideCustomizationForm() + XtraTabPageProperties.PageEnabled = False + XtraTabPageControls.PageEnabled = True + XtraTabControlMain.SelectedTabPage = XtraTabPageControls + End If + End Sub + + Private Sub LayoutControlMain_HideCustomization(sender As Object, e As EventArgs) Handles LayoutControlMain.HideCustomization + BarCheckEditControls.Checked = True + End Sub + + Private Sub LayoutControlMain_ShowCustomization(sender As Object, e As EventArgs) Handles LayoutControlMain.ShowCustomization + BarCheckEditLayout.Checked = True + End Sub + + End Class \ No newline at end of file diff --git a/EDMI_ClientSuite/FormUserManager/frmUserManager.Designer.vb b/EDMI_ClientSuite/FormUserManager/frmUserManager.Designer.vb index 5c6b89a1..cf5e819f 100644 --- a/EDMI_ClientSuite/FormUserManager/frmUserManager.Designer.vb +++ b/EDMI_ClientSuite/FormUserManager/frmUserManager.Designer.vb @@ -1,6 +1,8 @@ - +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmUserManager - Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits BaseRibbonForm 'Form overrides dispose to clean up the component list. @@ -172,6 +174,7 @@ Partial Class frmUserManager Me.Controls.Add(Me.UserNavbar) Me.Controls.Add(Me.RibbonStatusBar) Me.Controls.Add(Me.UserRibbon) + Me.DefaultRibbonPage = Me.RibbonPageUserManager Me.Name = "frmUserManager" Me.Ribbon = Me.UserRibbon Me.ShowIcon = False diff --git a/EDMI_ClientSuite/FormUserManager/frmUserManager.vb b/EDMI_ClientSuite/FormUserManager/frmUserManager.vb index 325823d1..38ee7d01 100644 --- a/EDMI_ClientSuite/FormUserManager/frmUserManager.vb +++ b/EDMI_ClientSuite/FormUserManager/frmUserManager.vb @@ -22,22 +22,9 @@ Public Class frmUserManager Private Async Sub frmUserManager_Load(sender As Object, e As EventArgs) Handles MyBase.Load Await InitDataAsync() - UserRibbon.SelectPage(RibbonPageUserManager) UserNavbar.SelectedItem = NavbarUser2Group End Sub - Private Sub frmUserManager_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged - If Visible Then - UserRibbon.SelectPage(RibbonPageUserManager) - End If - End Sub - - Private Sub frmUserManager_Activated(sender As Object, e As EventArgs) Handles Me.Activated - If Visible Then - UserRibbon.SelectPage(RibbonPageUserManager) - End If - End Sub - Private Sub ShowUserToGroupControl() If _UserToGroupControl Is Nothing Then _UserToGroupControl = New UserControlAssignment() With { diff --git a/EDMI_ClientSuite/FormWorkflow/frmWorkflowStep.Designer.vb b/EDMI_ClientSuite/FormWorkflow/frmWorkflowStep.Designer.vb index 63af073b..79873166 100644 --- a/EDMI_ClientSuite/FormWorkflow/frmWorkflowStep.Designer.vb +++ b/EDMI_ClientSuite/FormWorkflow/frmWorkflowStep.Designer.vb @@ -1,4 +1,6 @@ - +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmWorkflowStep Inherits BaseRibbonForm diff --git a/EDMI_ClientSuite/My Project/licenses.licx b/EDMI_ClientSuite/My Project/licenses.licx index 511dc5c8..8d76c874 100644 --- a/EDMI_ClientSuite/My Project/licenses.licx +++ b/EDMI_ClientSuite/My Project/licenses.licx @@ -1,14 +1,15 @@ -DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraTabbedMdi.XtraTabbedMdiManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTabbedMdi.XtraTabbedMdiManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EDMI_ClientSuite/_TEST/frmDocTest.Designer.vb b/EDMI_ClientSuite/_TEST/frmDocTest.Designer.vb index 444f4575..3c41f2b8 100644 --- a/EDMI_ClientSuite/_TEST/frmDocTest.Designer.vb +++ b/EDMI_ClientSuite/_TEST/frmDocTest.Designer.vb @@ -1,4 +1,6 @@ - _ +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmDocTest Inherits BaseForm diff --git a/EDMI_ClientSuite/_TEST/frmFileTest.Designer.vb b/EDMI_ClientSuite/_TEST/frmFileTest.Designer.vb index c7eafa56..3ac42dc9 100644 --- a/EDMI_ClientSuite/_TEST/frmFileTest.Designer.vb +++ b/EDMI_ClientSuite/_TEST/frmFileTest.Designer.vb @@ -1,4 +1,6 @@ - +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmFileTest Inherits BaseForm diff --git a/EDMI_ClientSuite/frmHome.Designer.vb b/EDMI_ClientSuite/frmHome.Designer.vb index ccc3d183..6967bbf2 100644 --- a/EDMI_ClientSuite/frmHome.Designer.vb +++ b/EDMI_ClientSuite/frmHome.Designer.vb @@ -1,4 +1,6 @@ - _ +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmHome Inherits BaseRibbonForm diff --git a/EDMI_ClientSuite/frmMain.Designer.vb b/EDMI_ClientSuite/frmMain.Designer.vb index 2136923e..05fcebf0 100644 --- a/EDMI_ClientSuite/frmMain.Designer.vb +++ b/EDMI_ClientSuite/frmMain.Designer.vb @@ -1,4 +1,6 @@ - +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmMain Inherits BaseRibbonForm diff --git a/EDMI_ClientSuite/frmObjectEditor.Designer.vb b/EDMI_ClientSuite/frmObjectEditor.Designer.vb index 599aff3f..3a4b80c4 100644 --- a/EDMI_ClientSuite/frmObjectEditor.Designer.vb +++ b/EDMI_ClientSuite/frmObjectEditor.Designer.vb @@ -1,4 +1,6 @@ - +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmObjectEditor Inherits BaseRibbonForm diff --git a/EDMI_ClientSuite/frmSearch.Designer.vb b/EDMI_ClientSuite/frmSearch.Designer.vb index c3f5e582..cb8a4a76 100644 --- a/EDMI_ClientSuite/frmSearch.Designer.vb +++ b/EDMI_ClientSuite/frmSearch.Designer.vb @@ -1,4 +1,6 @@ - _ +Imports DigitalData.GUIs.ClientSuite.Base + + Partial Class frmSearch Inherits BaseRibbonForm