AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

LookupControl: If AddNewValues is enabled, jump to new row after adding one

Browse Source
This commit is contained in:
Jonathan Jenne 2022-01-19 13:45:42 +01:00
parent 718e373e87
commit 377b59deee
4 changed files with 96 additions and 144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Controls.LookupGrid/My Project/licenses.licx
View File

@ -0,0 +1 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

15
Controls.LookupGrid/frmLookupGrid.Designer.vb generated
View File

@ -36,34 +36,21 @@ Partial Class frmLookupGrid
'gridLookup 'gridLookup
' '
resources.ApplyResources(Me.gridLookup, "gridLookup") resources.ApplyResources(Me.gridLookup, "gridLookup")
Me.gridLookup.EmbeddedNavigator.AccessibleDescription = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleDescription")
Me.gridLookup.EmbeddedNavigator.AccessibleName = resources.GetString("gridLookup.EmbeddedNavigator.AccessibleName")
Me.gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.gridLookup.EmbeddedNavigator.Anchor = CType(resources.GetObject("gridLookup.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.gridLookup.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.gridLookup.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("gridLookup.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.gridLookup.EmbeddedNavigator.ImeMode = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.gridLookup.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("gridLookup.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.gridLookup.EmbeddedNavigator.TextLocation = CType(resources.GetObject("gridLookup.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.gridLookup.EmbeddedNavigator.ToolTip = resources.GetString("gridLookup.EmbeddedNavigator.ToolTip")
Me.gridLookup.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("gridLookup.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.gridLookup.EmbeddedNavigator.ToolTipTitle = resources.GetString("gridLookup.EmbeddedNavigator.ToolTipTitle")
Me.gridLookup.MainView = Me.viewLookup Me.gridLookup.MainView = Me.viewLookup
Me.gridLookup.Name = "gridLookup" Me.gridLookup.Name = "gridLookup"
Me.gridLookup.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewLookup}) Me.gridLookup.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewLookup})
' '
'viewLookup 'viewLookup
' '
resources.ApplyResources(Me.viewLookup, "viewLookup")
Me.viewLookup.GridControl = Me.gridLookup Me.viewLookup.GridControl = Me.gridLookup
Me.viewLookup.Name = "viewLookup" Me.viewLookup.Name = "viewLookup"
Me.viewLookup.OptionsView.ShowGroupPanel = False Me.viewLookup.OptionsView.ShowGroupPanel = False
' '
'Panel1 'Panel1
' '
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Controls.Add(Me.btnOK) Me.Panel1.Controls.Add(Me.btnOK)
Me.Panel1.Controls.Add(Me.btnClear) Me.Panel1.Controls.Add(Me.btnClear)
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
' '
'btnOK 'btnOK

218
Controls.LookupGrid/frmLookupGrid.resx
View File

