AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LookupGrid: Hide unused button instead of disabling them

Browse Source
This commit is contained in:
Jonathan Jenne 2021-01-26 14:16:41 +01:00
parent 94a3e39011
commit d88c7186ef
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Controls.LookupGrid/LookupControl2.vb
View File

@ -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