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

ZooFlow: Administration

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-16 10:46:05 +01:00
parent 022d124ee0
commit 5df3f4a32d
8 changed files with 136 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -88,6 +88,7 @@ Partial Class frmAdmin_Start
Me.Panel1 = New System.Windows.Forms.Panel()
Me.labelTitle = New System.Windows.Forms.Label()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -117,6 +118,7 @@ Partial Class frmAdmin_Start
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
@@ -129,7 +131,7 @@ Partial Class frmAdmin_Start
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_IDB, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159)
Me.RibbonControl1.Size = New System.Drawing.Size(1077, 157)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
@@ -320,10 +322,10 @@ Partial Class frmAdmin_Start
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 729)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 22)
'
'RibbonPage2
'
@@ -354,7 +356,7 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.OptionsView.ShowIndicator = False
Me.TreeListMenu.OptionsView.ShowVertLines = False
Me.TreeListMenu.SelectImageList = Me.MainTreeImages
Me.TreeListMenu.Size = New System.Drawing.Size(193, 521)
Me.TreeListMenu.Size = New System.Drawing.Size(193, 448)
Me.TreeListMenu.TabIndex = 8
'
'TreeListColumn1
@@ -385,10 +387,10 @@ Partial Class frmAdmin_Start
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799")
Me.DockPanel1.Location = New System.Drawing.Point(0, 159)
Me.DockPanel1.Location = New System.Drawing.Point(0, 157)
Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel1.Size = New System.Drawing.Size(200, 570)
Me.DockPanel1.Size = New System.Drawing.Size(200, 497)
Me.DockPanel1.Text = "Übersicht"
'
'DockPanel1_Container
@@ -396,7 +398,7 @@ Partial Class frmAdmin_Start
Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 521)
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 448)
Me.DockPanel1_Container.TabIndex = 0
'
'TBIDB_ATTRIBUTEBindingSource
@@ -435,7 +437,7 @@ Partial Class frmAdmin_Start
'
Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB)
Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB"
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(875, 428)
Me.XtraTabPage_IDB.Text = "IDB"
'
'XtraTabControlIDB
@@ -444,7 +446,7 @@ Partial Class frmAdmin_Start
Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControlIDB.Name = "XtraTabControlIDB"
Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabControlIDB.Size = New System.Drawing.Size(875, 428)
Me.XtraTabControlIDB.TabIndex = 0
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Entities})
'
@@ -452,16 +454,16 @@ Partial Class frmAdmin_Start
'
Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.TreeList_IDBAttributes)
Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New"
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(873, 405)
Me.XtraTabPageIDB_Attributes_New.Text = "Attribute"
'
'TreeListIDBAttributes
'TreeList_IDBAttributes
'
Me.TreeList_IDBAttributes.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList_IDBAttributes.Location = New System.Drawing.Point(0, 0)
Me.TreeList_IDBAttributes.MenuManager = Me.RibbonControl1
Me.TreeList_IDBAttributes.Name = "TreeListIDBAttributes"
Me.TreeList_IDBAttributes.Size = New System.Drawing.Size(1124, 478)
Me.TreeList_IDBAttributes.Name = "TreeList_IDBAttributes"
Me.TreeList_IDBAttributes.Size = New System.Drawing.Size(873, 405)
Me.TreeList_IDBAttributes.StateImageList = Me.IDBImages
Me.TreeList_IDBAttributes.TabIndex = 0
'
@@ -474,16 +476,16 @@ Partial Class frmAdmin_Start
'
Me.XtraTabPageIDB_Entities.Controls.Add(Me.TreeList_IDBEntities)
Me.XtraTabPageIDB_Entities.Name = "XtraTabPageIDB_Entities"
Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(873, 405)
Me.XtraTabPageIDB_Entities.Text = "Entitäten"
'
'TreeListIDBEntities
'TreeList_IDBEntities
'
Me.TreeList_IDBEntities.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList_IDBEntities.Location = New System.Drawing.Point(0, 0)
Me.TreeList_IDBEntities.MenuManager = Me.RibbonControl1
Me.TreeList_IDBEntities.Name = "TreeListIDBEntities"
Me.TreeList_IDBEntities.Size = New System.Drawing.Size(1124, 478)
Me.TreeList_IDBEntities.Name = "TreeList_IDBEntities"
Me.TreeList_IDBEntities.Size = New System.Drawing.Size(873, 405)
Me.TreeList_IDBEntities.StateImageList = Me.IDBImages
Me.TreeList_IDBEntities.TabIndex = 0
'
@@ -492,17 +494,17 @@ Partial Class frmAdmin_Start
Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList_GLOBIXProfiles)
Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
Me.XtraTabPage_GlobalIndexer.PageVisible = False
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(875, 428)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
'
'TreeListGLOBIXProfiles
'TreeList_GLOBIXProfiles
'
Me.TreeList_GLOBIXProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList_GLOBIXProfiles.Location = New System.Drawing.Point(0, 0)
Me.TreeList_GLOBIXProfiles.MenuManager = Me.RibbonControl1
Me.TreeList_GLOBIXProfiles.Name = "TreeListGLOBIXProfiles"
Me.TreeList_GLOBIXProfiles.Name = "TreeList_GLOBIXProfiles"
Me.TreeList_GLOBIXProfiles.PreviewFieldName = "Title"
Me.TreeList_GLOBIXProfiles.Size = New System.Drawing.Size(1126, 501)
Me.TreeList_GLOBIXProfiles.Size = New System.Drawing.Size(875, 428)
Me.TreeList_GLOBIXProfiles.StateImageList = Me.GLOBIXImages
Me.TreeList_GLOBIXProfiles.TabIndex = 0
'
@@ -517,7 +519,7 @@ Partial Class frmAdmin_Start
Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1)
Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
Me.XtraTabPage_ClipboardWatcher.PageVisible = False
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(875, 428)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
'
'XtraTabControl1
@@ -526,7 +528,7 @@ Partial Class frmAdmin_Start
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageCWProfiles
Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabControl1.Size = New System.Drawing.Size(875, 428)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2})
'
@@ -534,20 +536,18 @@ Partial Class frmAdmin_Start
'
Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList_CWProfiles)
Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles"
Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(873, 405)
Me.XtraTabPageCWProfiles.Text = "Profile"
'
'TreeListCWProfiles
'TreeList_CWProfiles
'
Me.TreeList_CWProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList_CWProfiles.KeyFieldName = ""
Me.TreeList_CWProfiles.Location = New System.Drawing.Point(0, 0)
Me.TreeList_CWProfiles.MenuManager = Me.RibbonControl1
Me.TreeList_CWProfiles.Name = "TreeListCWProfiles"
Me.TreeList_CWProfiles.OptionsView.ShowIndentAsRowStyle = True
Me.TreeList_CWProfiles.Name = "TreeList_CWProfiles"
Me.TreeList_CWProfiles.ParentFieldName = ""
Me.TreeList_CWProfiles.Size = New System.Drawing.Size(1124, 478)
Me.TreeList_CWProfiles.StateImageList = Me.CWImages
Me.TreeList_CWProfiles.Size = New System.Drawing.Size(873, 405)
Me.TreeList_CWProfiles.TabIndex = 2
'
'CWImages
@@ -555,21 +555,22 @@ Partial Class frmAdmin_Start
Me.CWImages.Add("detailed", "image://svgimages/outlook inspired/detailed.svg")
Me.CWImages.Add("newtablestyle", "image://svgimages/actions/newtablestyle.svg")
Me.CWImages.Add("bo_appointment", "image://svgimages/business objects/bo_appointment.svg")
Me.CWImages.Add("editnames", "image://svgimages/dashboards/editnames.svg")
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPage2.Size = New System.Drawing.Size(873, 405)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'XtraTabControl
'
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl.Location = New System.Drawing.Point(200, 205)
Me.XtraTabControl.Location = New System.Drawing.Point(200, 203)
Me.XtraTabControl.Name = "XtraTabControl"
Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 524)
Me.XtraTabControl.Size = New System.Drawing.Size(877, 451)
Me.XtraTabControl.TabIndex = 4
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
'
@@ -577,9 +578,9 @@ Partial Class frmAdmin_Start
'
Me.Panel1.Controls.Add(Me.labelTitle)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(200, 159)
Me.Panel1.Location = New System.Drawing.Point(200, 157)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1128, 46)
Me.Panel1.Size = New System.Drawing.Size(877, 46)
Me.Panel1.TabIndex = 8
Me.Panel1.TabStop = True
'
@@ -590,7 +591,7 @@ Partial Class frmAdmin_Start
Me.labelTitle.Location = New System.Drawing.Point(0, 0)
Me.labelTitle.Name = "labelTitle"
Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.labelTitle.Size = New System.Drawing.Size(1128, 46)
Me.labelTitle.Size = New System.Drawing.Size(877, 46)
Me.labelTitle.TabIndex = 0
Me.labelTitle.Text = "labelTitle"
Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -602,11 +603,16 @@ Partial Class frmAdmin_Start
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'SvgImageCollection1
'
Me.SvgImageCollection1.Add("actions_checkcircled", "image://svgimages/icon builder/actions_checkcircled.svg")
Me.SvgImageCollection1.Add("paymentunpaid", "image://svgimages/outlook inspired/paymentunpaid.svg")
'
'frmAdmin_Start
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1328, 751)
Me.ClientSize = New System.Drawing.Size(1077, 676)
Me.Controls.Add(Me.XtraTabControl)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.DockPanel1)
@@ -646,6 +652,7 @@ Partial Class frmAdmin_Start
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -715,4 +722,5 @@ Partial Class frmAdmin_Start
Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection
Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
End Class

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

