From d88c7186ef43409c45115218de87cab6fd9ab275 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 26 Jan 2021 14:16:41 +0100 Subject: [PATCH] LookupGrid: Hide unused button instead of disabling them --- Controls.LookupGrid/LookupControl2.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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