Neue Exportfunktion und UI-Verbesserungen

- `MouseWheelMode` im `DocumentViewer` auf vertikales Scrollen geändert. - Neue Parameter (`WM_SUFFIX`, `MAP_SHAREDRIVE`, `SavetoDrive`) für Dokumentenverarbeitung hinzugefügt. - `GridView1` durch `GridViewResult` ersetzt. - Schaltfläche `bbtnitemExportFiles` für Datei-Export hinzugefügt. - Logik für temporäre Kopien (`CopyWM2Temp`) in `frmDocumentResultList` implementiert. - Ressourcen und Layouts in mehreren Dateien aktualisiert. - Neue Schaltfläche `BarButtonItem6` in `frmSQLEditor` hinzugefügt.
2026-06-05 11:21:39 +02:00
parent 45485400e1
commit a6f3031860
11 changed files with 357 additions and 188 deletions
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb
@@ -24,7 +24,7 @@ Partial Class frmDocumentResultList
        Dim FadeTransition1 As DevExpress.Utils.Animation.FadeTransition = New DevExpress.Utils.Animation.FadeTransition()
        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
+        Me.GridViewResult = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
        Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
        Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
        Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
@@ -68,13 +68,13 @@ Partial Class frmDocumentResultList
        Me.btnSaveWorkspaceAs = New DevExpress.XtraBars.BarButtonItem()
        Me.btnSaveAsMySearch = New DevExpress.XtraBars.BarButtonItem()
        Me.lblCurrentWorkspace = New DevExpress.XtraBars.BarStaticItem()
-        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitemExportFiles = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup_Navigation = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroupExport = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageRefresh = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupDocument = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupFilesystem = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroupExport = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupCheckInOut = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupWorkflow = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroupAttribute = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -124,7 +124,7 @@ Partial Class frmDocumentResultList
        Me.SplitContainerControl1.Panel2.SuspendLayout()
        Me.SplitContainerControl1.SuspendLayout()
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -184,27 +184,27 @@ Partial Class frmDocumentResultList
        'GridControl1
        '
        resources.ApplyResources(Me.GridControl1, "GridControl1")
-        Me.GridControl1.MainView = Me.GridView1
+        Me.GridControl1.MainView = Me.GridViewResult
        Me.GridControl1.MenuManager = Me.RibbonControl
        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewResult})
        '
-        'GridView1
+        'GridViewResult
        '
-        Me.GridView1.Appearance.FocusedCell.BackColor = System.Drawing.Color.Gainsboro
-        Me.GridView1.Appearance.FocusedCell.Options.UseBackColor = True
-        Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Gainsboro
-        Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
-        Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
-        Me.GridView1.OptionsBehavior.Editable = False
-        Me.GridView1.OptionsBehavior.ReadOnly = True
-        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
-        Me.GridView1.OptionsView.ShowAutoFilterRow = True
-        Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
-        Me.GridView1.OptionsView.ShowIndicator = False
-        Me.GridView1.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewResult.Appearance.FocusedCell.BackColor = System.Drawing.Color.Gainsboro
+        Me.GridViewResult.Appearance.FocusedCell.Options.UseBackColor = True
+        Me.GridViewResult.Appearance.FocusedRow.BackColor = System.Drawing.Color.Gainsboro
+        Me.GridViewResult.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridViewResult.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
+        Me.GridViewResult.GridControl = Me.GridControl1
+        Me.GridViewResult.Name = "GridViewResult"
+        Me.GridViewResult.OptionsBehavior.Editable = False
+        Me.GridViewResult.OptionsBehavior.ReadOnly = True
+        Me.GridViewResult.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewResult.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewResult.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewResult.OptionsView.ShowIndicator = False
+        Me.GridViewResult.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
        '
        'GridBand1
        '
@@ -222,9 +222,9 @@ Partial Class frmDocumentResultList
        Me.RibbonControl.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
        Me.RibbonControl.ExpandCollapseItem.Id = 0
        Me.RibbonControl.Images = Me.SvgImageCollection1
