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

ZooFlow: Add button icons and dynamic titles

Browse Source
This commit is contained in:
Jonathan Jenne
2021-04-12 12:23:55 +02:00
parent 7680c6c95d
commit e7287e4b24
14 changed files with 297 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -15,7 +15,6 @@ Public Class frmAdmin_Start
Private Const COLUMN_NAME_ACTIVE = "ACTIVE"
Private Const MODULE_IDB = "IDB"
Private Const PAGE_IDB_START = "IDB_START"
Private Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
Private Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES"
Private Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
@@ -37,31 +36,36 @@ Public Class frmAdmin_Start
New AdminNode With {
.Title = "IDB Attribute",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_ATTRIBUTES
.Entity = PAGE_IDB_ATTRIBUTES,
.NewRecordTitle = "Neues Attribut"
}},
{PAGE_IDB_BUSINESS_ENTITIES,
New AdminNode With {
.Title = "IDB Entitäten",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_BUSINESS_ENTITIES
.Entity = PAGE_IDB_BUSINESS_ENTITIES,
.NewRecordTitle = "Neue Entität"
}},
{PAGE_META_SOURCE_SQL,
New AdminNode With {
.Title = "Source SQL",
.[Module] = MODULE_META,
.Entity = PAGE_META_SOURCE_SQL
.Entity = PAGE_META_SOURCE_SQL,
.NewRecordTitle = "Neuer Source SQL"
}},
{PAGE_GLOBIX_PROFILES,
New AdminNode With {
.Title = "Global Indexer Profile",
.[Module] = MODULE_GLOBIX,
.Entity = PAGE_GLOBIX_PROFILES
.Entity = PAGE_GLOBIX_PROFILES,
.NewRecordTitle = "Neues GLOBIX Profil"
}},
{PAGE_CW_PROFILES,
New AdminNode With {
.Title = "Clipboard Watcher Profile",
.[Module] = MODULE_CW,
.Entity = PAGE_CW_PROFILES
.Entity = PAGE_CW_PROFILES,
.NewRecordTitle = "Neues CW Profil"
}}
}
@@ -73,6 +77,7 @@ Public Class frmAdmin_Start
Public Property Title As String
Public Property [Module] As String
Public Property Entity As String
Public Property NewRecordTitle As String
End Class
Private Class AdminItem
@@ -126,18 +131,18 @@ Public Class frmAdmin_Start
Private Sub TreeListMenu_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged
Try
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing OrElse e.Node.Tag = String.Empty Then
labelTitle.Text = "Start"
Exit Sub
End If
CurrentPage = e.Node.Tag.ToString
If AdminNodes.ContainsKey(CurrentPage) Then
Dim oNode = AdminNodes.Item(CurrentPage)
CurrentModule = oNode.Module
labelTitle.Text = oNode.Title
btnAddRecord.Caption = oNode.NewRecordTitle
Else
MsgBox($"Page [{CurrentPage}] not found in AdminNodes! Exiting." & vbNewLine &
"Check your definitions in the TreeList NodeEditor and in SourceSQL", MsgBoxStyle.Critical, Text)