MS frmDocSearchResult

2024-01-24 08:46:16 +01:00
parent 80deb257b7
commit 749f6af1bb
5 changed files with 136 additions and 21 deletions
--- a/app/DD-Record-Organizer/frmDocSearchResult.Designer.vb
+++ b/app/DD-Record-Organizer/frmDocSearchResult.Designer.vb
@@ -23,7 +23,7 @@ Partial Class frmDocSearchResult
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocSearchResult))
        Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
        Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -41,26 +41,35 @@ Partial Class frmDocSearchResult
        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
        Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem()
        Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
+        Me.bbtnitmPreview = New DevExpress.XtraBars.BarButtonItem()
+        Me.bchlitmPreview = New DevExpress.XtraBars.BarCheckItem()
+        Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
        CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStripResultFiles.SuspendLayout()
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.Panel1.SuspendLayout()
+        CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl1.SuspendLayout()
        Me.SuspendLayout()
        '
        'GridControlDocSearch
        '
        Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
        Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
-        Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 158)
+        GridLevelNode2.RelationName = "Level1"
+        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        Me.GridControlDocSearch.Location = New System.Drawing.Point(0, 0)
        Me.GridControlDocSearch.MainView = Me.GridViewDoc_Search
        Me.GridControlDocSearch.Name = "GridControlDocSearch"
-        Me.GridControlDocSearch.Size = New System.Drawing.Size(1083, 463)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(698, 465)
        Me.GridControlDocSearch.TabIndex = 8
        Me.GridControlDocSearch.TabStop = False
        Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -130,6 +139,10 @@ Partial Class frmDocSearchResult
        Me.GridViewDoc_Search.GridControl = Me.GridControlDocSearch
        Me.GridViewDoc_Search.LevelIndent = 10
        Me.GridViewDoc_Search.Name = "GridViewDoc_Search"
+        Me.GridViewDoc_Search.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDoc_Search.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDoc_Search.OptionsBehavior.Editable = False
+        Me.GridViewDoc_Search.OptionsBehavior.ReadOnly = True
        Me.GridViewDoc_Search.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
        Me.GridViewDoc_Search.OptionsDetail.ShowDetailTabs = False
        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = False
@@ -145,9 +158,9 @@ Partial Class frmDocSearchResult
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.bsiDocID, Me.bsiInfo})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.bsiDocID, Me.bsiInfo, Me.bbtnitmPreview, Me.bchlitmPreview, Me.BarCheckItem1})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 8
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -181,6 +194,26 @@ Partial Class frmDocSearchResult
        Me.bsiInfo.ItemAppearance.Normal.Options.UseFont = True
        Me.bsiInfo.Name = "bsiInfo"
        '
+        'bbtnitmPreview
+        '
+        Me.bbtnitmPreview.Caption = "BarButtonItem3"
+        Me.bbtnitmPreview.Id = 5
+        Me.bbtnitmPreview.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bbtnitmPreview.Name = "bbtnitmPreview"
+        '
+        'bchlitmPreview
+        '
+        Me.bchlitmPreview.Caption = "Vorschau anzeigen"
+        Me.bchlitmPreview.Id = 6
+        Me.bchlitmPreview.ImageOptions.SvgImage = CType(resources.GetObject("bchlitmPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.bchlitmPreview.Name = "bchlitmPreview"
+        '
+        'BarCheckItem1
+        '
+        Me.BarCheckItem1.Caption = "BarCheckItem1"
+        Me.BarCheckItem1.Id = 7
+        Me.BarCheckItem1.Name = "BarCheckItem1"
+        '
        'RibbonPage1
        '
        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -192,6 +225,7 @@ Partial Class frmDocSearchResult
        Me.RibbonPageGroup1.AllowTextClipping = False
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bchlitmPreview)
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Funktionen"
        '
@@ -199,23 +233,42 @@ Partial Class frmDocSearchResult
        '
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
-        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 621)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 623)
        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
-        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1083, 24)
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1083, 22)
        '
        'RibbonPage2
        '
        Me.RibbonPage2.Name = "RibbonPage2"
        Me.RibbonPage2.Text = "RibbonPage2"
        '
+        'SplitContainerControl1
+        '
+        Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl1.Name = "SplitContainerControl1"
+        '
+        'SplitContainerControl1.Panel1
+        '
+        Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlDocSearch)
+        Me.SplitContainerControl1.Panel1.Text = "Panel1"
+        '
+        'SplitContainerControl1.Panel2
+        '
+        Me.SplitContainerControl1.Panel2.Text = "Panel2"
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(1083, 465)
+        Me.SplitContainerControl1.SplitterPosition = 698
+        Me.SplitContainerControl1.TabIndex = 11
+        '
        'frmDocSearchResult
        '
        Me.Appearance.Options.UseFont = True
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1083, 645)
-        Me.Controls.Add(Me.GridControlDocSearch)
+        Me.Controls.Add(Me.SplitContainerControl1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -228,6 +281,11 @@ Partial Class frmDocSearchResult
        Me.ContextMenuStripResultFiles.ResumeLayout(False)
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -252,4 +310,8 @@ Partial Class frmDocSearchResult
    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem
    Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bbtnitmPreview As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bchlitmPreview As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
 End Class