-        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetGridLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemProperties, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.MenuItemStartAdhocWorkflow, Me.MenuItemCheckInFile, Me.MenuItemCheckOutFile, Me.MenuItemVersionFile, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarEditItemGridFontSize, Me.btnSaveWorkspace, Me.BarWorkspaceMenuItem1, Me.btnSaveWorkspaceAs, Me.btnSaveAsMySearch, Me.lblCurrentWorkspace, Me.BarButtonItem6})
+        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.SwitchMainContainerHorizontal, Me.SwitchDetailContainerHorizontal, Me.BarButtonItemExportGrid1, Me.BarStaticItem1, Me.labelResultCount, Me.BarButtonBack, Me.BarButtonResetGridLayout, Me.labelCriticalError, Me.labelWarning, Me.MenuItemFileOpen, Me.MenuItemPropertiesIDB, Me.MenuItemFolderOpen, Me.MenuItemFilepathCopy, Me.MenuItemFolderpathCopy, Me.MenuItemProperties, Me.MenuItemsOpenFileZooFlow, Me.MenuItemPropertiesZooFlow, Me.ButtonRefresh, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.MenuItemStartAdhocWorkflow, Me.MenuItemCheckInFile, Me.MenuItemCheckOutFile, Me.MenuItemVersionFile, Me.chkGridShowQuickfilter, Me.chkGridShowGrouping, Me.chkGridShowTitle, Me.MenuItemSaveProperties, Me.BarButtonItem11, Me.BarEditItemGridFontSize, Me.btnSaveWorkspace, Me.BarWorkspaceMenuItem1, Me.btnSaveWorkspaceAs, Me.btnSaveAsMySearch, Me.lblCurrentWorkspace, Me.bbtnitemExportFiles})
        resources.ApplyResources(Me.RibbonControl, "RibbonControl")
-        Me.RibbonControl.MaxItemId = 62
+        Me.RibbonControl.MaxItemId = 63
        Me.RibbonControl.Name = "RibbonControl"
        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPage2})
        Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemSearchControl1, Me.cmbGridFontSize})
@@ -258,7 +258,6 @@ Partial Class frmDocumentResultList
        Me.BarButtonItemExportGrid1.Id = 3
        Me.BarButtonItemExportGrid1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemExportGrid1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItemExportGrid1.Name = "BarButtonItemExportGrid1"
-        Me.BarButtonItemExportGrid1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
        '
        'BarStaticItem1
        '
@@ -531,16 +530,16 @@ Partial Class frmDocumentResultList
        Me.lblCurrentWorkspace.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
        Me.lblCurrentWorkspace.Tag = "Arbeitsbereich: {0}"
        '
-        'BarButtonItem6
+        'bbtnitemExportFiles
        '
-        resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6")
-        Me.BarButtonItem6.Id = 61
-        Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
-        Me.BarButtonItem6.Name = "BarButtonItem6"
+        resources.ApplyResources(Me.bbtnitemExportFiles, "bbtnitemExportFiles")
+        Me.bbtnitemExportFiles.Id = 61
+        Me.bbtnitemExportFiles.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitemExportFiles.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitemExportFiles.Name = "bbtnitemExportFiles"
        '
        'RibbonPageStart
        '
-        Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageGroupExport, Me.RibbonPageRefresh, Me.RibbonPageGroupDocument, Me.RibbonPageGroupFilesystem, Me.RibbonPageGroupCheckInOut, Me.RibbonPageGroupWorkflow, Me.RibbonPageGroupAttribute, Me.RibbonPageGroupWorkspace, Me.RibbonPageGroupSavedSearch})
+        Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup_Navigation, Me.RibbonPageRefresh, Me.RibbonPageGroupDocument, Me.RibbonPageGroupFilesystem, Me.RibbonPageGroupExport, Me.RibbonPageGroupCheckInOut, Me.RibbonPageGroupWorkflow, Me.RibbonPageGroupAttribute, Me.RibbonPageGroupWorkspace, Me.RibbonPageGroupSavedSearch})
        Me.RibbonPageStart.Name = "RibbonPageStart"
        resources.ApplyResources(Me.RibbonPageStart, "RibbonPageStart")
        '
