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

LookupGrid: update LookupControl3

Browse Source
This commit is contained in:
Jonathan Jenne 2021-02-10 10:47:06 +01:00
parent c74102d43e
commit 76c9756788
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Controls.LookupGrid/LookupControl3.vb
View File

@ -213,21 +213,17 @@ Public Class RepositoryItemLookupControl3
End Try End Try
End Sub End Sub
Public Overrides Sub EndInit() Public Overrides Sub CreateDefaultButton()
MyBase.EndInit() MyBase.CreateDefaultButton()
Dim oLookupFormButton = New EditorButton() With { Dim oLookupFormButtonm = New EditorButton() With {
.Kind = ButtonPredefines.Search, .Kind = ButtonPredefines.Search,
.Tag = TAG_BUTTON_LOOKUP_FORM, .Tag = TAG_BUTTON_LOOKUP_FORM,
.Width = 20 .Width = 20
} }
' Add button if it does not already exists Buttons.Item(0).Tag = TAG_DROPDOWN
If Buttons.Contains(oLookupFormButton) = False Then Buttons.AddRange({oLookupFormButtonm})
Buttons.Insert(0, oLookupFormButton)
' Set the button which opens the dropdown
ActionButtonIndex = 1
End If
End Sub End Sub
Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs) Protected Overrides Sub RaiseQueryPopUp(e As CancelEventArgs)