diff --git a/Controls.LookupGrid/LookupControl2.vb b/Controls.LookupGrid/LookupControl2.vb index ba7b1f9a..e75802bd 100644 --- a/Controls.LookupGrid/LookupControl2.vb +++ b/Controls.LookupGrid/LookupControl2.vb @@ -88,23 +88,23 @@ Public Class LookupControl2 AddHandler QueryPopUp, AddressOf HandleQueryPopup End Sub - Private Sub SetFormButtonEnabled(Enabled As Boolean) + Private Sub SetFormButtonEnabled(pVisible As Boolean) Dim oButton As EditorButton = Properties.Buttons. Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM). FirstOrDefault() If oButton IsNot Nothing Then - oButton.Enabled = Enabled + oButton.Visible = pVisible End If End Sub - Private Sub SetDropdownButtonEnabled(Enabled As Boolean) + Private Sub SetDropdownButtonEnabled(pVisible As Boolean) Dim oButton As EditorButton = Properties.Buttons. Where(Function(b) b.Tag = TAG_DROPDOWN). FirstOrDefault() If oButton IsNot Nothing Then - oButton.Enabled = Enabled + oButton.Visible = pVisible End If End Sub