Zooflow: fix new record button

This commit is contained in:
Jonathan Jenne
2022-03-07 16:10:35 +01:00
parent 6ffc699fb1
commit 41b0cd535c
4 changed files with 6 additions and 17 deletions

View File

@@ -7,6 +7,7 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language.Utils
Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
Imports DevExpress.XtraGrid
Imports DevExpress.XtraBars
Public Class frmAdmin_Start
Private CurrentModule As String
@@ -94,14 +95,6 @@ Public Class frmAdmin_Start
If Handle_LoadPage(e.Node.Tag.ToString) Then
RibbonPageGroup1.Enabled = True
CurrentPage = e.Node.Tag.ToString
btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Select Case CurrentPage
Case PAGE_IDB_DOCTYPE
btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Case PAGE_IDB_DOCTYPE_BE
btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Select
End If
Catch ex As Exception