@@ -551,14 +550,6 @@ Partial Class frmDocumentResultList
        Me.RibbonPageGroup_Navigation.Name = "RibbonPageGroup_Navigation"
        resources.ApplyResources(Me.RibbonPageGroup_Navigation, "RibbonPageGroup_Navigation")
        '
-        'RibbonPageGroupExport
-        '
-        Me.RibbonPageGroupExport.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroupExport.ItemLinks.Add(Me.BarButtonItemExportGrid1)
-        Me.RibbonPageGroupExport.ItemLinks.Add(Me.BarButtonItem6)
-        Me.RibbonPageGroupExport.Name = "RibbonPageGroupExport"
-        resources.ApplyResources(Me.RibbonPageGroupExport, "RibbonPageGroupExport")
-        '
        'RibbonPageRefresh
        '
        Me.RibbonPageRefresh.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
@@ -581,6 +572,13 @@ Partial Class frmDocumentResultList
        Me.RibbonPageGroupFilesystem.Name = "RibbonPageGroupFilesystem"
        resources.ApplyResources(Me.RibbonPageGroupFilesystem, "RibbonPageGroupFilesystem")
        '
+        'RibbonPageGroupExport
+        '
+        Me.RibbonPageGroupExport.ItemLinks.Add(Me.BarButtonItemExportGrid1)
+        Me.RibbonPageGroupExport.ItemLinks.Add(Me.bbtnitemExportFiles)
+        Me.RibbonPageGroupExport.Name = "RibbonPageGroupExport"
+        resources.ApplyResources(Me.RibbonPageGroupExport, "RibbonPageGroupExport")
+        '
        'RibbonPageGroupCheckInOut
        '
        Me.RibbonPageGroupCheckInOut.ItemLinks.Add(Me.MenuItemCheckOutFile)
@@ -887,7 +885,7 @@ Partial Class frmDocumentResultList
        Me.LayoutControlItem1.Name = "LayoutControlItem1"
        Me.LayoutControlItem1.Size = New System.Drawing.Size(224, 24)
        resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(124, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(126, 13)
        '
        'LayoutControlItem2
        '
@@ -896,7 +894,7 @@ Partial Class frmDocumentResultList
        Me.LayoutControlItem2.Name = "LayoutControlItem2"
        Me.LayoutControlItem2.Size = New System.Drawing.Size(224, 24)
        resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(124, 13)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(126, 13)
        '
        'EmptySpaceItem1
        '
@@ -927,9 +925,9 @@ Partial Class frmDocumentResultList
        Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
        resources.ApplyResources(Me, "$this")
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.DockPanelFileList)
        Me.Controls.Add(Me.DockPanelPreview)
        Me.Controls.Add(Me.panelContainerStatus)
+        Me.Controls.Add(Me.DockPanelFileList)
        Me.Controls.Add(Me.RibbonStatusBar)
        Me.Controls.Add(Me.RibbonControl)
        Me.IconOptions.Icon = CType(resources.GetObject("frmDocumentResultList.IconOptions.Icon"), System.Drawing.Icon)
@@ -944,7 +942,7 @@ Partial Class frmDocumentResultList
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerControl1.ResumeLayout(False)
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1012,7 +1010,7 @@ Partial Class frmDocumentResultList
    Friend WithEvents RepositoryItemTextEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
    Friend WithEvents labelCriticalError As DevExpress.XtraBars.BarStaticItem
    Friend WithEvents labelWarning As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView
+    Friend WithEvents GridViewResult As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView
    Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
    Friend WithEvents MenuItemFileOpen As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents MenuItemPropertiesIDB As DevExpress.XtraBars.BarButtonItem
@@ -1080,5 +1078,5 @@ Partial Class frmDocumentResultList
    Friend WithEvents btnSaveAsMySearch As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroupSavedSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents lblCurrentWorkspace As DevExpress.XtraBars.BarStaticItem
-    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtnitemExportFiles As DevExpress.XtraBars.BarButtonItem
 End Class