@@ -260,9 +260,6 @@
<metadata name="IDBImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 56</value>
</metadata>
<metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
@@ -307,6 +304,9 @@
<metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>277, 56</value>
</metadata>
<metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@@ -323,4 +323,7 @@
IC8+DQo8L3N2Zz4L
</value>
</data>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>633, 48</value>
</metadata>
</root>

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

@@ -1,6 +1,8 @@
Imports System.ComponentModel
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraTab
Imports DevExpress.XtraTreeList
Imports DigitalData.Modules.Logging
@@ -181,34 +183,75 @@ Public Class frmAdmin_Start
End Sub
Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList)
' === ACTIVE COLUMN
Dim oActiveEditor As New RepositoryItemImageComboBox With {
.SmallImages = SvgImageCollection1,
.GlyphAlignment = HorzAlignment.Center
}
oActiveEditor.Buttons.Clear()
oActiveEditor.Items.AddRange(New List(Of ImageComboBoxItem) From {
New ImageComboBoxItem("Active", True, 0),
New ImageComboBoxItem("Inactive", False, 1)
})
Dim oActiveColumn = New Columns.TreeListColumn() With {
.Name = "columnActive",
.Caption = "Aktiv",
.FieldName = "Active",
.Visible = True,
.VisibleIndex = 1,
.ColumnEdit = oActiveEditor,
.MaxWidth = 30,
.MinWidth = 30
}
oActiveColumn.OptionsColumn.AllowEdit = False
' === TYPE/SCOPE COLUMN
Dim oTypeEditor As New RepositoryItemImageComboBox With {
.SmallImages = CWImages,
.GlyphAlignment = HorzAlignment.Center
}
oTypeEditor.Buttons.Clear()
oTypeEditor.Items.AddRange(New List(Of ImageComboBoxItem) From {
New ImageComboBoxItem("Profil", "PROFILE", 0),
New ImageComboBoxItem("Prozess", "PROCESS", 1),
New ImageComboBoxItem("Fenster", "WINDOW", 2),
New ImageComboBoxItem("Feld", "CONTROL", 3)
})
Dim oTypeColumn = New Columns.TreeListColumn() With {
.Name = "columnType",
.Caption = "Typ",
.FieldName = "Scope",
.Visible = True,
.VisibleIndex = 2,
.ColumnEdit = oTypeEditor,
.MaxWidth = 30,
.MinWidth = 30
}
oTypeColumn.OptionsColumn.AllowEdit = False
Dim oColumns As New List(Of Columns.TreeListColumn) From {
oActiveColumn,
oTypeColumn,
New Columns.TreeListColumn() With {
.Name = "columnTitle",
.Caption = "Titel",
.FieldName = "Title",
.Visible = True,
.VisibleIndex = 0
.VisibleIndex = 5
},
New Columns.TreeListColumn() With {
.Name = "columnScope",
.Caption = "Typ",
.FieldName = "Scope",
.Visible = True,
.VisibleIndex = 1
.VisibleIndex = 6
},
New Columns.TreeListColumn() With {
.Name = "columnSummary",
.Caption = "Beschreibung",
.FieldName = "Summary",
.Visible = True,
.VisibleIndex = 2
},
New Columns.TreeListColumn() With {
.Name = "columnActive",
.Caption = "Aktiv",
.FieldName = "Active",
.Visible = True,
.VisibleIndex = 3
.VisibleIndex = 7
}
}
@@ -239,6 +282,9 @@ Public Class frmAdmin_Start
.ShowAutoFilterRow = True
.EnableAppearanceEvenRow = True
.ShowIndicator = False
.ShowHorzLines = True
.ShowVertLines = True
.ShowTreeLines = True
End With
With TreeList.OptionsClipboard
@@ -278,7 +324,12 @@ Public Class frmAdmin_Start
Load_IDBEntity(oItem.RealGuid)
Case TreeList_CWProfiles.Name
Load_CWProfile(oItem.RealGuid)
Select Case oItem.Scope
Case "PROFILE"
Load_CWProfile(oItem.RealGuid)
Case Else
ShowError($"Scope {oItem.Scope} is not implemented!")
End Select
End Select
End If
Catch ex As Exception
@@ -358,52 +409,4 @@ Public Class frmAdmin_Start
Private Sub ResetStatus()
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_CWProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
e.NodeImageIndex = 0
Case "PROCESS"
e.NodeImageIndex = 1
Case "WINDOW"
e.NodeImageIndex = 2
Case "CONTROL"
e.NodeImageIndex = 3
End Select
End Sub
Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_GLOBIXProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
e.NodeImageIndex = 0
Case "INDEX_MAN"
e.NodeImageIndex = 1
Case "INDEX_AUTO"
e.NodeImageIndex = 2
End Select
End Sub
Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_IDBAttributes.GetStateImage
e.NodeImageIndex = 1
End Sub
Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList_IDBEntities.GetStateImage
e.NodeImageIndex = 0
End Sub
End Class

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

@@ -407,7 +407,6 @@ Partial Class frmGlobix_Dokumentart
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBDD_DOKUMENTARTTableAdapter