AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: fix new record button

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/Administration/ClassDetailForm.vb
View File

@ -48,13 +48,11 @@ Public Class ClassDetailForm
}},
{PAGE_IDB_ATTRIBUTE_REL, New DetailSettings With {
.GridTitle = "Attribute-Relations",
.NewRecordTitle = "",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_ATTRIBUTES
}},
{PAGE_GI_RELATIONS, New DetailSettings With {
.GridTitle = "Globix profile-relations",
.NewRecordTitle = "",
.[Module] = MODULE_GI,
.Entity = PAGE_GI_RELATIONS
}},
@ -66,13 +64,11 @@ Public Class ClassDetailForm
}},
{PAGE_IDB_DOCTYPE, New DetailSettings With {
.GridTitle = "Doctype Configuration",
.NewRecordTitle = "New Doctype",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_DOCTYPE
}},
{PAGE_IDB_DOCTYPE_BE, New DetailSettings With {
.GridTitle = "Doctype BE Relations",
.NewRecordTitle = "New Relation",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_DOCTYPE_BE
}},
@ -283,7 +279,11 @@ Public Class ClassDetailForm
Public Property GridTitle As String
Public Property [Module] As String
Public Property Entity As String
Public Property NewRecordTitle As String
''' <summary>
''' If this is empty, the button "New Record will be hidden"
''' </summary>
Public Property NewRecordTitle As String = ""
End Class
Public Class DetailData

1
GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@ -439,7 +439,6 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.AppendNode(New Object() {"User Management"}, -1, 11, 11, -1)
Me.TreeListMenu.AppendNode(New Object() {"User List"}, 16, 5, 5, -1, "USERS_USERLIST")
Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 16, 12, 12, -1, "USERS_GROUPLIST")
Me.TreeListMenu.AppendNode(New Object() {"Module List"}, 16, 13, 13, -1, "USERS_MODULELIST")
Me.TreeListMenu.EndUnboundLoad()
Me.TreeListMenu.OptionsBehavior.Editable = False
Me.TreeListMenu.OptionsView.ShowColumns = False

3
GUIs.ZooFlow/Administration/frmAdmin_Start.resx
View File

@ -288,9 +288,6 @@
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1043, 17</value>
</metadata>

9
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
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