ZooFlow: Add button icons and dynamic titles
This commit is contained in:
Jonathan Jenne
@@ -55,14 +55,11 @@ Partial Class frmAdmin_Start
|
||||
Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.btnAddRecord = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.btnEditRecord = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup21 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
|
||||
@@ -134,7 +131,7 @@ Partial Class frmAdmin_Start
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarButtonItem27, Me.BarButtonItem28})
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 34
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
@@ -344,27 +341,23 @@ Partial Class frmAdmin_Start
|
||||
Me.BarButtonItem25.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled5
|
||||
Me.BarButtonItem25.Name = "BarButtonItem25"
|
||||
'
|
||||
'BarButtonItem26
|
||||
'btnAddRecord
|
||||
'
|
||||
Me.BarButtonItem26.Caption = "BarButtonItem26"
|
||||
Me.BarButtonItem26.Id = 31
|
||||
Me.BarButtonItem26.Name = "BarButtonItem26"
|
||||
Me.btnAddRecord.Caption = "Hinzufügen"
|
||||
Me.btnAddRecord.Id = 31
|
||||
Me.btnAddRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_add
|
||||
Me.btnAddRecord.Name = "btnAddRecord"
|
||||
'
|
||||
'BarButtonItem27
|
||||
'btnEditRecord
|
||||
'
|
||||
Me.BarButtonItem27.Caption = "BarButtonItem27"
|
||||
Me.BarButtonItem27.Id = 32
|
||||
Me.BarButtonItem27.Name = "BarButtonItem27"
|
||||
'
|
||||
'BarButtonItem28
|
||||
'
|
||||
Me.BarButtonItem28.Caption = "BarButtonItem28"
|
||||
Me.BarButtonItem28.Id = 33
|
||||
Me.BarButtonItem28.Name = "BarButtonItem28"
|
||||
Me.btnEditRecord.Caption = "Bearbeiten"
|
||||
Me.btnEditRecord.Id = 32
|
||||
Me.btnEditRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit2
|
||||
Me.btnEditRecord.Name = "btnEditRecord"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20, Me.RibbonPageGroup21})
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "Start"
|
||||
'
|
||||
@@ -377,21 +370,10 @@ Partial Class frmAdmin_Start
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem26)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem27)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem28)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnAddRecord)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.btnEditRecord)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "IDB"
|
||||
'
|
||||
'RibbonPageGroup20
|
||||
'
|
||||
Me.RibbonPageGroup20.Name = "RibbonPageGroup20"
|
||||
Me.RibbonPageGroup20.Text = "GLOBIX"
|
||||
'
|
||||
'RibbonPageGroup21
|
||||
'
|
||||
Me.RibbonPageGroup21.Name = "RibbonPageGroup21"
|
||||
Me.RibbonPageGroup21.Text = "CW"
|
||||
Me.RibbonPageGroup1.Text = "Datensätze"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
@@ -417,12 +399,12 @@ Partial Class frmAdmin_Start
|
||||
Me.TreeListMenu.MenuManager = Me.RibbonControl1
|
||||
Me.TreeListMenu.Name = "TreeListMenu"
|
||||
Me.TreeListMenu.BeginUnboundLoad()
|
||||
Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 3, 4, 4, -1, "GLOBIX_PROFILES")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "CW_PROFILES")
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1)
|
||||
Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 7, 3, 3, -1, "META_SOURCE_SQL")
|
||||
@@ -898,12 +880,9 @@ Partial Class frmAdmin_Start
|
||||
Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents GridControl1 As GridControl
|
||||
Friend WithEvents GridView1 As GridView
|
||||
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem28 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents btnAddRecord As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents btnEditRecord As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroup21 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
|
||||
@@ -286,6 +286,9 @@
|
||||
<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>1141, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user