Add DocView

2023-09-12 09:46:14 +02:00
parent e14b496773
commit 47c610d975
8 changed files with 180 additions and 17 deletions
--- a/app/DD-Record-Organizer/frmNodeNavigation.Designer.vb
+++ b/app/DD-Record-Organizer/frmNodeNavigation.Designer.vb
@@ -24,7 +24,7 @@ Partial Class frmNodeNavigation
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNodeNavigation))
-        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
        Me.ribbonNodeNavigation = New DevExpress.XtraBars.Ribbon.RibbonControl()
        Me.bbtnitmRecEdit = New DevExpress.XtraBars.BarButtonItem()
        Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
@@ -80,6 +80,10 @@ Partial Class frmNodeNavigation
        Me.tsmiFileDelete = New System.Windows.Forms.ToolStripMenuItem()
        Me.TimerFileHandle = New System.Windows.Forms.Timer(Me.components)
        Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
+        Me.SplitContainerDocView = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.DocumentViewer = New DigitalData.Controls.DocumentViewer.DocumentViewer()
+        Me.RibbonPageGroupView = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.checkShowPreview = New DevExpress.XtraBars.BarCheckItem()
        CType(Me.ribbonNodeNavigation, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.SplitContainerMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,14 +101,20 @@ Partial Class frmNodeNavigation
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.cmsResultFilesBasic.SuspendLayout()
        Me.cmsResultFileDetail.SuspendLayout()
+        CType(Me.SplitContainerDocView, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerDocView.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDocView.Panel1.SuspendLayout()
+        CType(Me.SplitContainerDocView.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerDocView.Panel2.SuspendLayout()
+        Me.SplitContainerDocView.SuspendLayout()
        Me.SuspendLayout()
        '
        'ribbonNodeNavigation
        '
        Me.ribbonNodeNavigation.ExpandCollapseItem.Id = 0
-        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand})
+        Me.ribbonNodeNavigation.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonNodeNavigation.ExpandCollapseItem, Me.ribbonNodeNavigation.SearchEditItem, Me.bbtnitmRecEdit, Me.bsiInfo, Me.bbtnitmRecSave, Me.bsiDocID, Me.bsitmRecordID, Me.bbtnitmDocResultExport, Me.bbtnitmDocResultLayoutSave, Me.bbtnitmDocResultLayoutReset, Me.bbtnitmDocResultRefresh, Me.BarStaticItemLocked, Me.bsitmtInfoDoc, Me.BarButtonItem1, Me.bbtnitmReloadView, Me.BbtnitmNodeReorder, Me.bbtnItm_TV_Collape_Expand, Me.checkShowPreview})
        Me.ribbonNodeNavigation.Location = New System.Drawing.Point(0, 0)
-        Me.ribbonNodeNavigation.MaxItemId = 18
+        Me.ribbonNodeNavigation.MaxItemId = 19
        Me.ribbonNodeNavigation.Name = "ribbonNodeNavigation"
        Me.ribbonNodeNavigation.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.ribbonNodeNavigation.PopupMenuAlignment = DevExpress.XtraBars.PopupMenuAlignment.Left
@@ -227,7 +237,7 @@ Partial Class frmNodeNavigation
        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupView, Me.RibbonPageGroupRecord, Me.RibbonPageGroupDocResult, Me.RibbonPageGroup1, Me.RPGNodes})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "Node Navigation"
        '
@@ -284,7 +294,7 @@ Partial Class frmNodeNavigation
        'SplitContainerMain
        '
        Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0)
        Me.SplitContainerMain.Name = "SplitContainerMain"
        '
        'SplitContainerMain.Panel1
@@ -296,8 +306,8 @@ Partial Class frmNodeNavigation
        '
        Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainer1)
        Me.SplitContainerMain.Panel2.Text = "Panel2"
-        Me.SplitContainerMain.Size = New System.Drawing.Size(1307, 664)
-        Me.SplitContainerMain.SplitterPosition = 451
+        Me.SplitContainerMain.Size = New System.Drawing.Size(969, 664)
+        Me.SplitContainerMain.SplitterPosition = 289
        Me.SplitContainerMain.TabIndex = 2
        '
        'TreeListDevexpress
@@ -332,7 +342,7 @@ Partial Class frmNodeNavigation
        Me.TreeListDevexpress.OptionsView.ShowTreeLines = DevExpress.Utils.DefaultBoolean.[False]
        Me.TreeListDevexpress.OptionsView.ShowVertLines = False
        Me.TreeListDevexpress.OptionsView.TreeLineStyle = DevExpress.XtraTreeList.LineStyle.Dark
-        Me.TreeListDevexpress.Size = New System.Drawing.Size(451, 664)
+        Me.TreeListDevexpress.Size = New System.Drawing.Size(289, 664)
        Me.TreeListDevexpress.StateImageList = Me.ImageCollection1
        Me.TreeListDevexpress.TabIndex = 1
        '
