diff --git a/EDMDesigner/FrmMain.vb b/EDMDesigner/FrmMain.vb index c345b463..d1b8f5e1 100644 --- a/EDMDesigner/FrmMain.vb +++ b/EDMDesigner/FrmMain.vb @@ -67,9 +67,6 @@ Public Class FrmMain Catch ex As Exception MsgBox(ex.Message) End Try - - - End Sub Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load diff --git a/EDMI_ClientSuite/ClassControlPatcher.vb b/EDMI_ClientSuite/ClassControlPatcher.vb index fb95cffc..1f274957 100644 --- a/EDMI_ClientSuite/ClassControlPatcher.vb +++ b/EDMI_ClientSuite/ClassControlPatcher.vb @@ -17,19 +17,19 @@ Public Class ClassControlPatcher(Of T As Control) _Container = Container End Sub - Public Function ProcessContainer(Action As Action(Of T)) As ClassControlPatcher(Of T) + Public Function ProcessContainer(Action As Action(Of T, Control)) As ClassControlPatcher(Of T) Return ProcessContainer(_Container, Action) End Function - Public Function ProcessControl(Action As Action(Of T), ByVal Control As Control) As ClassControlPatcher(Of T) - Action(Control) + Public Function ProcessControl(Action As Action(Of T, Control), ByVal Control As Control) As ClassControlPatcher(Of T) + Action(Control, _Container) Return Me End Function - Private Function ProcessContainer(ByVal Container As Control, Action As Action(Of T)) As ClassControlPatcher(Of T) + Private Function ProcessContainer(ByVal Container As Control, Action As Action(Of T, Control)) As ClassControlPatcher(Of T) For Each oControl As Control In Container.Controls If oControl.[GetType]() = GetType(T) Then - Action(oControl) + Action(oControl, Container) Else ProcessContainer(oControl, Action) End If diff --git a/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb b/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb index b80293d7..1e69cf41 100644 --- a/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb +++ b/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb @@ -2,7 +2,7 @@ Imports DevExpress.XtraGrid.Views.Grid Public Class ClassGridControl - Public Shared Sub DefaultGridSettings(grid As GridControl) + Public Shared Sub DefaultGridSettings(grid As GridControl, Container As Control) For Each oView In grid.Views If TypeOf oView Is GridView Then DefaultGridViewSettings(oView) @@ -10,15 +10,15 @@ Public Class ClassGridControl Next End Sub - Public Shared Sub ReadOnlyGridSettings(grid As GridControl) + Public Shared Sub ReadOnlyGridSettings(grid As GridControl, Container As Control) For Each oView In grid.Views If TypeOf oView Is GridView Then - ReadonlyGridViewSettings(oView) + ReadonlyGridViewSettings(oView, Container) End If Next End Sub - Public Shared Sub CheckboxSelectGridSettings(grid As GridControl) + Public Shared Sub CheckboxSelectGridSettings(grid As GridControl, Container As Control) For Each oView In grid.Views If TypeOf oView Is GridView Then CheckboxSelectGridViewSettings(oView) @@ -29,7 +29,7 @@ Public Class ClassGridControl ''' ''' Set a view to readonly ''' - Private Shared Sub ReadonlyGridViewSettings(ByRef View As GridView) + Private Shared Sub ReadonlyGridViewSettings(ByRef View As GridView, Container As Control) View.OptionsBehavior.Editable = False View.OptionsBehavior.ReadOnly = True End Sub @@ -54,6 +54,11 @@ Public Class ClassGridControl View.Appearance.FilterPanel.BackColor = Color.Orange AddHandler View.RowStyle, AddressOf GridView_RowStyle + 'AddHandler View.Layout, AddressOf GridView_Layout + End Sub + + Private Shared Sub GridView_Layout(sender As Object, e As EventArgs) + 'Throw New NotImplementedException() End Sub Private Shared Sub GridView_RowStyle(sender As Object, e As RowStyleEventArgs) diff --git a/EDMI_ClientSuite/UserManager/UserControlAssignment.vb b/EDMI_ClientSuite/UserManager/UserControlAssignment.vb index 8b89d235..f888132d 100644 --- a/EDMI_ClientSuite/UserManager/UserControlAssignment.vb +++ b/EDMI_ClientSuite/UserManager/UserControlAssignment.vb @@ -182,6 +182,11 @@ Public Class UserControlAssignment Where oRow.Item(_ParentIdColumn) = _ParentRecordId Select oRow.Item(_ChildIdColumn) + If _ChildList Is Nothing Then + Exit Sub + End If + + Dim oAssignedChildren As EnumerableRowCollection(Of DataRow) = From oRow In _ChildList.AsEnumerable() Where oAssignedChildIds.Contains(oRow.Item(ClassConstants.ATTRIBUTE_ID_COLUMN)) diff --git a/EDMI_ClientSuite/frmEdit.Designer.vb b/EDMI_ClientSuite/frmEdit.Designer.vb index 14479f3b..8779f305 100644 --- a/EDMI_ClientSuite/frmEdit.Designer.vb +++ b/EDMI_ClientSuite/frmEdit.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmEdit 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEdit)) Me.SplitContainer = New DevExpress.XtraEditors.SplitContainerControl() Me.GridList = New DevExpress.XtraGrid.GridControl() @@ -54,13 +53,13 @@ Partial Class frmEdit 'SplitContainer ' Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer.Location = New System.Drawing.Point(0, 146) + Me.SplitContainer.Location = New System.Drawing.Point(0, 143) Me.SplitContainer.Name = "SplitContainer" Me.SplitContainer.Panel1.Controls.Add(Me.GridList) Me.SplitContainer.Panel1.Text = "Panel1" Me.SplitContainer.Panel2.Controls.Add(Me.LayoutControl1) Me.SplitContainer.Panel2.Text = "Panel2" - Me.SplitContainer.Size = New System.Drawing.Size(1104, 338) + Me.SplitContainer.Size = New System.Drawing.Size(1104, 331) Me.SplitContainer.SplitterPosition = 547 Me.SplitContainer.TabIndex = 0 Me.SplitContainer.Text = "SplitContainerControl1" @@ -71,7 +70,7 @@ Partial Class frmEdit Me.GridList.Location = New System.Drawing.Point(0, 0) Me.GridList.MainView = Me.ViewList Me.GridList.Name = "GridList" - Me.GridList.Size = New System.Drawing.Size(547, 338) + Me.GridList.Size = New System.Drawing.Size(547, 331) Me.GridList.TabIndex = 0 Me.GridList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewList}) ' @@ -87,7 +86,7 @@ Partial Class frmEdit Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(-870, 211, 650, 400) Me.LayoutControl1.Root = Me.LayoutGroup - Me.LayoutControl1.Size = New System.Drawing.Size(545, 338) + Me.LayoutControl1.Size = New System.Drawing.Size(552, 331) Me.LayoutControl1.TabIndex = 0 Me.LayoutControl1.Text = "LayoutControl1" ' @@ -96,7 +95,7 @@ Partial Class frmEdit Me.LayoutGroup.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutGroup.GroupBordersVisible = False Me.LayoutGroup.Name = "Root" - Me.LayoutGroup.Size = New System.Drawing.Size(545, 338) + Me.LayoutGroup.Size = New System.Drawing.Size(552, 331) Me.LayoutGroup.TextVisible = False ' 'RibbonControl1 @@ -108,7 +107,7 @@ Partial Class frmEdit Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.Size = New System.Drawing.Size(1104, 146) + Me.RibbonControl1.Size = New System.Drawing.Size(1104, 143) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonSave @@ -189,10 +188,10 @@ Partial Class frmEdit ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelParentAttributeId) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelSyskey) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 484) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 474) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1104, 21) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1104, 31) ' 'RibbonPage2 ' diff --git a/EDMI_ClientSuite/frmEdit.vb b/EDMI_ClientSuite/frmEdit.vb index 635d2c6d..1f1534a7 100644 --- a/EDMI_ClientSuite/frmEdit.vb +++ b/EDMI_ClientSuite/frmEdit.vb @@ -30,6 +30,10 @@ Public Class frmEdit _BindingSource = New BindingSource With { .DataSource = _Datatable } + + If _Datatable Is Nothing Then + _ErrorHandler.ShowErrorMessage(New ArgumentNullException("Datatable is empty")) + End If End Sub Private Async Sub frmEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -120,25 +124,41 @@ Public Class frmEdit oIntegerEdit.Properties.Mask.MaskType = Mask.MaskType.Numeric oIntegerEdit.Properties.Mask.EditMask = "n" oEditor = oIntegerEdit + Case GetType(DateTime) + Dim oDateEdit As New DateEdit() With { + .Name = Column.ColumnName + } + + oEditor = oDateEdit + Case GetType(Boolean) + Dim oCheckEdit = New CheckEdit() With { + .Name = Column.ColumnName + } + + oCheckEdit.Properties.Caption = Column.ColumnName + + oEditor = oCheckEdit Case Else - oEditor = New TextEdit() With {.Name = Column.ColumnName} + oEditor = New TextEdit() With { + .Name = Column.ColumnName + } End Select + + Dim oMetadata As New ControlMetadata() With { + .DataType = Column.DataType, + .ColumnName = Column.ColumnName + } + ' Set EditControl Metadata - If AttributeId > 0 Then - oEditor.Tag = New ControlMetadata() With { - .AttributeId = AttributeId, - .DataType = Column.DataType, - .ColumnName = Column.ColumnName - } + If AttributeId = 0 Then + oMetadata.AttributeId = Nothing Else - oEditor.Tag = New ControlMetadata() With { - .AttributeId = Nothing, - .DataType = Column.DataType, - .ColumnName = Column.ColumnName - } + oMetadata.AttributeId = AttributeId End If + oEditor.Tag = oMetadata + Return oEditor End Function @@ -173,7 +193,13 @@ Public Class frmEdit Dim oAttributeId As Integer = GetRowItemBySequence(oCounter, "ATTRIBUTE_ID") Dim oCaption = GetColumnCaption(oColumn, oCounter) Dim oEditor = GetColumnEditor(oColumn, oAttributeId) - oEditor.DataBindings.Add(New Binding("Text", _BindingSource, oColumn.ColumnName)) + + ' Setup Databinding for editor + If oColumn.DataType = GetType(Boolean) Then + oEditor.DataBindings.Add(New Binding("Checked", _BindingSource, oColumn.ColumnName)) + Else + oEditor.DataBindings.Add(New Binding("Text", _BindingSource, oColumn.ColumnName)) + End If ' Add Control to Layout LayoutGroup.AddItem(oCaption, oEditor) @@ -227,4 +253,8 @@ Public Class frmEdit _LayoutConfig = oDefaultLayout ApplyLayout() End Sub + + Private Sub ViewList_Layout(sender As Object, e As EventArgs) Handles ViewList.Layout + + End Sub End Class \ No newline at end of file diff --git a/EDMI_ClientSuite/frmMain.Designer.vb b/EDMI_ClientSuite/frmMain.Designer.vb index 26cff891..397aa3d2 100644 --- a/EDMI_ClientSuite/frmMain.Designer.vb +++ b/EDMI_ClientSuite/frmMain.Designer.vb @@ -19,11 +19,10 @@ Partial Class frmMain 'Do not modify it using the code editor. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition() Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu() Me.BarButtonExit = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonUserSettings = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonConnectionSettings = New DevExpress.XtraBars.BarButtonItem() @@ -42,6 +41,7 @@ Partial Class frmMain Me.WorkspaceManager1 = New DevExpress.Utils.WorkspaceManager() Me.LabelServiceOnline = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonUserManager = New DevExpress.XtraBars.BarButtonItem() + Me.LabelServiceOffline = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -52,9 +52,9 @@ Partial Class frmMain Me.RibbonPageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager(Me.components) - Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView(Me.components) - Me.DockManager = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager() + Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView() + Me.DockManager = New DevExpress.XtraBars.Docking.DockManager() Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanelGlobix = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() @@ -78,15 +78,15 @@ Partial Class frmMain ' Me.RibbonControl.ApplicationButtonDropDownControl = Me.MainMenu Me.RibbonControl.ExpandCollapseItem.Id = 0 - Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.BarButtonDock1, Me.SkinDropDownButtonItem1, Me.BarButtonDashboard, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager}) + Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.BarButtonDock1, Me.SkinDropDownButtonItem1, Me.BarButtonDashboard, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager, Me.LabelServiceOffline}) Me.RibbonControl.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl.MaxItemId = 20 + Me.RibbonControl.MaxItemId = 21 Me.RibbonControl.MdiMergeStyle = DevExpress.XtraBars.Ribbon.RibbonMdiMergeStyle.Always Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.PageHeaderItemLinks.Add(Me.SkinDropDownButtonItem1) Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1) Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageView, Me.RibbonPageWorkflow, Me.RibbonPageAdmin}) - Me.RibbonControl.Size = New System.Drawing.Size(1139, 146) + Me.RibbonControl.Size = New System.Drawing.Size(1139, 143) Me.RibbonControl.StatusBar = Me.RibbonStatusBar ' 'MainMenu @@ -124,12 +124,14 @@ Partial Class frmMain ' Me.LabelCurrentUser.Caption = "Current User" Me.LabelCurrentUser.Id = 3 + Me.LabelCurrentUser.ImageOptions.Image = CType(resources.GetObject("LabelCurrentUser.ImageOptions.Image"), System.Drawing.Image) Me.LabelCurrentUser.Name = "LabelCurrentUser" ' 'LabelCurrentMachine ' Me.LabelCurrentMachine.Caption = "Current Machine" Me.LabelCurrentMachine.Id = 4 + Me.LabelCurrentMachine.ImageOptions.Image = CType(resources.GetObject("LabelCurrentMachine.ImageOptions.Image"), System.Drawing.Image) Me.LabelCurrentMachine.Name = "LabelCurrentMachine" ' 'LabelCurrentVersion @@ -137,6 +139,8 @@ Partial Class frmMain Me.LabelCurrentVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right Me.LabelCurrentVersion.Caption = "Current Version" Me.LabelCurrentVersion.Id = 5 + Me.LabelCurrentVersion.ImageOptions.Image = CType(resources.GetObject("LabelCurrentVersion.ImageOptions.Image"), System.Drawing.Image) + Me.LabelCurrentVersion.ImageOptions.LargeImage = CType(resources.GetObject("LabelCurrentVersion.ImageOptions.LargeImage"), System.Drawing.Image) Me.LabelCurrentVersion.Name = "LabelCurrentVersion" ' 'BarButtonItem1 @@ -184,6 +188,7 @@ Partial Class frmMain ' Me.LabelCurrentLanguage.Caption = "CurrentLanguage" Me.LabelCurrentLanguage.Id = 15 + Me.LabelCurrentLanguage.ImageOptions.Image = CType(resources.GetObject("LabelCurrentLanguage.ImageOptions.Image"), System.Drawing.Image) Me.LabelCurrentLanguage.Name = "LabelCurrentLanguage" ' 'BarButtonItem2 @@ -206,8 +211,9 @@ Partial Class frmMain ' 'LabelServiceOnline ' - Me.LabelServiceOnline.Caption = "BarStaticItem1" + Me.LabelServiceOnline.Caption = "Service Online" Me.LabelServiceOnline.Id = 18 + Me.LabelServiceOnline.ImageOptions.Image = CType(resources.GetObject("LabelServiceOnline.ImageOptions.Image"), System.Drawing.Image) Me.LabelServiceOnline.Name = "LabelServiceOnline" ' 'BarButtonUserManager @@ -218,6 +224,13 @@ Partial Class frmMain Me.BarButtonUserManager.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonUserManager.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonUserManager.Name = "BarButtonUserManager" ' + 'LabelServiceOffline + ' + Me.LabelServiceOffline.Caption = "Service Offline" + Me.LabelServiceOffline.Id = 20 + Me.LabelServiceOffline.ImageOptions.Image = CType(resources.GetObject("LabelServiceOffline.ImageOptions.Image"), System.Drawing.Image) + Me.LabelServiceOffline.Name = "LabelServiceOffline" + ' 'RibbonPageStart ' Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3}) @@ -280,10 +293,11 @@ Partial Class frmMain Me.RibbonStatusBar.ItemLinks.Add(Me.LabelCurrentVersion) Me.RibbonStatusBar.ItemLinks.Add(Me.LabelCurrentLanguage) Me.RibbonStatusBar.ItemLinks.Add(Me.LabelServiceOnline) - Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 556) + Me.RibbonStatusBar.ItemLinks.Add(Me.LabelServiceOffline) + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 546) Me.RibbonStatusBar.Name = "RibbonStatusBar" Me.RibbonStatusBar.Ribbon = Me.RibbonControl - Me.RibbonStatusBar.Size = New System.Drawing.Size(1139, 21) + Me.RibbonStatusBar.Size = New System.Drawing.Size(1139, 31) ' 'DocumentManager ' @@ -308,11 +322,11 @@ Partial Class frmMain Me.panelContainer1.Controls.Add(Me.DockPanelProcessManager) Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right Me.panelContainer1.ID = New System.Guid("a0849884-28cd-486b-bc02-0c28fd88a006") - Me.panelContainer1.Location = New System.Drawing.Point(793, 146) + Me.panelContainer1.Location = New System.Drawing.Point(793, 143) Me.panelContainer1.Name = "panelContainer1" Me.panelContainer1.OriginalSize = New System.Drawing.Size(346, 200) Me.panelContainer1.SavedSizeFactor = 0R - Me.panelContainer1.Size = New System.Drawing.Size(346, 410) + Me.panelContainer1.Size = New System.Drawing.Size(346, 403) Me.panelContainer1.Text = "panelContainer1" ' 'DockPanelGlobix @@ -323,17 +337,17 @@ Partial Class frmMain Me.DockPanelGlobix.Location = New System.Drawing.Point(0, 0) Me.DockPanelGlobix.Name = "DockPanelGlobix" Me.DockPanelGlobix.Options.ShowCloseButton = False - Me.DockPanelGlobix.OriginalSize = New System.Drawing.Size(200, 200) + Me.DockPanelGlobix.OriginalSize = New System.Drawing.Size(346, 205) Me.DockPanelGlobix.SavedSizeFactor = 0R - Me.DockPanelGlobix.Size = New System.Drawing.Size(346, 205) + Me.DockPanelGlobix.Size = New System.Drawing.Size(346, 202) Me.DockPanelGlobix.Text = "GLOBIX" ' 'DockPanel1_Container ' Me.DockPanel1_Container.Controls.Add(Me.Label1) - Me.DockPanel1_Container.Location = New System.Drawing.Point(5, 38) + Me.DockPanel1_Container.Location = New System.Drawing.Point(5, 23) Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(337, 162) + Me.DockPanel1_Container.Size = New System.Drawing.Size(337, 174) Me.DockPanel1_Container.TabIndex = 0 ' 'Label1 @@ -342,7 +356,7 @@ Partial Class frmMain Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(337, 162) + Me.Label1.Size = New System.Drawing.Size(337, 174) Me.Label1.TabIndex = 0 Me.Label1.Text = "DROP FILES HERE" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -352,20 +366,20 @@ Partial Class frmMain Me.DockPanelProcessManager.Controls.Add(Me.DockPanel2_Container) Me.DockPanelProcessManager.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill Me.DockPanelProcessManager.ID = New System.Guid("a84f02de-66af-4674-9260-85bec9f0825b") - Me.DockPanelProcessManager.Location = New System.Drawing.Point(0, 205) + Me.DockPanelProcessManager.Location = New System.Drawing.Point(0, 202) Me.DockPanelProcessManager.Name = "DockPanelProcessManager" Me.DockPanelProcessManager.Options.ShowCloseButton = False - Me.DockPanelProcessManager.OriginalSize = New System.Drawing.Size(346, 200) + Me.DockPanelProcessManager.OriginalSize = New System.Drawing.Size(346, 205) Me.DockPanelProcessManager.SavedSizeFactor = 0R - Me.DockPanelProcessManager.Size = New System.Drawing.Size(346, 205) + Me.DockPanelProcessManager.Size = New System.Drawing.Size(346, 201) Me.DockPanelProcessManager.Text = "Process Manager" ' 'DockPanel2_Container ' Me.DockPanel2_Container.Controls.Add(Me.ProcessManagerWidget) - Me.DockPanel2_Container.Location = New System.Drawing.Point(5, 38) + Me.DockPanel2_Container.Location = New System.Drawing.Point(5, 23) Me.DockPanel2_Container.Name = "DockPanel2_Container" - Me.DockPanel2_Container.Size = New System.Drawing.Size(337, 163) + Me.DockPanel2_Container.Size = New System.Drawing.Size(337, 174) Me.DockPanel2_Container.TabIndex = 0 ' 'ProcessManagerWidget @@ -374,7 +388,7 @@ Partial Class frmMain Me.ProcessManagerWidget.Dock = System.Windows.Forms.DockStyle.Fill Me.ProcessManagerWidget.Location = New System.Drawing.Point(0, 0) Me.ProcessManagerWidget.Name = "ProcessManagerWidget" - Me.ProcessManagerWidget.Size = New System.Drawing.Size(337, 163) + Me.ProcessManagerWidget.Size = New System.Drawing.Size(337, 174) Me.ProcessManagerWidget.TabIndex = 0 ' 'frmMain @@ -446,4 +460,5 @@ Partial Class frmMain Friend WithEvents BarButtonUserManager As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageAdmin As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents LabelServiceOffline As DevExpress.XtraBars.BarStaticItem End Class diff --git a/EDMI_ClientSuite/frmMain.resx b/EDMI_ClientSuite/frmMain.resx index 16b2b657..ad93097d 100644 --- a/EDMI_ClientSuite/frmMain.resx +++ b/EDMI_ClientSuite/frmMain.resx @@ -187,6 +187,59 @@ UgOUWsM43AyRGqDEGqa++dLn1ABd1/BY5qnbDos7khqgyxoeyXhVeA3nxddw1QPX5C8cUgPk/Bu2DofU AG03YIyuMvdCa5bC0ZhwkGGbNcwKB3QmHGQK665hVjiQZcIB04pdcSBYxdQaYlaHxMF13YQDWSY8B5k1 w9YKB7TGLAeZxaH/hgNaY5aDzJoDrBUOIYTBL0gqUmOSnmecAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1Bl + cnNvbjtDb250YWN0O1VzZXI7Q2xpZW50fhE26AAAAfhJREFUWEfF1rFLVWEYx3FBFweHwGhVamnIvdUQ + CmwI+mOiIUIXwV10cQ8aGoVcbFWCiIYgAiVHsWgwSDj+fofzHN7nvV+vDt7r8Fne87zP99x7HZxomuZW + DRw8X9m5jmV5J7/kf+dY3ssLoTtJ9FLcaLiyIc0VtoXu9qKX4kbDhadCQfJSaEcreiluNFzw104x8kFo + Ryt6KW40XPguFCM/hHa0opfiRsOFv0Ix8ltoRyt6KW40XKDQZf4J7WhFL8WNhjuLQqFhfId29b0UNxru + bApFhvEd2tX3UtxouLMmFBnGd2hX30txo+HOfTkRChHP+g7t6nspbjRceCMUI6+EdrSil+JGw4VHQjHi + WdrRil6KGw1XPgoFS7tCd3vRS3Gj4cqCnAmFzc88Q3d70Utxo2HwTE6ljv8RP6M7SfRS3Gj4Enfltfgn + +SRv5Z7Q7IDopbjRcGUSzmpTcJZEL8WNhguP5bM8KM5q/uv/Ip6l563opbjB8JysyDeJ33pPpqWenZED + iTnfWZV5SbPRS3Erhu7Ilvj/vVhY2pcn4q/bluSr0Kx3eJd3XusFHspPoWW18w49q3mnd/e9FDc9nJVD + oQU3wbtno0cvsF4Mj8p69OgFRvnpw2H06AXowo2LHr3AUT08AkfRG3iBccPDccLDccLD8WkmLgAKdExB + J+0x6AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAERvY3VtZW50O01hcDtTY2hlbWU7 + RGlhZ3JhbTtIaWVyYXI7TmV0Tg8qRAAAAMNJREFUWEft0rENwjAQBdAsyDoMwBKMQOuS7Q4cYQlFT4cj + Badx8VL8hP+vYImIUzEciaFcbs/YgR3CUDCSYYcwFIxk2CEMBSMZdghDwUiGHcJQMJJhhzAUjGTYIQwF + Ixl2CEPBSIYdwlAwkmGHMBSMZNghDKWWbpVS4o3v1CEMRSNDD5B2gN71YvgpPhq3GLYfdNj1nbYYth90 + +O8BevftiO/Wx/Vxj1/qP1v5Vm9f/a6aB8wD5gHzgPVxJoYjMRwnlhd3GhRitUujhAAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBCdWlsZDtT + ZXR0aW5ncztDdXN0b21pejtPcHRpb25zWQmgmAAAAL5JREFUOE+9kUEKAjEMRQe6mGPMGeo9BO/hzsUc + QLv3OOMBXM9RXBcU4/+QwQZmmuLCwCMk5P+mbScihpSSOJh5UxAObcV/DIAXZt4Uj/tJSpZY6bcZbFFq + WgxeYAb9QqnxDNjr9udbOFymHXLWHFoMeDLFAkZwBG/NrCGpG8wYCjr8pKCA9egZ9LouT6ToCgbNrNmP + VQMMZMC1KRjQ45Vowpr97BlE8PMG7huAYAzWUEHbL9SAgNfhm8RvX7oP7LDQAsI0/DoAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBCdWlsZDtT + ZXR0aW5ncztDdXN0b21pejtPcHRpb25zWQmgmAAAActJREFUWEfNlT1Ow0AUhHODtFGUNk2aKAehzEWQ + qCMhV3RcgxNwACqq0NJHiAZFNBEIscxE+5yXl4nwD5ZZ6VPWs29ndu21M0gp9YoUI0VRpAZwnvTzSFFQ + u1UJJ1L0uB3VJnoppOjJRrVbXoT09Egx0Li1XkDeRSuiZ0SKRjZo3FovAPxFU74lUiRvD5fpHN9fO5Qc + Gq9VnYEmM4gUiTIyPl4fUXJovFZ1BprMIFIkysh4f7rdh3Ln/OW1qjOit0eKRBk1JXp7pEiUUVOit0eK + RBk1JXp7pEiUUUWewdCj/A0pEkxU5ooXsHGsL67vp2CbmSp/Q4oERioswvABQkZgjP4SXKE/BykzN0/W + gJHPKTuRHPAbGxrmoDuwABNwAz4z7FPjGGtYWy7iJNgQYQougLsy4yqwdmw5J8GGCFPwmS9hyN2pMMXC + 5xyFekKQgqd9DfjMeYstgHdlBWYZ9qnZ+MTnHIV6XNA5hjDjaeeB43O2gBXGOL+EmhtnLefs3w4ZTjBR + hXq4AL5mNOVhs4AZxuICeCds3Gq3zJHhBBNVqOdfLKDXR9D7ISTdvYZVgWE3H6KqwKybT3EdaAjKXaHf + /s+oDQip+HecBj/ZKKh8xQJ6+wAAAABJRU5ErkJggg== @@ -260,11 +313,55 @@ 5cVUmRFSZEhAVG4sI1RmhBQRoojedqV1j5AiAnrL+czDT1Rlt0gR5t5yuzM8QoowZsqNoRFShIlE5Sfg iz3pEVKEYaTcSI1YCbi4B2/V6AN6yg014h10/5Bcg69qzJZbhh9xBjdtD1kJBJcJR3B1qpy4HI5ghiwn UrQgwP9Df+6iycr/ls9EijOR4kykOBMpzqPsfgDZ5w1jF/MagwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAtdEVYdFRpdGxlAEZvbnQ7Q29sb3I7Q2hhbmdlO0Jh + cnM7UmliYm9uO1N0YW5kYXJkO1GA2IIAAAJ2SURBVFhHxdY9jExRGMbx9ZUIovCxEaWKhFWshuiUstEL + IrG+ClEICh2j8hG6rfUsjSAShU5CshGFaCQ0hI74Nv7PzXkn75z7ZMwqRvHL7rznnPc5c3PP3DvW7Xb/ + K1scJVscJVscJVscJVuUqfP3BtmDbvIJK+Hm9rgcWxTXILmNvAE5Cje3x+XYorgGxVp8Q72BJ3Dze1yO + LYprUJxEhD5O/8sE3JqGy7FFcQ2KZ4jAI3ibPl+HW9NwObYorgG2IsJ+YhzXUu0jlsKttTm2KK4BriLC + Hpba9lSTvajXNVyOLYppsATvEEGHofoCvC41iY21uBxbFNMgn/0fWIMYu4QY+40NyGsbLscWxTS4hQi5 + X2phG2JMOsjjjTqj0+lMtoqhWlyf/UOo57xCjOtkLEbfnNxf4egPzarFJxDNv2MV6jkXEXNkN/rmRO8I + n88G8tm/W2o1/QjlDcyib4765vBhN1A3HpZu1HXIvbSBXviwG7gCFzCMs4jg+Ob7IlxsuJSFupHy2Z+v + l2hd9vzZhosWYqo0CqcRY85CvMFnPMccWpe9aK6EDRctxE1E+C+sRw50NkHPg2XYjIlzncs7qvAGYwN/ + iFYjn/0HqMOcLbiDL4ir8GH6wo2D1QYmqQ/cQD77sh91WE2/iLr8x5Gfigcwp9AcLjZcGHyKCNc73wpE + Q0eB76GXlBmcwUboHljEX/VYrs+ZDZd64hAeIV8x0X1zDDpN+l3QE7VvnQ136oWVadThQS8ueo+wj2kb + 5rjFxS4oxIUHPaJ3orXehjluMXRj/i1c46fg1v/zBvQ01CWNEH3D8BW6GV9A74v5xaXFho1Od+wP/kd2 + dhb/KMUAAAAASUVORK5CYII= 412, 17 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAhdEVYdFRpdGxlAEFwcGx5O09LO0NoZWNrO0JhcnM7 + UmliYm9uO2RjyGgAAAFKSURBVFhHxdAxTgNBEARA2wEpiH9hJETCI0j5Ck8gxI+AABAPgoCj27q1eoa+ + 27XkW4KS3KOd65FXwzD8KzvsyQ57ssOe7LCnEB6eHhch399oH4WQF09l/PYVvMKFdh5+UFlYAMu/YIAP + OBzR4wAtL/hPrHsc4MqZr0vnkgdUy2mpA5rKKQQ8OIXmcgoBj9Q65RZHlVMIeFjcwzOcyazm6HIKAY+J + 5T/AD+yg5YjJcggdWQh4fAelvKgdMVtO2pGFgMfn8A76MZo6olpO2pGFMC60HtFUTtqRhSBLtSOay0k7 + shDS4tQRL9BcTtqRhWCWp45QLN+C29/TjiwEtwxzR1TLSTuyENzyiEd8gpZ/ww2494F2ZCG4ZXEJ5QiW + 34J794d2ZCG45YRHvEFzOWlHFoJbNjZmNks7MjvsyQ57ssOe7LAnO+xnWP0CbFjkt+hdVzwAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e + hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv + kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM + zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV + ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 + hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I + 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m diff --git a/EDMI_ClientSuite/frmMain.vb b/EDMI_ClientSuite/frmMain.vb index b48c5fd7..4c54d777 100644 --- a/EDMI_ClientSuite/frmMain.vb +++ b/EDMI_ClientSuite/frmMain.vb @@ -24,11 +24,15 @@ Public Class frmMain Private Sub SetOnlineLabel() If My.Application.Service.Online Then - LabelServiceOnline.Caption = "Service Online" - LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Green + LabelServiceOnline.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + LabelServiceOffline.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + 'LabelServiceOnline.Caption = "Service Online" + 'LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Green Else - LabelServiceOnline.Caption = "Service Offline" - LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Red + LabelServiceOnline.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + LabelServiceOffline.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + 'LabelServiceOnline.Caption = "Service Offline" + 'LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Red End If End Sub diff --git a/LookupGrid/GridLookupEditExOLD.resx b/LookupGrid/GridLookupEditExOLD.resx new file mode 100644 index 00000000..e5858cc2 --- /dev/null +++ b/LookupGrid/GridLookupEditExOLD.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + \ No newline at end of file diff --git a/LookupGrid/GridLookupEditExOLD.vb b/LookupGrid/GridLookupEditExOLD.vb new file mode 100644 index 00000000..c5274973 --- /dev/null +++ b/LookupGrid/GridLookupEditExOLD.vb @@ -0,0 +1,131 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository + +Public Class GridLookupEditExOLD + Inherits GridLookUpEdit + + + Public Property MultiSelect As Boolean + + Public Property AllowAddNewValues As Boolean + + Public Property PreventDuplicates As Boolean + + Public Property DataSource As DataTable + + Public Property SelectedValues As List(Of String) + Get + If _selectedValues Is Nothing Then + Return New List(Of String) + End If + + Return _selectedValues + End Get + Set(value As List(Of String)) + _selectedValues = value + + UpdateSelectedValues(value) + End Set + End Property + + Private _selectedValues As List(Of String) + + Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm" + Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt" + Friend WithEvents fProperties As RepositoryItemGridLookUpEdit + Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView + Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt" + + Public Sub New() + Properties.View.OptionsBehavior.ReadOnly = True + Properties.View.OptionsBehavior.Editable = False + Properties.View.OptionsView.ShowColumnHeaders = False + Properties.PopupFormSize = New System.Drawing.Size(Properties.PopupFormSize.Width, 100) + + ' If single select, remove dropdown button + If MultiSelect = False Then + Properties.Buttons.Clear() + End If + + Properties.Buttons.Add(New EditorButton() With { + .Kind = ButtonPredefines.Ellipsis, + .Tag = TAG_BUTTON_LOOKUP_FORM + }) + + End Sub + + Private Function GetLookupForm() As frmLookupGrid + Dim oForm As New frmLookupGrid() With { + .MultiSelect = MultiSelect, + .AddNewValues = AllowAddNewValues, + .PreventDuplicates = PreventDuplicates, + .DataSource = DataSource, + .SelectedValues = SelectedValues, + .StartPosition = Windows.Forms.FormStartPosition.Manual, + .Location = PointToScreen(New System.Drawing.Point(Width, 0)) + } + + Return oForm + End Function + + Private Sub UpdateSelectedValues(Values As List(Of String)) + If MultiSelect = True Then + Properties.DataSource = Values + Properties.NullText = IIf(Values.Count = 0, TEXT_NO_RECORDS, String.Format(TEXT_N_RECORDS, Values.Count)) + Else + Text = Values.FirstOrDefault() + End If + End Sub + + Private Sub GridLookupEditEx_EditValueChanging(sender As Object, e As ChangingEventArgs) Handles Me.EditValueChanging + If MultiSelect Then + e.Cancel = True + End If + End Sub + + Private Sub lookupControlMulti_ButtonClick(sender As Object, e As ButtonPressedEventArgs) + If e.Button.Tag <> TAG_BUTTON_LOOKUP_FORM Then + Exit Sub + End If + + Dim oForm As frmLookupGrid = GetLookupForm() + Dim oResult = oForm.ShowDialog() + + If oResult = Windows.Forms.DialogResult.OK Then + Dim oValues = oForm.SelectedValues + + UpdateSelectedValues(oValues) + + SelectedValues = oValues + End If + + oForm.Dispose() + End Sub + + Private Sub InitializeComponent() + Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit() + Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView() + CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'fProperties + ' + Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.fProperties.Name = "fProperties" + Me.fProperties.PopupView = Me.fPropertiesView + ' + 'fPropertiesView + ' + Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus + Me.fPropertiesView.Name = "fPropertiesView" + Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False + Me.fPropertiesView.OptionsView.ShowGroupPanel = False + CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/LookupGrid/LookupControl.Designer.vb b/LookupGrid/LookupControl.Designer.vb index a0f71ae1..ffdedd38 100644 --- a/LookupGrid/LookupControl.Designer.vb +++ b/LookupGrid/LookupControl.Designer.vb @@ -24,13 +24,13 @@ Partial Class LookupControl Private Sub InitializeComponent() Me.SuspendLayout() ' - 'Grid + 'LookupControl ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.AutoSize = True + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.BackColor = System.Drawing.Color.Transparent - Me.Name = "Grid" + Me.Name = "LookupControl" Me.Size = New System.Drawing.Size(270, 35) Me.ResumeLayout(False) diff --git a/LookupGrid/LookupControl.vbproj b/LookupGrid/LookupControl.vbproj index 86ae1b1a..a5a03a59 100644 --- a/LookupGrid/LookupControl.vbproj +++ b/LookupGrid/LookupControl.vbproj @@ -105,12 +105,19 @@ Form + + Component + LookupControl.vb UserControl + + Component + + @@ -145,6 +152,9 @@ frmLookupGrid.vb + + GridLookupEditExOLD.vb + LookupControl.vb diff --git a/LookupGrid/LookupControl2.vb b/LookupGrid/LookupControl2.vb new file mode 100644 index 00000000..7908bc17 --- /dev/null +++ b/LookupGrid/LookupControl2.vb @@ -0,0 +1,74 @@ +Imports System.ComponentModel +Imports System.Drawing +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Drawing +Imports DevExpress.XtraEditors.Registrator +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraEditors.ViewInfo +Imports DevExpress.XtraEditors.Popup +Imports DevExpress.Accessibility + + +Public Class RepositoryItemLookupControl2 + Inherits RepositoryItemGridLookUpEdit + + Shared Sub New() + RegisterLookupControl2() + End Sub + + Public Const CustomEditName As String = "LookupControl2" + + Public Sub New() + + End Sub + + Public Overrides ReadOnly Property EditorTypeName As String + Get + Return CustomEditName + End Get + End Property + + Public Shared Sub RegisterLookupControl2() + Dim img As Image = Nothing + EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(CustomEditName, GetType(LookupControl2), GetType(RepositoryItemLookupControl2), GetType(GridLookUpEditBaseViewInfo), New ButtonEditPainter(), True, img, GetType(ButtonEditAccessible))) + End Sub + + Public Overrides Sub Assign(item As RepositoryItem) + BeginUpdate() + Try + MyBase.Assign(item) + Dim source As RepositoryItemLookupControl2 = TryCast(item, RepositoryItemLookupControl2) + If source Is Nothing Then + Return + End If + Finally + EndUpdate() + End Try + End Sub +End Class + + +Public Class LookupControl2 + Inherits GridLookUpEdit + + Shared Sub New() + RepositoryItemLookupControl2.RegisterLookupControl2() + End Sub + + Public Sub New() + + End Sub + + + Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl2 + Get + Return TryCast(MyBase.Properties, RepositoryItemLookupControl2) + End Get + End Property + + Public Overrides ReadOnly Property EditorTypeName As String + Get + Return RepositoryItemLookupControl2.CustomEditName + End Get + End Property +End Class diff --git a/LookupGrid/LookupCreator.vb b/LookupGrid/LookupCreator.vb new file mode 100644 index 00000000..6f9a206e --- /dev/null +++ b/LookupGrid/LookupCreator.vb @@ -0,0 +1,3 @@ +Public Class LookupCreator + +End Class diff --git a/LookupGrid/My Project/licenses.licx b/LookupGrid/My Project/licenses.licx index 651421aa..6d8ceb1f 100644 --- a/LookupGrid/My Project/licenses.licx +++ b/LookupGrid/My Project/licenses.licx @@ -1,4 +1,5 @@ -DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.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.XtraEditors.TextEdit, DevExpress.XtraEditors.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.XtraEditors.TextEdit, DevExpress.XtraEditors.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.XtraEditors.Repository.RepositoryItemGridLookUpEdit, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/TestGUI/Form1.Designer.vb b/TestGUI/Form1.Designer.vb index f4812171..8888ec79 100644 --- a/TestGUI/Form1.Designer.vb +++ b/TestGUI/Form1.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class Form1 Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class Form1 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.Button1 = New System.Windows.Forms.Button() diff --git a/TestGUI/Form1.vb b/TestGUI/Form1.vb index 7b2dcde6..6f8babf9 100644 --- a/TestGUI/Form1.vb +++ b/TestGUI/Form1.vb @@ -1,6 +1,8 @@ Imports DigitalData.Modules.Windream Imports DigitalData.Modules.Logging Imports System.ComponentModel +Imports DigitalData.Controls.LookupGrid +Imports DevExpress.XtraEditors Public Class Form1 Dim MyLogger As LogConfig @@ -80,6 +82,8 @@ Public Class Form1 LookupControl1.DataSource = datatable LookupControl1.SelectedValues = New List(Of String) From {"foo"} + + End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click diff --git a/TestGUI/My Project/Application.Designer.vb b/TestGUI/My Project/Application.Designer.vb index 716d1571..786811bc 100644 --- a/TestGUI/My Project/Application.Designer.vb +++ b/TestGUI/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.TestGUI.ConfigTest + Me.MainForm = Global.TestGUI.Form1 End Sub End Class End Namespace diff --git a/TestGUI/My Project/Application.myapp b/TestGUI/My Project/Application.myapp index 75bf29f8..0f12f323 100644 --- a/TestGUI/My Project/Application.myapp +++ b/TestGUI/My Project/Application.myapp @@ -1,7 +1,7 @@  true - ConfigTest + Form1 false 0 true diff --git a/TestGUI/My Project/licenses.licx b/TestGUI/My Project/licenses.licx index 48e01e50..4c066627 100644 --- a/TestGUI/My Project/licenses.licx +++ b/TestGUI/My Project/licenses.licx @@ -1,2 +1,3 @@ +DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.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.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/TestGUI/TestGUI.vbproj b/TestGUI/TestGUI.vbproj index 4a719fb0..6a81b007 100644 --- a/TestGUI/TestGUI.vbproj +++ b/TestGUI/TestGUI.vbproj @@ -57,6 +57,7 @@ + False bin\Debug\DigitalData.Controls.LookupGrid.dll