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

Zooflow: Add recent files first draft, fix opening process manager

Browse Source
This commit is contained in:
Jonathan Jenne 2022-04-28 10:56:29 +02:00
parent d36be2c9da
commit e3ee11c6a6
9 changed files with 200 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
GUIs.ZooFlow/My Project/Resources.Designer.vb generated
View File

@ -180,6 +180,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property _new() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("new", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@ -1150,6 +1160,36 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property new1() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("new1", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property new2() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("new2", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property new3() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("new3", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>

30
GUIs.ZooFlow/My Project/Resources.resx
View File

@ -304,8 +304,8 @@
<data name="actions_options" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_options.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="new" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_appearance" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -391,9 +391,6 @@
<data name="ZooFlow_drop_drag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_drop_drag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_deletecircled6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -424,6 +421,9 @@
<data name="del5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="new1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_Sidebar_TOP_Drop" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP_Drop.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -481,6 +481,9 @@
<data name="documentproperties" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="StatusAnnotations_Information_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="actions_addcircled4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -499,8 +502,8 @@
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Information_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ZooFlow_Sidebar_TOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="ZooFlow_Sidebar_individuelle_suche" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow_Sidebar_individuelle_suche.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -511,6 +514,9 @@
<data name="bo_validation" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="new2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -526,6 +532,12 @@
<data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="managedatasource3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\managedatasource3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doublenext1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -565,7 +577,7 @@
<data name="del3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="managedatasource3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\managedatasource3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="new3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

7
GUIs.ZooFlow/Resources/new.svg Normal file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="New" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
</style>
<path d="M19,2H5C4.4,2,4,2.4,4,3v24c0,0.6,0.4,1,1,1h20c0.6,0,1-0.4,1-1V9L19,2z M24,26H6V4h12v5c0,0.6,0.4,1,1,1h5 V26z" class="Black" />
</svg>

7
GUIs.ZooFlow/Resources/new1.svg Normal file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="New" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
</style>
<path d="M19,2H5C4.4,2,4,2.4,4,3v24c0,0.6,0.4,1,1,1h20c0.6,0,1-0.4,1-1V9L19,2z M24,26H6V4h12v5c0,0.6,0.4,1,1,1h5 V26z" class="Black" />
</svg>

7
GUIs.ZooFlow/Resources/new2.svg Normal file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="New" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
</style>
<path d="M19,2H5C4.4,2,4,2.4,4,3v24c0,0.6,0.4,1,1,1h20c0.6,0,1-0.4,1-1V9L19,2z M24,26H6V4h12v5c0,0.6,0.4,1,1,1h5 V26z" class="Black" />
</svg>

7
GUIs.ZooFlow/Resources/new3.svg Normal file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="New" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
</style>
<path d="M19,2H5C4.4,2,4,2.4,4,3v24c0,0.6,0.4,1,1,1h20c0.6,0,1-0.4,1-1V9L19,2z M24,26H6V4h12v5c0,0.6,0.4,1,1,1h5 V26z" class="Black" />
</svg>

4
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -1100,6 +1100,10 @@
<None Include="Resources\ZooFlow_Sidebar_individuelle_suche.svg" />
<None Include="Resources\action_add_16xMD.png" />
<None Include="Resources\managedatasource3.svg" />
<None Include="Resources\new.svg" />
<None Include="Resources\new1.svg" />
<None Include="Resources\new2.svg" />
<None Include="Resources\new3.svg" />
<Content Include="Zooflow.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

69
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -68,6 +68,11 @@ Partial Class frmFlowForm
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.RecentFilesView = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView()
Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
Me.colSecondary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.colPrimary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
Me.AdornerUIManager1 = New DevExpress.Utils.VisualEffects.AdornerUIManager(Me.components)
Me.TaskBadge = New DevExpress.Utils.VisualEffects.Badge()
Me.ContextMenuSystray.SuspendLayout()
@ -80,6 +85,8 @@ Partial Class frmFlowForm
Me.Panel1.SuspendLayout()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@ -174,7 +181,7 @@ Partial Class frmFlowForm
Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
Me.PictureBoxSearch.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.FLOW_Sidebar_Search_inaktiv
Me.PictureBoxSearch.TabIndex = 13
Me.PictureBoxSearch.Text = "SvgImageBox1"
Me.PictureBoxSearch.Text = "X"
Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "FlowSearch öffnen")
'
'TimerFolderwatch
@ -404,6 +411,7 @@ Partial Class frmFlowForm
'
'Panel2
'
Me.Panel2.Controls.Add(Me.GridControl1)
Me.Panel2.Controls.Add(Me.PictureBoxPM)
Me.Panel2.Controls.Add(Me.Panel3)
Me.Panel2.Controls.Add(Me.pnlQuicksearch1)
@ -414,6 +422,58 @@ Partial Class frmFlowForm
Me.Panel2.Size = New System.Drawing.Size(202, 410)
Me.Panel2.TabIndex = 17
'
'GridControl1
'
Me.GridControl1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.GridControl1.Location = New System.Drawing.Point(3, 84)
Me.GridControl1.MainView = Me.RecentFilesView
Me.GridControl1.MenuManager = Me.BarManager1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(196, 182)
Me.GridControl1.TabIndex = 18
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.RecentFilesView})
'
'AdvBandedGridView1
'
Me.RecentFilesView.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
Me.RecentFilesView.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colPrimary, Me.colSecondary})
Me.RecentFilesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
Me.RecentFilesView.GridControl = Me.GridControl1
Me.RecentFilesView.Name = "AdvBandedGridView1"
Me.RecentFilesView.OptionsBehavior.Editable = False
Me.RecentFilesView.OptionsBehavior.ReadOnly = True
Me.RecentFilesView.OptionsView.ColumnAutoWidth = True
Me.RecentFilesView.OptionsView.ShowBands = False
Me.RecentFilesView.OptionsView.ShowColumnHeaders = False
Me.RecentFilesView.OptionsView.ShowGroupPanel = False
Me.RecentFilesView.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.RecentFilesView.OptionsView.ShowIndicator = False
Me.RecentFilesView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
'
'GridBand1
'
Me.GridBand1.Caption = "GridBand1"
Me.GridBand1.Columns.Add(Me.colSecondary)
Me.GridBand1.Columns.Add(Me.colPrimary)
Me.GridBand1.Name = "GridBand1"
Me.GridBand1.VisibleIndex = 0
Me.GridBand1.Width = 75
'
'colSecondary
'
Me.colSecondary.Caption = "Secondary"
Me.colSecondary.FieldName = "Secondary"
Me.colSecondary.Name = "colSecondary"
Me.colSecondary.Visible = True
'
'colPrimary
'
Me.colPrimary.Caption = "Primary"
Me.colPrimary.FieldName = "Primary"
Me.colPrimary.Name = "colPrimary"
Me.colPrimary.RowIndex = 1
Me.colPrimary.Visible = True
'
'AdornerUIManager1
'
Me.AdornerUIManager1.Elements.Add(Me.TaskBadge)
@ -463,6 +523,8 @@ Partial Class frmFlowForm
Me.Panel1.ResumeLayout(False)
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -510,4 +572,9 @@ Partial Class frmFlowForm
Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem
Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents colPrimary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
End Class