@@ -355,8 +365,8 @@ Partial Class frmNodeNavigation
        'SplitContainer1.Panel2
        '
        Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlDocSearch)
-        Me.SplitContainer1.Size = New System.Drawing.Size(846, 664)
-        Me.SplitContainer1.SplitterDistance = 215
+        Me.SplitContainer1.Size = New System.Drawing.Size(670, 664)
+        Me.SplitContainer1.SplitterDistance = 214
        Me.SplitContainer1.TabIndex = 0
        '
        'pnlControls
@@ -366,7 +376,7 @@ Partial Class frmNodeNavigation
        Me.pnlControls.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlControls.Location = New System.Drawing.Point(0, 0)
        Me.pnlControls.Name = "pnlControls"
-        Me.pnlControls.Size = New System.Drawing.Size(846, 215)
+        Me.pnlControls.Size = New System.Drawing.Size(670, 214)
        Me.pnlControls.TabIndex = 0
        '
        'GridControlDocSearch
@@ -374,12 +384,12 @@ Partial Class frmNodeNavigation
        Me.GridControlDocSearch.AllowDrop = True
        Me.GridControlDocSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        Me.GridControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill
-        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlDocSearch.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        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(846, 445)
+        Me.GridControlDocSearch.Size = New System.Drawing.Size(670, 446)
        Me.GridControlDocSearch.TabIndex = 8
        Me.GridControlDocSearch.TabStop = False
        Me.GridControlDocSearch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoc_Search})
@@ -562,12 +572,55 @@ Partial Class frmNodeNavigation
        '
        Me.TimerClearResultfiles.Interval = 3000
        '
+        'SplitContainerDocView
+        '
+        Me.SplitContainerDocView.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+        Me.SplitContainerDocView.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainerDocView.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerDocView.Name = "SplitContainerDocView"
+        '
+        'SplitContainerDocView.SplitContainerDocView_Panel1
+        '
+        Me.SplitContainerDocView.Panel1.Controls.Add(Me.SplitContainerMain)
+        Me.SplitContainerDocView.Panel1.Text = "Panel1"
+        '
+        'SplitContainerDocView.SplitContainerDocView_Panel2
+        '
+        Me.SplitContainerDocView.Panel2.Controls.Add(Me.DocumentViewer)
+        Me.SplitContainerDocView.Panel2.Text = "Panel2"
+        Me.SplitContainerDocView.Size = New System.Drawing.Size(1307, 664)
+        Me.SplitContainerDocView.SplitterPosition = 969
+        Me.SplitContainerDocView.TabIndex = 0
+        '
+        'DocumentViewer
+        '
+        Me.DocumentViewer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DocumentViewer.FileLoaded = False
+        Me.DocumentViewer.Location = New System.Drawing.Point(0, 0)
+        Me.DocumentViewer.Name = "DocumentViewer"
+        Me.DocumentViewer.Size = New System.Drawing.Size(328, 664)
+        Me.DocumentViewer.TabIndex = 0
+        '
+        'RibbonPageGroupView
+        '
+        Me.RibbonPageGroupView.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroupView.ItemLinks.Add(Me.checkShowPreview)
+        Me.RibbonPageGroupView.Name = "RibbonPageGroupView"
+        Me.RibbonPageGroupView.Text = "Ansicht"
+        '
+        'checkShowPreview
+        '
+        Me.checkShowPreview.Caption = "Vorschau anzeigen"
+        Me.checkShowPreview.Id = 18
+        Me.checkShowPreview.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.checkShowPreview.Name = "checkShowPreview"
+        '
        'frmNodeNavigation
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1307, 844)
-        Me.Controls.Add(Me.SplitContainerMain)
+        Me.Controls.Add(Me.SplitContainerDocView)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.ribbonNodeNavigation)
        Me.IconOptions.SvgImage = CType(resources.GetObject("frmNodeNavigation.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
@@ -592,6 +645,12 @@ Partial Class frmNodeNavigation
        CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
        Me.cmsResultFilesBasic.ResumeLayout(False)
        Me.cmsResultFileDetail.ResumeLayout(False)
+        CType(Me.SplitContainerDocView.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocView.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerDocView.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocView.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainerDocView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerDocView.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -652,4 +711,8 @@ Partial Class frmNodeNavigation
    Friend WithEvents BbtnitmNodeReorder As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RPGNodes As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents bbtnItm_TV_Collape_Expand As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents SplitContainerDocView As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents DocumentViewer As DigitalData.Controls.DocumentViewer.DocumentViewer
+    Friend WithEvents RibbonPageGroupView As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents checkShowPreview As DevExpress.XtraBars.BarCheckItem
 End Class