diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
index ce4fc7c8..97aefa6b 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
@@ -86,7 +86,7 @@ Partial Class frmDocumentResultList
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl.ShowToolbarCustomizeItem = False
- Me.RibbonControl.Size = New System.Drawing.Size(1189, 131)
+ Me.RibbonControl.Size = New System.Drawing.Size(1189, 132)
Me.RibbonControl.StatusBar = Me.RibbonStatusBar
Me.RibbonControl.Toolbar.ShowCustomizeItem = False
'
@@ -213,6 +213,7 @@ Partial Class frmDocumentResultList
Me.labelWarning.ItemAppearance.Normal.BackColor = System.Drawing.Color.White
Me.labelWarning.ItemAppearance.Normal.Options.UseBackColor = True
Me.labelWarning.Name = "labelWarning"
+ Me.labelWarning.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelWarning.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'RibbonPage1
@@ -249,10 +250,10 @@ Partial Class frmDocumentResultList
Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount)
Me.RibbonStatusBar.ItemLinks.Add(Me.labelCriticalError)
Me.RibbonStatusBar.ItemLinks.Add(Me.labelWarning)
- Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 649)
+ Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 647)
Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl
- Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 22)
+ Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 24)
'
'SplitContainerControl1
'
@@ -264,7 +265,7 @@ Partial Class frmDocumentResultList
Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
- Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 518)
+ Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 515)
Me.SplitContainerControl1.SplitterPosition = 382
Me.SplitContainerControl1.TabIndex = 2
Me.SplitContainerControl1.Text = "SplitContainerControl1"
@@ -276,7 +277,7 @@ Partial Class frmDocumentResultList
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl
Me.GridControl1.Name = "GridControl1"
- Me.GridControl1.Size = New System.Drawing.Size(382, 518)
+ Me.GridControl1.Size = New System.Drawing.Size(382, 515)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
@@ -317,7 +318,7 @@ Partial Class frmDocumentResultList
Me.SplitContainerControl2.Panel1.Text = "Panel1"
Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
Me.SplitContainerControl2.Panel2.Text = "Panel2"
- Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 518)
+ Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 515)
Me.SplitContainerControl2.SplitterPosition = 223
Me.SplitContainerControl2.TabIndex = 0
Me.SplitContainerControl2.Text = "SplitContainerControl2"
@@ -362,7 +363,7 @@ Partial Class frmDocumentResultList
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.MenuManager = Me.RibbonControl
Me.GridControl3.Name = "GridControl3"
- Me.GridControl3.Size = New System.Drawing.Size(370, 285)
+ Me.GridControl3.Size = New System.Drawing.Size(370, 282)
Me.GridControl3.TabIndex = 0
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
@@ -391,13 +392,13 @@ Partial Class frmDocumentResultList
'SplitContainerControl3
'
Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
- Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 131)
+ Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 132)
Me.SplitContainerControl3.Name = "SplitContainerControl3"
Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1)
Me.SplitContainerControl3.Panel1.Text = "Panel1"
Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControl3.Panel2.Text = "Panel2"
- Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 518)
+ Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 515)
Me.SplitContainerControl3.SplitterPosition = 762
Me.SplitContainerControl3.TabIndex = 5
Me.SplitContainerControl3.Text = "SplitContainerControl3"
@@ -408,7 +409,7 @@ Partial Class frmDocumentResultList
Me.DocumentViewer1.FileLoaded = False
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1"
- Me.DocumentViewer1.Size = New System.Drawing.Size(417, 518)
+ Me.DocumentViewer1.Size = New System.Drawing.Size(417, 515)
Me.DocumentViewer1.TabIndex = 0
'
'XtraSaveFileDialog
diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index 38f93e0e..cb1b138c 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -101,7 +101,7 @@ Public Class frmDocumentResultList
End If
DocumentViewer1.Init(_LogConfig, _Environment.Settings.GdPictureKey)
- ' Load config
+ 'Load config
SplitContainerControl1.SplitterPosition = _Config.Config.SplitContainer1Distance
SwitchMainContainerHorizontal.Checked = _Config.Config.SplitContainer1Horizontal
SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance
diff --git a/GUIs.ZooFlow/ClassConstants.vb b/GUIs.ZooFlow/ClassConstants.vb
index d97c2fa6..0c4b4034 100644
--- a/GUIs.ZooFlow/ClassConstants.vb
+++ b/GUIs.ZooFlow/ClassConstants.vb
@@ -37,4 +37,7 @@
Public Const IDB_VECTOR_TYPE_INTEGER = 9
Public Const IDB_VECTOR_TYPE_STRING = 8
+
+ Public Const IDB_ADDED_WHEN_String_German = "Erstellt Wann"
+ Public Const IDB_ADDED_WHEN_String_Englisch = "Added when"
End Class
diff --git a/GUIs.ZooFlow/ClassDataASorDB.vb b/GUIs.ZooFlow/ClassDataASorDB.vb
index e637fbc7..15265687 100644
--- a/GUIs.ZooFlow/ClassDataASorDB.vb
+++ b/GUIs.ZooFlow/ClassDataASorDB.vb
@@ -56,6 +56,7 @@ Public Class ClassDataASorDB
My.Application.User.ShortName = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
My.Application.User.Email = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
My.Application.User.Language = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+ My.Application.User.LanguageID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE_ID")
My.Application.User.DateFormat = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
My.Application.User.IsAdmin = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb
index 7d173bb1..9e033105 100644
--- a/GUIs.ZooFlow/ClassInit.vb
+++ b/GUIs.ZooFlow/ClassInit.vb
@@ -276,6 +276,8 @@ Public Class ClassInit
MyApplication.User.DateFormat = NotNull(oValue.ToString, "dd.MM.yyyy")
Case "USER_LANGUAGE"
MyApplication.User.Language = NotNull(oValue.ToString, "de-DE")
+ Case "USER_LANGUAGEID"
+ MyApplication.User.LanguageID = CShort(oValue)
End Select
End Sub
Private Sub HandleModuleInfo(MyApplication As My.MyApplication, ModuleName As String, Row As DataRow)
diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
index 798a5dfd..05b50e61 100644
--- a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
@@ -262,7 +262,7 @@ Partial Class frmFlowSearch
'
'BarEditItemDate
'
- Me.BarEditItemDate.Caption = "Attribut "
+ Me.BarEditItemDate.Caption = "Attribut Datum"
Me.BarEditItemDate.Edit = Me.RepositoryItemComboBox1
Me.BarEditItemDate.EditWidth = 120
Me.BarEditItemDate.Id = 12
diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.vb b/GUIs.ZooFlow/Search/frmFlowSearch.vb
index cd2e5ed8..589705f0 100644
--- a/GUIs.ZooFlow/Search/frmFlowSearch.vb
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.vb
@@ -3,6 +3,7 @@ Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DevExpress.XtraSplashScreen
Imports DevExpress.XtraBars
+Imports DigitalData.GUIs.ZooFlow.ClassConstants
Public Class frmFlowSearch
Private Logger As Logger
@@ -37,7 +38,12 @@ Public Class frmFlowSearch
Try
TileControlMatch.Groups.Clear()
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE", "VWIDB_BE_ATTRIBUTE", "", "ATTR_TITLE")
- RepositoryItemComboBox1.Items.Add("Erstellt Wann")
+ If My.Application.User.Language = "de-DE" Then
+ RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_German)
+ Else
+ RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_Englisch)
+ End If
+
For Each oRow As DataRow In oDT.Rows
If oRow.Item("TYPE_ID") = 5 Then
RepositoryItemComboBox1.Items.Add(oRow.Item("ATTR_TITLE"))
@@ -64,7 +70,7 @@ Public Class frmFlowSearch
oEditor = TryCast(RibbonControl1.Manager.ActiveEditor, ComboBoxEdit)
oEditValue = oEditor.EditValue
- If oEditValue = "Erstellt Wann" Or oEditValue = "Added when" Then
+ If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then
SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
Else
SEARCH_FACT_DATE_ATTRIBUTE = oEditValue
@@ -104,10 +110,13 @@ Public Class frmFlowSearch
If SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" Then
oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE)
Else
- oSQL = oSQL.Replace("AND MONTH(OBJ.ADDED_WHEN) <> 13", "")
- oSQL = oSQL.Replace("--@INNERJOIN_DATE", "INNER JOIN VWIDB_GROUP_DATA_DATE GRP_DATE ON MD.IDB_OBJ_ID = GRP_DATE.IDB_OBJ_ID")
+ If SEARCH_FACT_DATE = "MONTH(OBJ.ADDED_WHEN) <> 13" Then
+ SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13"
+ End If
+ oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE)
+ oSQL = oSQL.Replace("--INNER JOIN VWIDB_GROUP_DATA_DATE", "INNER JOIN VWIDB_GROUP_DATA_DATE")
+ End If
End If
- End If
Dim oResultCountAttributes As Integer = 0
TileControlMatch.Groups.Clear()
@@ -480,4 +489,8 @@ Public Class frmFlowSearch
StartSearch_Full("")
CheckButton1.Checked = True
End Sub
+
+ Private Sub BarEditItemDate_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarEditItemDate.ItemClick
+
+ End Sub
End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb
index 51c67cb4..3d523a42 100644
--- a/GUIs.ZooFlow/frmFlowForm.Designer.vb
+++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb
@@ -27,6 +27,8 @@ Partial Class frmFlowForm
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.TsiGlobixConfig = New System.Windows.Forms.ToolStripMenuItem()
Me.UserKonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DatenbankverbindungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
@@ -34,26 +36,24 @@ Partial Class frmFlowForm
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+ Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
+ Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
+ Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
+ Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components)
Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components)
Me.TimerFolderwatch = New System.Windows.Forms.Timer(Me.components)
Me.ToastNotificationsManager1 = New DevExpress.XtraBars.ToastNotifications.ToastNotificationsManager(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
- Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
- Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
- Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
- Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
- Me.GlobixToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.TsiGlobixConfig = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuSystray.SuspendLayout()
- CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplashScreenManager
@@ -73,6 +73,21 @@ Partial Class frmFlowForm
Me.ContextMenuSystray.Name = "ContextMenuSystray"
Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 98)
'
+ 'GlobixToolStripMenuItem
+ '
+ Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig})
+ Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short
+ Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem"
+ Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+ Me.GlobixToolStripMenuItem.Text = "Globix"
+ Me.GlobixToolStripMenuItem.Visible = False
+ '
+ 'TsiGlobixConfig
+ '
+ Me.TsiGlobixConfig.Name = "TsiGlobixConfig"
+ Me.TsiGlobixConfig.Size = New System.Drawing.Size(178, 22)
+ Me.TsiGlobixConfig.Text = "Grundeinstellungen"
+ '
'UserKonfigurationToolStripMenuItem
'
Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem})
@@ -103,6 +118,55 @@ Partial Class frmFlowForm
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
'
+ 'PictureBoxAbo
+ '
+ Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
+ Me.PictureBoxAbo.Location = New System.Drawing.Point(209, 75)
+ Me.PictureBoxAbo.Name = "PictureBoxAbo"
+ Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
+ Me.PictureBoxAbo.TabIndex = 11
+ Me.PictureBoxAbo.TabStop = False
+ Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
+ '
+ 'PictureBoxDragDrop
+ '
+ Me.PictureBoxDragDrop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Left
+ Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
+ Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0)
+ Me.PictureBoxDragDrop.Name = "PictureBoxDragDrop"
+ Me.PictureBoxDragDrop.Size = New System.Drawing.Size(197, 150)
+ Me.PictureBoxDragDrop.TabIndex = 10
+ Me.PictureBoxDragDrop.TabStop = False
+ Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
+ '
+ 'PictureBoxPM
+ '
+ Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBoxPM.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"), System.Drawing.Image)
+ Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23)
+ Me.PictureBoxPM.Name = "PictureBoxPM"
+ Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101)
+ Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.PictureBoxPM.TabIndex = 4
+ Me.PictureBoxPM.TabStop = False
+ Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten")
+ '
+ 'PictureBoxSearch
+ '
+ Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent
+ Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"), System.Drawing.Image)
+ Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23)
+ Me.PictureBoxSearch.Name = "PictureBoxSearch"
+ Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101)
+ Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.PictureBoxSearch.TabIndex = 3
+ Me.PictureBoxSearch.TabStop = False
+ Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "ZooFlow Suche")
+ '
'TimerCheckActiveForms
'
Me.TimerCheckActiveForms.Interval = 2000
@@ -132,29 +196,6 @@ Partial Class frmFlowForm
Me.PictureBox1.TabIndex = 12
Me.PictureBox1.TabStop = False
'
- 'PictureBoxAbo
- '
- Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
- Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
- Me.PictureBoxAbo.Location = New System.Drawing.Point(209, 75)
- Me.PictureBoxAbo.Name = "PictureBoxAbo"
- Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
- Me.PictureBoxAbo.TabIndex = 11
- Me.PictureBoxAbo.TabStop = False
- Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
- '
- 'PictureBoxDragDrop
- '
- Me.PictureBoxDragDrop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Left
- Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
- Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0)
- Me.PictureBoxDragDrop.Name = "PictureBoxDragDrop"
- Me.PictureBoxDragDrop.Size = New System.Drawing.Size(197, 150)
- Me.PictureBoxDragDrop.TabIndex = 10
- Me.PictureBoxDragDrop.TabStop = False
- Me.ToolTip1.SetToolTip(Me.PictureBoxDragDrop, "Drag and Drop files here")
- '
'PictureBoxGlobix
'
Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent
@@ -167,47 +208,6 @@ Partial Class frmFlowForm
Me.PictureBoxGlobix.TabIndex = 9
Me.PictureBoxGlobix.TabStop = False
'
- 'PictureBoxPM
- '
- Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent
- Me.PictureBoxPM.Cursor = System.Windows.Forms.Cursors.Hand
- Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"), System.Drawing.Image)
- Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23)
- Me.PictureBoxPM.Name = "PictureBoxPM"
- Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101)
- Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
- Me.PictureBoxPM.TabIndex = 4
- Me.PictureBoxPM.TabStop = False
- Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten")
- '
- 'PictureBoxSearch
- '
- Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent
- Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand
- Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"), System.Drawing.Image)
- Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23)
- Me.PictureBoxSearch.Name = "PictureBoxSearch"
- Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101)
- Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
- Me.PictureBoxSearch.TabIndex = 3
- Me.PictureBoxSearch.TabStop = False
- Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "ZooFlow Suche")
- '
- 'GlobixToolStripMenuItem
- '
- Me.GlobixToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsiGlobixConfig})
- Me.GlobixToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.GLOBIX_short
- Me.GlobixToolStripMenuItem.Name = "GlobixToolStripMenuItem"
- Me.GlobixToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
- Me.GlobixToolStripMenuItem.Text = "Globix"
- Me.GlobixToolStripMenuItem.Visible = False
- '
- 'TsiGlobixConfig
- '
- Me.TsiGlobixConfig.Name = "TsiGlobixConfig"
- Me.TsiGlobixConfig.Size = New System.Drawing.Size(178, 22)
- Me.TsiGlobixConfig.Text = "Grundeinstellungen"
- '
'frmFlowForm
'
Me.AllowDrop = True
@@ -227,17 +227,18 @@ Partial Class frmFlowForm
Me.Controls.Add(Me.PictureBoxSearch)
Me.DoubleBuffered = True
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256
Me.Name = "frmFlowForm"
- Me.Text = "frmFlowForm_Test1"
+ Me.Text = "ZooFlow"
Me.TopMost = True
Me.ContextMenuSystray.ResumeLayout(False)
- CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.ToastNotificationsManager1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx
index 0aeb419d..94dd094a 100644
--- a/GUIs.ZooFlow/frmFlowForm.resx
+++ b/GUIs.ZooFlow/frmFlowForm.resx
@@ -1962,49 +1962,6 @@
610, 17
-
- 709, 17
-
-
- 891, 17
-
-
- 1079, 17
-
-
- 1228, 17
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
- dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFpvb207zwn+vAAAAKdJREFUOE+1
- ktERREAQRElHLjIQhAgcYrgs1PkWjp+Txuh3hdpadu+c8vHU1HRPzy4SM7vE55G3wxGpKEQnpgVqemjR
- AAy1sABoaSyALRjf4iGyBWp6aEUsgKNiYsDX6KF1sQDui4mtvkYPbbo14PIVXgLTGsJWoP76EiuxDocI
- fkZ/uBc//0j+cCPc8B1uwFOcGgY3YBSnhsENKAUhnGRnDLEF/I8lMzpgJH6ZZgx9AAAAAElFTkSuQmCC
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
- EgAACxIB0t1+/AAAA8pJREFUeF7t3D1uFEEQhmEfwUdwBAIhZG7gI/goPoKP4CP4FAQEyCIgRIgAiQRZ
- IiAhcERAstQnjaX26t3dmu7qnlm5giepWXf9aH9me2Z9stlsUgMMJj8MJj8MJj8MJj8MJj8MJj8MJj8M
- Jj8MJj8MjvTj/Ytzc2VuzZ3ZHKDH6LH6m3NacyQM9maNX05DeDA0pDm0hta6pFy9YbAHa/DUXJt7Q4OI
- oLWV45Rq6AGD0aamIp5tXsp1TbVEw2AUa+LC9HzGHaLcF1RbFAy2sqL1cr2ZmlgD1dLlZY3BFlbomfk6
- Fb4mqumMam6BwVpWoE5JRr7XzaXaQk99MFhDhU0FUuFrEjpEDM6lgqbCqOA1ChsiBuewQvSed0zDe6Sa
- m98TMehlBejTdo0fGF6qvenTGYNelnxNpyq1bqg3Lwx6WGKdJFNBx6j6ZBuDHpa06hvGn89vuvr18RXm
- PeCeevTA4CGWUN9tqZCDNt/fdaUhUl6Hqu/OGNzHEumDo/pTl5qO1DBA9TT7AwWD+1iS6mefbDe7z79v
- dqpWPN5Df0d5nWY/CzG4jyVp2l0pm6Xjpb9f3j55vEfjAGe/F2JwF0ugnWRK7FY2S8dLCwxQZu1sY3AX
- W1xb55TUrWyWjpcWGuAt9b4LBnexxZu/spXN0vHSQgN8oN53wSCxhbVhQAlnKZul46WFBijujQYMEltU
- lxEp2Sxls3S8tOAAr2gGBIPEFm1+/5OyWTpeWnCA7vdBDBJb1HPR+6CyWTpeWnCAdzQDgkECSaqUzdLx
- 0u9Pr5883iNogNYyz2EbBgklqVE2S8draGg5wAarH6AtqA0ETDTXsQzQuDYWMLhNi20tXu1ZDlAgQZVj
- GeB2/7tgkFCSGjnARs95gMNPpL06DLDLifTwr3JeHQbY5avc8M0Erw4D7LKZMHw7y6vDAOO3s8QWHrqh
- 6hU8wD4bqmKLD93S9woeYNct/aEXlbyCB9jvopJYgmGXNb0CB9j3sqZYkrAL63S8RuAAh1xYD7u1g47X
- CBrgmFs7xBKF3FykLfsI5S0gDQMcc3PRI0tY9V5YDrCHygGOvb1NLGnVDZbUdKTKAY6/wVIs8exbfHUD
- ZE8/P7zEvHssc4uvWPK8yZyCc1gB+TOHVlZI/tCmlQqaCqOC1yRseILBWipsKpAKX4PQ4QkGW1iB+XPX
- VlaoPp3zB9etrOj8yX8EayL/6UQra0gvaw2y5zNSaytHl5crwWBv1mD+450o1rhOffJfPz1XGEx+GEx+
- GEx+GEx+GEx+GEx+GEx+GEx+GExem5P/BhegvGcbWY4AAAAASUVORK5CYII=
-
-
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
@@ -2056,6 +2013,49 @@
8QC4gxK2VytoAolXhEidab60xEEC2OuANEEi9N6rsWGCmj4fDjIzC5Ag9go7TZAw9nJIbZBIYzeL9trV
NpBY9kJjbZB49qpwbZCY9hJ+jZDAMM5+3kI1CenCgZklo8gs+7EzRT92ZsiYWYowsxRhZilidLPs59rD
iTozEYp40EgT8aCRIsXWP0j108YYpYdeAAAAAElFTkSuQmCC
+
+
+
+ 709, 17
+
+
+ 891, 17
+
+
+ 1079, 17
+
+
+ 1228, 17
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+ dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFpvb207zwn+vAAAAKdJREFUOE+1
+ ktERREAQRElHLjIQhAgcYrgs1PkWjp+Txuh3hdpadu+c8vHU1HRPzy4SM7vE55G3wxGpKEQnpgVqemjR
+ AAy1sABoaSyALRjf4iGyBWp6aEUsgKNiYsDX6KF1sQDui4mtvkYPbbo14PIVXgLTGsJWoP76EiuxDocI
+ fkZ/uBc//0j+cCPc8B1uwFOcGgY3YBSnhsENKAUhnGRnDLEF/I8lMzpgJH6ZZgx9AAAAAElFTkSuQmCC
+
+
+
+
+ iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
+ EgAACxIB0t1+/AAAA8pJREFUeF7t3D1uFEEQhmEfwUdwBAIhZG7gI/goPoKP4CP4FAQEyCIgRIgAiQRZ
+ IiAhcERAstQnjaX26t3dmu7qnlm5giepWXf9aH9me2Z9stlsUgMMJj8MJj8MJj8MJj8MJj8MJj8MJj8M
+ Jj8MJj8MjvTj/Ytzc2VuzZ3ZHKDH6LH6m3NacyQM9maNX05DeDA0pDm0hta6pFy9YbAHa/DUXJt7Q4OI
+ oLWV45Rq6AGD0aamIp5tXsp1TbVEw2AUa+LC9HzGHaLcF1RbFAy2sqL1cr2ZmlgD1dLlZY3BFlbomfk6
+ Fb4mqumMam6BwVpWoE5JRr7XzaXaQk99MFhDhU0FUuFrEjpEDM6lgqbCqOA1ChsiBuewQvSed0zDe6Sa
+ m98TMehlBejTdo0fGF6qvenTGYNelnxNpyq1bqg3Lwx6WGKdJFNBx6j6ZBuDHpa06hvGn89vuvr18RXm
+ PeCeevTA4CGWUN9tqZCDNt/fdaUhUl6Hqu/OGNzHEumDo/pTl5qO1DBA9TT7AwWD+1iS6mefbDe7z79v
+ dqpWPN5Df0d5nWY/CzG4jyVp2l0pm6Xjpb9f3j55vEfjAGe/F2JwF0ugnWRK7FY2S8dLCwxQZu1sY3AX
+ W1xb55TUrWyWjpcWGuAt9b4LBnexxZu/spXN0vHSQgN8oN53wSCxhbVhQAlnKZul46WFBijujQYMEltU
+ lxEp2Sxls3S8tOAAr2gGBIPEFm1+/5OyWTpeWnCA7vdBDBJb1HPR+6CyWTpeWnCAdzQDgkECSaqUzdLx
+ 0u9Pr5883iNogNYyz2EbBgklqVE2S8draGg5wAarH6AtqA0ETDTXsQzQuDYWMLhNi20tXu1ZDlAgQZVj
+ GeB2/7tgkFCSGjnARs95gMNPpL06DLDLifTwr3JeHQbY5avc8M0Erw4D7LKZMHw7y6vDAOO3s8QWHrqh
+ 6hU8wD4bqmKLD93S9woeYNct/aEXlbyCB9jvopJYgmGXNb0CB9j3sqZYkrAL63S8RuAAh1xYD7u1g47X
+ CBrgmFs7xBKF3FykLfsI5S0gDQMcc3PRI0tY9V5YDrCHygGOvb1NLGnVDZbUdKTKAY6/wVIs8exbfHUD
+ ZE8/P7zEvHssc4uvWPK8yZyCc1gB+TOHVlZI/tCmlQqaCqOC1yRseILBWipsKpAKX4PQ4QkGW1iB+XPX
+ VlaoPp3zB9etrOj8yX8EayL/6UQra0gvaw2y5zNSaytHl5crwWBv1mD+450o1rhOffJfPz1XGEx+GEx+
+ GEx+GEx+GEx+GEx+GEx+GEx+GExem5P/BhegvGcbWY4AAAAASUVORK5CYII=
\ No newline at end of file
diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index 999ae10f..b67defcd 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -395,6 +395,10 @@ Public Class frmFlowForm
Logger.Debug("OnEvent called!")
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+ Open_FlowSearch()
+ End Sub
+ Sub Open_FlowSearch()
Cursor = Cursors.WaitCursor
If TheFormIsAlreadyLoaded("frmFlowSearch") Then
Cursor = Cursors.Default
@@ -408,29 +412,31 @@ Public Class frmFlowForm
Next
If oSQLFlowSearch <> String.Empty Then
oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
+ oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE_ID", My.Application.User.LanguageID)
+ oSQLFlowSearch = oSQLFlowSearch.Replace("@LANGUAGE", My.Application.User.Language)
Dim oForm As New frmFlowSearch(oSQLFlowSearch)
oForm.Show()
oForm.BringToFront()
End If
Cursor = Cursors.Default
-
End Sub
Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
- Cursor = Cursors.WaitCursor
- If TheFormIsAlreadyLoaded("frmSearchStart") Then
- Cursor = Cursors.Default
- Exit Sub
- End If
+ Open_FlowSearch()
+ 'Cursor = Cursors.WaitCursor
+ 'If TheFormIsAlreadyLoaded("frmSearchStart") Then
+ ' Cursor = Cursors.Default
+ ' Exit Sub
+ 'End If
- Dim oForm As New frmSearchStart(DTIDB_SEARCHES) 'frmFlowSearch(osql)
- oForm.Show()
- Cursor = Cursors.Default
- If TimerCheckActiveForms.Enabled = False Then
- TimerCheckActiveForms.Enabled = True
- End If
+ 'Dim oForm As New frmSearchStart(DTIDB_SEARCHES) 'frmFlowSearch(osql)
+ 'oForm.Show()
+ 'Cursor = Cursors.Default
+ 'If TimerCheckActiveForms.Enabled = False Then
+ ' TimerCheckActiveForms.Enabled = True
+ 'End If
End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
diff --git a/Modules.ZooFlow/State/UserState.vb b/Modules.ZooFlow/State/UserState.vb
index e92f1ae0..55a7cd6b 100644
--- a/Modules.ZooFlow/State/UserState.vb
+++ b/Modules.ZooFlow/State/UserState.vb
@@ -14,6 +14,7 @@ Namespace State
Public Property MachineName As String
Public Property DateFormat As String
Public Property Language As String
+ Public Property LanguageID As Int16
Public Property IsAdmin As Boolean = False
Public Property HideBasicConfig As Boolean = False