@ -117,24 +117,16 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="btnOK.Text" xml:space="preserve"> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<value>OK (F2)</value> <data name="gridLookup.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
</data> <value>Fill</value>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="gridLookup.Location" type="System.Drawing.Point, System.Drawing"> <data name="gridLookup.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="&gt;&gt;gridLookup.ZOrder" xml:space="preserve"> <data name="gridLookup.Size" type="System.Drawing.Size, System.Drawing">
<value>0</value> <value>388, 221</value>
</data>
<data name="&gt;&gt;viewLookup.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="gridLookup.EmbeddedNavigator.MaximumSize" type="System.Drawing.Size, System.Drawing">
<value>0, 0</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="gridLookup.TabIndex" type="System.Int32, mscorlib"> <data name="gridLookup.TabIndex" type="System.Int32, mscorlib">
@ -143,14 +135,56 @@
<data name="&gt;&gt;gridLookup.Name" xml:space="preserve"> <data name="&gt;&gt;gridLookup.Name" xml:space="preserve">
<value>gridLookup</value> <value>gridLookup</value>
</data> </data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;gridLookup.Type" xml:space="preserve">
<value>1</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve"> <data name="&gt;&gt;gridLookup.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <data name="&gt;&gt;gridLookup.ZOrder" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>0</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 6</value>
</data>
<data name="btnOK.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 23</value>
</data>
<data name="btnOK.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnOK.Text" xml:space="preserve">
<value>OK (F2)</value>
</data>
<data name="&gt;&gt;btnOK.Name" xml:space="preserve">
<value>btnOK</value>
</data>
<data name="&gt;&gt;btnOK.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnOK.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;btnOK.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnClear.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
</data>
<data name="btnClear.Location" type="System.Drawing.Point, System.Drawing">
<value>240, 6</value>
</data>
<data name="btnClear.Size" type="System.Drawing.Size, System.Drawing">
<value>136, 23</value>
</data>
<data name="btnClear.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnClear.Text" xml:space="preserve">
<value>Leeren</value>
</data>
<data name="&gt;&gt;btnClear.Name" xml:space="preserve">
<value>btnClear</value>
</data> </data>
<data name="&gt;&gt;btnClear.Type" xml:space="preserve"> <data name="&gt;&gt;btnClear.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@ -158,134 +192,58 @@
<data name="&gt;&gt;btnClear.Parent" xml:space="preserve"> <data name="&gt;&gt;btnClear.Parent" xml:space="preserve">
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmLookupGrid</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Bottom</value>
</data>
<data name="&gt;&gt;btnOK.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnClear.Text" xml:space="preserve">
<value>Leeren</value>
</data>
<data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>400, 300</value>
</data>
<data name="&gt;&gt;btnClear.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnClear.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<assembly alias="DevExpress.Utils.v21.2" name="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<data name="gridLookup.EmbeddedNavigator.ToolTipIconType" type="DevExpress.Utils.ToolTipIconType, DevExpress.Utils.v21.2"> <value>Bottom</value>
<value>None</value>
</data>
<assembly alias="DevExpress.XtraEditors.v21.2" name="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="gridLookup.EmbeddedNavigator.TextLocation" type="DevExpress.XtraEditors.NavigatorButtonsTextLocation, DevExpress.XtraEditors.v21.2">
<value>Center</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>388, 261</value>
</data>
<data name="gridLookup.EmbeddedNavigator.ToolTip" xml:space="preserve">
<value />
</data>
<data name="&gt;&gt;gridLookup.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="btnOK.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnOK.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 23</value>
</data>
<data name="&gt;&gt;gridLookup.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="btnClear.Location" type="System.Drawing.Point, System.Drawing">
<value>240, 6</value>
</data>
<data name="&gt;&gt;btnOK.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnClear.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="gridLookup.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="btnClear.Size" type="System.Drawing.Size, System.Drawing">
<value>136, 23</value>
</data>
<data name="&gt;&gt;viewLookup.Name" xml:space="preserve">
<value>viewLookup</value>
</data>
<data name="gridLookup.EmbeddedNavigator.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Tile</value>
</data>
<data name="&gt;&gt;btnClear.Name" xml:space="preserve">
<value>btnClear</value>
</data>
<data name="gridLookup.EmbeddedNavigator.ToolTipTitle" xml:space="preserve">
<value />
</data>
<data name="gridLookup.EmbeddedNavigator.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left</value>
</data>
<data name="$this.TextMultiLine" xml:space="preserve">
<value>Wählen Sie einen oder mehrere Werte:</value>
</data>
<data name="gridLookup.EmbeddedNavigator.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>Inherit</value>
</data>
<data name="btnClear.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="gridLookup.EmbeddedNavigator.AllowHtmlTextInToolTip" type="DevExpress.Utils.DefaultBoolean, DevExpress.Data.v21.2">
<value>Default</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>388, 40</value>
</data>
<data name="gridLookup.Size" type="System.Drawing.Size, System.Drawing">
<value>388, 221</value>
</data> </data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 221</value> <value>0, 221</value>
</data> </data>
<data name="&gt;&gt;btnOK.Parent" xml:space="preserve"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>Panel1</value> <value>388, 40</value>
</data> </data>
<data name="&gt;&gt;btnOK.Name" xml:space="preserve"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>btnOK</value> <value>1</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data> </data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve"> <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="gridLookup.EmbeddedNavigator.AccessibleDescription" type="System.Resources.ResXNullRef, System.Windows.Forms"> <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value /> <value>$this</value>
</data> </data>
<data name="gridLookup.EmbeddedNavigator.AccessibleName" type="System.Resources.ResXNullRef, System.Windows.Forms"> <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value />
</data>
<data name="gridLookup.EmbeddedNavigator.BackgroundImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 6</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Wählen Sie einen Wert:</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>388, 261</value>
</data>
<data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>390, 293</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Wählen Sie einen Wert:</value>
</data>
<data name="&gt;&gt;viewLookup.Name" xml:space="preserve">
<value>viewLookup</value>
</data>
<data name="&gt;&gt;viewLookup.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmLookupGrid</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root> </root>

6
Controls.LookupGrid/frmLookupGrid.vb
View File

@ -261,4 +261,10 @@ Public Class frmLookupGrid
End If End If
End If End If
End Sub End Sub
Private Sub viewLookup_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles viewLookup.FocusedRowChanged
If AddNewValues AndAlso e.PrevFocusedRowHandle = GridControl.NewItemRowHandle Then
BeginInvoke(Sub() viewLookup.FocusedRowHandle = GridControl.NewItemRowHandle)
End If
End Sub
End Class End Class