55
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -20,6 +20,7 @@ Imports DevExpress.LookAndFeel
Imports System.Threading.Tasks
Imports System.Threading
Imports DigitalData.Controls.MessageBoxEx
Imports System.ComponentModel
Public Class frmFlowForm
#Region "Sidebar DllImport"
@ -86,9 +87,7 @@ Public Class frmFlowForm
End If
MyBase.WndProc(m)
Catch ex As Exception
End Try
End Sub
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
Get
@ -196,6 +195,7 @@ Public Class frmFlowForm
Public Event ClipboardChanged As EventHandler(Of IDataObject)
Private WithEvents HotkeyClass As Hotkey
Private WithEvents Watcher As Watcher = Watcher.Singleton
#End Region
Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
@ -232,7 +232,6 @@ Public Class frmFlowForm
Environment = My.Application.GetEnvironment()
ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
Modules = New ClassModules(My.LogConfig, My.SystemConfig)
FileEx = New Filesystem.File(My.LogConfig)
' === Initialize Theming ===
If My.Application.Palette = "" Then
@ -250,8 +249,6 @@ Public Class frmFlowForm
AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged
'Dim oSQL = My.Queries.Common.FNIDB_GET_SEARCH_PROFILES(My.Application.User.UserId, My.Application.User.Language)
'Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSQL)
PictureBoxSearch.Visible = False
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
@ -261,14 +258,12 @@ Public Class frmFlowForm
End If
Next
'If Not IsNothing(oDatatable) Then
' If oDatatable.Rows.Count > 0 Then
' IDBSearchActive = True
' DTIDB_SEARCHES = oDatatable
' PictureBoxSearch1.Visible = True
' End If
Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = 'SchreiberM' ORDER BY [Changed when] DESC"
Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
'End If
GridControl1.DataSource = AccessedFilesTable
colPrimary.FieldName = "DisplayFileName"
colSecondary.FieldName = "Changed when"
If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
Try
@ -345,8 +340,6 @@ Public Class frmFlowForm
End If
If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
Exit Function
End If
@ -1120,7 +1113,6 @@ Public Class frmFlowForm
Private Function GetResultWindowString(SearchContent As String) As String
If SearchContent <> String.Empty Then
If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then
Return $"Suche Nach '{SearchContent}'"
Else
Return $"Search For '{SearchContent}'"
@ -1246,7 +1238,7 @@ Public Class frmFlowForm
Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click
Try
Dim oProcessManagerPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
Dim oProcessManagerPath = Modules.GetProductProgramPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
If oProcessManagerPath IsNot Nothing AndAlso IO.File.Exists(oProcessManagerPath) Then
Process.Start(oProcessManagerPath)
End If
@ -1286,5 +1278,36 @@ Public Class frmFlowForm
Private Sub PictureEditQuicksearch1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEditQuicksearch1.EditValueChanged
End Sub
Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick
If RecentFilesView.FocusedRowHandle >= 0 Then
Dim oFile As DataRowView = RecentFilesView.GetRow(RecentFilesView.FocusedRowHandle)
Dim oRow As DataRow = oFile.Row
Dim oObjectId As Long = oRow.Item("DocId")
Dim oDataSource As DataTable = GridControl1.DataSource
Dim oResult = oDataSource.AsEnumerable().
Where(Function(row) row.Item("DocId") = oObjectId).
CopyToDataTable()
Dim oParams = New DocumentResultList.Params() With {
.WindowGuid = "SingleDocument",
.WindowTitle = "Einzelnes Dokument",
.OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 354521,
.ShowBackNavigation = False,
.ShowFileList = False,
.Results = New List(Of DocumentResultList.DocumentResult) From {
New DocumentResultList.DocumentResult() With {
.Title = "Einzelnes Dokument",
.Datatable = oResult
}
}
}
Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams)
oForm.Show()
End If
End Sub
End Class