diff --git a/app/TaskFlow/ClassInit.vb b/app/TaskFlow/ClassInit.vb index 4797d0f..49a48b5 100644 --- a/app/TaskFlow/ClassInit.vb +++ b/app/TaskFlow/ClassInit.vb @@ -284,13 +284,13 @@ Public Class ClassInit oStopWatch.Done() End Sub - Public Sub InitUserLogin(Optional pUSRNAME As String = "") + Public Sub InitUserLogin() Dim oStopWatch As New RefreshHelper.SW("InitUserLogin") Dim oSQL As String Try - If pUSRNAME <> String.Empty Then - LOGGER.Info($"InitUserLogin with GhostUser [{pUSRNAME}]") - USER_USERNAME = pUSRNAME + If USER_GHOST_MODE_USRNAME <> String.Empty Then + LOGGER.Info($"InitUserLogin with GhostUser [{USER_GHOST_MODE_USRNAME}]") + USER_USERNAME = USER_GHOST_MODE_USRNAME Else USER_USERNAME = Environment.UserName End If diff --git a/app/TaskFlow/ModuleRuntimeVariables.vb b/app/TaskFlow/ModuleRuntimeVariables.vb index c03758c..7db4ba6 100644 --- a/app/TaskFlow/ModuleRuntimeVariables.vb +++ b/app/TaskFlow/ModuleRuntimeVariables.vb @@ -72,7 +72,7 @@ Module ModuleRuntimeVariables Public Property USER_RIGHT4 As Boolean = False Public Property USER_CONFIG_DEBUG As Boolean = False Public Property USER_CONFIG_DIRECTORY As String = "" - + Public Property USER_USERNAME_ORG As String = "" Public Property USER_GHOST_MODE_ACTIVE As Boolean = False Public Property USER_GHOST_MODE_USRNAME As String = "" diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index c7aadb3..1b79831 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -646,6 +646,7 @@ frmGhostMode.vb + Designer frmInvDashboard.vb diff --git a/app/TaskFlow/frmGhostMode.Designer.vb b/app/TaskFlow/frmGhostMode.Designer.vb index 24d7ce9..50ad2c1 100644 --- a/app/TaskFlow/frmGhostMode.Designer.vb +++ b/app/TaskFlow/frmGhostMode.Designer.vb @@ -37,13 +37,9 @@ Partial Class frmGhostMode ' 'RibbonControl1 ' - resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer) - Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer) - Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags") Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.MaxItemId = 2 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) @@ -54,8 +50,6 @@ Partial Class frmGhostMode ' resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer) - Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer) Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" ' @@ -80,18 +74,6 @@ Partial Class frmGhostMode 'GridControl1 ' resources.ApplyResources(Me.GridControl1, "GridControl1") - Me.GridControl1.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleDescription") - Me.GridControl1.EmbeddedNavigator.AccessibleName = resources.GetString("GridControl1.EmbeddedNavigator.AccessibleName") - Me.GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl1.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) - Me.GridControl1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) - Me.GridControl1.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) - Me.GridControl1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) - Me.GridControl1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) - Me.GridControl1.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControl1.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) - Me.GridControl1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) - Me.GridControl1.EmbeddedNavigator.ToolTip = resources.GetString("GridControl1.EmbeddedNavigator.ToolTip") - Me.GridControl1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) - Me.GridControl1.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControl1.EmbeddedNavigator.ToolTipTitle") Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) @@ -100,7 +82,6 @@ Partial Class frmGhostMode ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - resources.ApplyResources(Me.GridView1, "GridView1") Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] @@ -114,6 +95,7 @@ Partial Class frmGhostMode Me.GridView1.OptionsView.ShowAutoFilterRow = True Me.GridView1.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] Me.GridView1.OptionsView.ShowViewCaption = True + resources.ApplyResources(Me.GridView1, "GridView1") ' 'frmGhostMode ' diff --git a/app/TaskFlow/frmGhostMode.resx b/app/TaskFlow/frmGhostMode.resx index 2cf849f..e2e2e25 100644 --- a/app/TaskFlow/frmGhostMode.resx +++ b/app/TaskFlow/frmGhostMode.resx @@ -117,37 +117,8 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - - Bitte wählen Sie einen Ghost User - - - - 965, 509 - - - 2 - - - 0, 0 - - - RibbonPage1 - - - RibbonStatusBar1 - - - GridView1 - - - $this - - - DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Ghost Modus aktivieren @@ -175,145 +146,118 @@ dmc+Cw== - - - None - - - - - - 6, 13 - - - Fill - - - $this - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Calibri, 8.25pt - - - $this - - - - -1 - - - frmGhostMode - - - 1 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 965, 348 - - - 0, 487 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Default - - - BarButtonItem1 - - - 965, 22 - - - Top, Left - - - RibbonPageGroup1 - - - - - - GridControl1 - - - Ghost Modus aktivieren - - - - - - Start + + + 0, 0 Aktionen - - RibbonControl1 + + Start - - Inherit + + 965, 146 - - 0, 139 + + 0, 487 - - -1 + + 965, 22 - - - - - - Center + + RibbonStatusBar1 DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Tile + + $this - - + + 1 + + RibbonControl1 + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 2 + + + + Fill + + + 0, 146 + + + Bitte wählen Sie einen Ghost User + + + 965, 341 + + 9 - - + + GridControl1 - - 0, 0 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 - - - 965, 139 - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + $this 0 - - -1 - True + + 6, 13 + + + 965, 509 + + + Calibri, 8.25pt + + + BarButtonItem1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage1 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup1 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridView1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + frmGhostMode + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/app/TaskFlow/frmGhostMode.vb b/app/TaskFlow/frmGhostMode.vb index 61d1e71..611b99e 100644 --- a/app/TaskFlow/frmGhostMode.vb +++ b/app/TaskFlow/frmGhostMode.vb @@ -30,6 +30,15 @@ End Sub Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + + Set_GhostUser() + End Sub + + Private Sub GridView1_DoubleClick(sender As Object, e As EventArgs) Handles GridView1.DoubleClick + Set_GhostUser() + End Sub + + Sub Set_GhostUser() Dim oFocusedUserName Try oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("UserName")) @@ -60,6 +69,5 @@ Else MsgBox("Please choose an user for ghostmode!", MsgBoxStyle.Information) End If - End Sub End Class \ No newline at end of file diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index bff4128..2156bc7 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -2752,11 +2752,11 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!") Dim oUserLanguage = User.Language - + USER_USERNAME_ORG = USER_USERNAME BarButtonItemGhostMode.Caption = String.Format(S.Ghost_Modus___0___deaktivieren, USER_GHOST_MODE_USRNAME) BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always _Init.InitBasics() - _Init.InitUserLogin(USER_GHOST_MODE_USRNAME) + _Init.InitUserLogin() _Init.InitBasics2() Dim onewUserLanguage = User.Language GetBaseData("Load") @@ -2777,7 +2777,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ USER_GHOST_MODE_ACTIVE = False USER_GHOST_MODE_USRNAME = String.Empty USER_ID = 0 - USER_USERNAME = "FORNER_GHOSTUSER" + USER_USERNAME = USER_USERNAME_ORG + BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never _Init.InitUserLogin() GetBaseData("InactivateGM") diff --git a/app/TaskFlow/frmValidator_Messages.Designer.vb b/app/TaskFlow/frmValidator_Messages.Designer.vb index b3b0d0c..bdfc90a 100644 --- a/app/TaskFlow/frmValidator_Messages.Designer.vb +++ b/app/TaskFlow/frmValidator_Messages.Designer.vb @@ -24,78 +24,65 @@ Partial Class frmValidator_Messages Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator_Messages)) - Me.ImageListBoxControl1 = New DevExpress.XtraEditors.ImageListBoxControl() - Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() - CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ImageListBoxControl1 = New DevExpress.XtraEditors.ImageListBoxControl() + Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) Me.StatusStrip1.SuspendLayout() + CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'ImageListBoxControl1 - ' - Me.ImageListBoxControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ImageListBoxControl1.Appearance.Options.UseFont = True - Me.ImageListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.ImageListBoxControl1.HorizontalScrollbar = True - Me.ImageListBoxControl1.ImageList = Me.ImageList1 - Me.ImageListBoxControl1.ItemAutoHeight = True - Me.ImageListBoxControl1.Location = New System.Drawing.Point(0, 0) - Me.ImageListBoxControl1.Margin = New System.Windows.Forms.Padding(4) - Me.ImageListBoxControl1.Name = "ImageListBoxControl1" - Me.ImageListBoxControl1.ShowToolTipForTrimmedText = DevExpress.Utils.DefaultBoolean.[True] - Me.ImageListBoxControl1.Size = New System.Drawing.Size(645, 256) - Me.ImageListBoxControl1.TabIndex = 0 - ' - 'ImageList1 - ' - Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) - Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent - Me.ImageList1.Images.SetKeyName(0, "Info") - Me.ImageList1.Images.SetKeyName(1, "None_6128.png") - Me.ImageList1.Images.SetKeyName(2, "error_red_32x32_cyan.png") - ' 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 234) + resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 18, 0) - Me.StatusStrip1.Size = New System.Drawing.Size(645, 22) - Me.StatusStrip1.TabIndex = 1 - Me.StatusStrip1.Text = "StatusStrip1" ' 'ToolStripStatusLabel1 ' Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" - Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(97, 17) - Me.ToolStripStatusLabel1.Text = "No Refresh so far" + resources.ApplyResources(Me.ToolStripStatusLabel1, "ToolStripStatusLabel1") + ' + 'ImageListBoxControl1 + ' + Me.ImageListBoxControl1.Appearance.Font = CType(resources.GetObject("ImageListBoxControl1.Appearance.Font"), System.Drawing.Font) + Me.ImageListBoxControl1.Appearance.Options.UseFont = True + Me.ImageListBoxControl1.Appearance.Options.UseTextOptions = True + Me.ImageListBoxControl1.Appearance.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap + resources.ApplyResources(Me.ImageListBoxControl1, "ImageListBoxControl1") + Me.ImageListBoxControl1.ItemAutoHeight = True + Me.ImageListBoxControl1.Name = "ImageListBoxControl1" + ' + 'ImageCollection1 + ' + Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer) + Me.ImageCollection1.Images.SetKeyName(0, "StatusAnnotations_Information_16xLG.png") + Me.ImageCollection1.Images.SetKeyName(1, "None_6128.png") + Me.ImageCollection1.Images.SetKeyName(2, "cancel_16x16.png") ' 'frmValidator_Messages ' Me.Appearance.Options.UseFont = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!) + resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(645, 256) - Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.ImageListBoxControl1) - Me.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Controls.Add(Me.StatusStrip1) Me.IconOptions.SvgImage = CType(resources.GetObject("frmValidator_Messages.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.Margin = New System.Windows.Forms.Padding(5) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmValidator_Messages" - Me.Text = "Info zu Workflow" - CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Show Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() + CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub - - Friend WithEvents ImageListBoxControl1 As DevExpress.XtraEditors.ImageListBoxControl - Friend WithEvents ImageList1 As ImageList Friend WithEvents StatusStrip1 As StatusStrip Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel + Friend WithEvents ImageListBoxControl1 As DevExpress.XtraEditors.ImageListBoxControl + Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection End Class diff --git a/app/TaskFlow/frmValidator_Messages.resx b/app/TaskFlow/frmValidator_Messages.resx index e5f43a1..5bbd2a4 100644 --- a/app/TaskFlow/frmValidator_Messages.resx +++ b/app/TaskFlow/frmValidator_Messages.resx @@ -117,61 +117,126 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w - LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACq - CQAAAk1TRnQBSQFMAgEBAwEAASgBAAEoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo - AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA - AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 - AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA - AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm - AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM - AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA - ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz - AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ - AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM - AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA - AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA - AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ - AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ - AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA - AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm - ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ - Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz - AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA - AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM - AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM - ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM - Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA - AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM - AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ - AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz - AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm - AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw - AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUACPQIAAj0CAAI9BYA - Af8B9AG8AewEFAHsAbwB9AH/BAAB/wH0AbwB7AQUAewBvAH0Af8FAAL0BiUBFgL0EwAB/wH0Ae0IFAHt - AfQB/wIAAf8B9AHtCBQB7QH0Af8DAAH0ARYJJQL0EgAB9AHsBBQC9AQUAe0B9AIAAfQB7AoUAe0B9AIA - AfQBtwIlARYIJQH0EQAB9AG8BRQC9AUUAbwC9AG8DBQBvAH0AQAB9AIlAbcB/wG3AyUC/wIlARYB9BAA - AfQB7AUUAvQFFAHsAvQB7AwUAewC9AGUAiUBtwL/AbcBJQP/AyUB9BAAAfQGFAL0BhQC9A4UAvQBJgMl - AbcF/wQlAfQQAAH0BhQC9AYUAvQCFAr0AhQC9AUlAbcD/wUlAfQQAAH0BhQC9AYUAvQCFAr0AhQC9AUl - BP8BtwQlAfQQAAH0BhQC9AYUAvQOFAL0AU0DJQP/AbcC/wG3AyUB9BAAAfQB7AwUAewC9AHsDBQB7AH0 - Af8B9AIlA/8CJQG3Av8BFgIlAfQQAAH0AbwFFAL0BRQBvAL0AbwMFAG8AfQBAAH0ASYCJQH/BCUCtwIl - AvQRAAH0Ae0EFAL0BBQB7QH0AgAB9AHtChQB7QH0AgAB/wH0CiUBFgH0EgAB/wH0AewIFAHtAfQB/wIA - Af8B9AHsCBQB7QH0Af8DAAL0ASYHJQG3AfQUAAH/AfQBvAHsBBQB7AG8AfQB/wQAAf8B9AG8AewEFAHs - AbwB9AH/BQAB/wL0AU0CJQEmAZQC9BcACPQIAAj0CQAB/wX0FQABQgFNAT4HAAE+AwABKAMAAUADAAEQ - AwABAQEAAQEFAAGAFwAD/wEAAfABDwHwAQ8B8AEPAgABwAEDAcABAwHgAQMCAAGAAQEBgAEBAcABAQIA - AYABAQGAAQEBgAEBBgABgDcAAYADAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBwAEDAgABwAEDAcABAwHg - AQcCAAHwAQ8B8AEPAfgBHwIACw== - - 128, 17 + + + 0, 234 + + + + 1, 0, 18, 0 + + + 558, 22 + + + + 1 + + + StatusStrip1 + + + StatusStrip1 + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + 97, 17 + + + No Refresh so far + + + Tahoma, 9.75pt + + + Fill + + + 0, 0 + + + 558, 234 + + + 2 + + + ImageListBoxControl1 + + + DevExpress.XtraEditors.ImageListBoxControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + + + 244, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFFT + eXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRv + a2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAAChEZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0 + cmVhbWVyAgAAAAlJbWFnZVNpemUERGF0YQQHE1N5c3RlbS5EcmF3aW5nLlNpemUDAAAAAgIAAAAF/P// + /xNTeXN0ZW0uRHJhd2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgIAwAAABAAAAAQAAAACQUAAAAP + BQAAAGkGAAACGgEAAIlQTkcNChoKAAAADUlIRFIAAAAQAAAAEAgGAAAAH/P/YQAAAAFzUkdCAK7OHOkA + AAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAAr0lEQVQ4T92TvQ3EIAyFGSWzMAlz + MAA9E6WmYhSShpbzSxwpOCanS7qz9BXYfk/8GCOj1uqImWgC5By3XYOKE5FTSs1736y1Hcihhh70smwP + FpcQwkUoiTHCpHQmtMgoyOalrBsyzyb5EDtsTTaBkQHg4zgYzNqZvwENtDBQG8DdDgC0f2IwvMQ7g/Ml + vntGnoWsTeHIoBskBC22UdamUaKOMoJNnn2mc1Dxh+9szAebhihBX6zSkgAAAABJRU5ErkJggiQBAACJ + UE5HDQoaCgAAAA1JSERSAAAAEAAAABAIBgAAAB/z/2EAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xh + BQAAAAlwSFlzAAAOwgAADsIBFShKgAAAALlJREFUOE+1k8ENwyAQBCkltbiS1EEB/Kkob16UQvIAnoQh + Z8nYKCGxstJ+7nZXx/ms9sg5X2OMt5RS2ZIaPZEdUZuXKvTOuaK1LsuydKRGDw1asb0g5mCMORj3tNYS + EroQUmmMDCNKiG9m3sVoI+E74sGrWM7ozZ+IBy/jDwUzxNsF3MNjiv8L+JYt4PQST39GUEfxM1e4sjsk + wFnWQpi5xuEpAwn57WfagnexnCpsW15JjZ7IBEo9Aa5RLG39zuc7AAAAAElFTkSuQmCCHwQAAIlQTkcN + ChoKAAAADUlIRFIAAAAQAAAAEAgGAAAAH/P/YQAAAAFzUkdCAK7OHOkAAAAEZ0FNQQAAsY8L/GEFAAAA + I3RFWHRUaXRsZQBDYW5jZWw7U3RvcDtFeGl0O0JhcnM7UmliYm9uO0yWlrIAAAOaSURBVDhPJZN/UJN1 + HMe/CKbYpLrSTmJdYBsiDoZsbaAeY8aEwSz4IyxPvTITUEbHcXmQJF4UTu40Ay7uiDowEWT8sIQ5nXlZ + SRfDxoByCwT5IcL2bMAG25Heu+/z8L17Pfe+z+fzfj/f73PPl3hMrcRzu4N471wldAX+lntEZCsqqHpw + otAyXlz0hIXVfxdqawwfHBTTmSBKgMekJwvGFkID9KwxgLLaqs0rHv30E//st1/D3d4Az+1OeCnu9kbM + 1Fdh7OQJv/nY0VI6u5ayigugK0Arl/GGjueZxivK4LnVjvnui5jrqIerpQau5hq42+ow91Mj6MswcfZz + DBzP/UUTKXyBDWEDgswfHv5mtLyUGi/BUpSPunARjJmZcDaeg7PhHG5mZXE1S+ExLmjsyzL8cfj9y9S7 + lnRmZUqtuTlPGP13uFeQgwbVOzB1m9GcU4JudQYM6RpOm7p6uZ45/yO4rtTBmp/3tD41NYmYMjS1I1+c + xOPaCtTxo/DAPgWHawn2UQYt2tMc96mednoxbJviZqaryzFyugSGtHQ9ublHPWw/+i5GtPtxQ/MW/tSd + h3fpPzjnfbA9ZGAbYzA758PC4jLXM2r2YjgvG7Yj2bihSntIritUy/9kp2Do7R2wH6Jb3r0bPboLmHH7 + MEN38thNYXz4veIrGJRK3D+QhsGMBAxmJcGgSFkmV+VJy5bUNzCglmFobyKuSbbDeOos3fISHjkXMeXw + UpZwvVSHa/HbMZAuh3WPFP0qCVgvaRLLx3qVK4Wu2G1o+7gMA/86MDnrBbPgAzPvx/iMF/32WegLTqEr + JhqWN+PQqxCjKVY2RWqF4u9NO2SwKMW4FC6Ec9qJScciXAt+9F+o5lgJ8cDxyMnN/JUUg58TJagWxHaS + otCIXRej4p6ad27DXaUctw4cgp9hcE9XCaMsniLhNFtje3eTZehLjMYPW8TIf/k1NfsjBVe+Irx8JXIr + LMmx6EmWolUYCZMsjn4XOXdmVrO1HoUUFkUM9JFROLNJwF6e9WzAqq1r1m2o3Li5rylCAPMuETUloD9F + gr6EKMoWeuZ4DKoT0LdThObNApzZGGEVrXmWT72BZKLgPTYkMP4Z3qay5/gtVRvC0S6IwB3x6+iV0kDK + r1R30Fo17X32PP/H6NXBr1JP0Lh2HyHsgxMrF4N3cN1LqhJeaGt5SNiELoQPXUgYyteHTRbzQtv2B7+o + oTMhlMAV3z7yP3WRRtfcr9YqAAAAAElFTkSuQmCCCw== + + + + True + + + 9, 19 + + + 558, 256 + + + Tahoma, 12pt + @@ -198,4 +263,28 @@ IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + 5, 5, 5, 5 + + + Info zu Workflow + + + ToolStripStatusLabel1 + + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ImageCollection1 + + + DevExpress.Utils.ImageCollection, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + frmValidator_Messages + + + DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + \ No newline at end of file diff --git a/app/TaskFlow/frmValidator_Messages.vb b/app/TaskFlow/frmValidator_Messages.vb index 446e0a8..7a5137d 100644 --- a/app/TaskFlow/frmValidator_Messages.vb +++ b/app/TaskFlow/frmValidator_Messages.vb @@ -6,8 +6,9 @@ Public Class frmValidator_Messages InitializeComponent() ' Add any initialization after the InitializeComponent() call. ImageListBoxControl1.DataSource = pDT - ImageListBoxControl1.DisplayMember = pDT.Columns(0).ColumnName ImageListBoxControl1.ImageIndexMember = pDT.Columns(1).ColumnName + ImageListBoxControl1.ImageList = ImageCollection1 + ImageListBoxControl1.DisplayMember = pDT.Columns(0).ColumnName Dim oString = " Meldung" If pDT.Rows.Count > 1 Then oString = " Meldungen" @@ -26,8 +27,4 @@ Public Class frmValidator_Messages Private Sub frmValidator_Messages_Shown(sender As Object, e As EventArgs) Handles Me.Shown Me.BringToFront() End Sub - - Private Sub frmValidator_Messages_Load(sender As Object, e As EventArgs) Handles Me.Load - - End Sub End Class \ No newline at end of file