AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects 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 AddHandler QueryPopUp, AddressOf HandleQueryPopup
End Sub End Sub
Private Sub SetFormButtonEnabled(Enabled As Boolean) Private Sub SetFormButtonEnabled(pVisible As Boolean)
Dim oButton As EditorButton = Properties.Buttons. Dim oButton As EditorButton = Properties.Buttons.
Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM). Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM).
FirstOrDefault() FirstOrDefault()
If oButton IsNot Nothing Then If oButton IsNot Nothing Then
oButton.Enabled = Enabled oButton.Visible = pVisible
End If End If
End Sub End Sub
Private Sub SetDropdownButtonEnabled(Enabled As Boolean) Private Sub SetDropdownButtonEnabled(pVisible As Boolean)
Dim oButton As EditorButton = Properties.Buttons. Dim oButton As EditorButton = Properties.Buttons.
Where(Function(b) b.Tag = TAG_DROPDOWN). Where(Function(b) b.Tag = TAG_DROPDOWN).
FirstOrDefault() FirstOrDefault()
If oButton IsNot Nothing Then If oButton IsNot Nothing Then
oButton.Enabled = Enabled oButton.Visible = pVisible
End If End If
End Sub End Sub