LookupGrid: update LookupControl3

This commit is contained in:
Jonathan Jenne 2021-02-10 10:47:06 +01:00
parent c74102d43e
commit 76c9756788

View File

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