WIP: cleanup, work on doc result form

2019-10-08 16:05:03 +02:00
parent 9a1b716e92
commit 7ddf409933
237 changed files with 857 additions and 547 deletions
--- a/Controls.DocumentViewer/frmViewerSettings.vb
+++ b/Controls.DocumentViewer/frmViewerSettings.vb
@@ -0,0 +1,113 @@
+Option Strict On
+Option Explicit On
+
+Imports GdPicture14
+
+Public Class frmViewerSettings
+
+    Private ReadOnly _owner As GdViewer
+
+    Private ReadOnly _mouseWheelModes As New Dictionary(Of ViewerMouseWheelMode, String) From {
+        {ViewerMouseWheelMode.MouseWheelModeZoom, "Zoom"},
+        {ViewerMouseWheelMode.MouseWheelModeVerticalScroll, "Scroll"},
+        {ViewerMouseWheelMode.MouseWheelModePageChange, "Page change"}
+    }
+    Private ReadOnly _documentAlignments As New Dictionary(Of ViewerDocumentAlignment, String) From {
+        {ViewerDocumentAlignment.DocumentAlignmentBottomCenter, "Bottom center"},
+        {ViewerDocumentAlignment.DocumentAlignmentBottomLeft, "Bottom left"},
+        {ViewerDocumentAlignment.DocumentAlignmentBottomRight, "Bottom right"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleCenter, "Middle center"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleLeft, "Middle left"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleRight, "Middle right"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopCenter, "Top center"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopLeft, "Top left"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopRight, "Top right"}
+    }
+    Private ReadOnly _documentPositions As New Dictionary(Of ViewerDocumentPosition, String) From {
+        {ViewerDocumentPosition.DocumentPositionBottomCenter, "Bottom center"},
+        {ViewerDocumentPosition.DocumentPositionBottomLeft, "Bottom left"},
+        {ViewerDocumentPosition.DocumentPositionBottomRight, "Bottom right"},
+        {ViewerDocumentPosition.DocumentPositionMiddleCenter, "Middle center"},
+        {ViewerDocumentPosition.DocumentPositionMiddleLeft, "Middle left"},
+        {ViewerDocumentPosition.DocumentPositionMiddleRight, "Middle right"},
+        {ViewerDocumentPosition.DocumentPositionTopCenter, "Top center"},
+        {ViewerDocumentPosition.DocumentPositionTopLeft, "Top left"},
+        {ViewerDocumentPosition.DocumentPositionTopRight, "Top right"}
+    }
+    Private ReadOnly _displayQualities As New Dictionary(Of DisplayQuality, String) From {
+        {DisplayQuality.DisplayQualityLow, "Low"},
+        {DisplayQuality.DisplayQualityBilinear, "Bilinear"},
+        {DisplayQuality.DisplayQualityBicubic, "Bicubic"},
+        {DisplayQuality.DisplayQualityBilinearHQ, "Bilinear HQ"},
+        {DisplayQuality.DisplayQualityBicubicHQ, "Bicubic HQ"},
+        {DisplayQuality.DisplayQualityAutomatic, "Automatic"}
+    }
+    Private ReadOnly _renderingEngines As New Dictionary(Of PdfRasterizerEngine, String) From {
+        {PdfRasterizerEngine.PdfRasterizerEngineGdiplus, "GDI+"},
+        {PdfRasterizerEngine.PdfRasterizerEngineWPF, "WPF"},
+        {PdfRasterizerEngine.PdfRasterizerEngineHybrid, "Hybrid"}
+    }
+    Private ReadOnly _displayPageModes As New Dictionary(Of PageDisplayMode, String) From {
+        {PageDisplayMode.MultiplePagesView, "Multiple pages"},
+        {PageDisplayMode.SinglePageView, "Single page"}
+    }
+
+    Public Sub New(ByVal owner As GdViewer)
+        InitializeComponent()
+        _owner = owner
+    End Sub
+
+    Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For Each item In _mouseWheelModes
+            cbMouseWheelMode.Items.Add(item.Value)
+        Next
+        For Each item In _documentAlignments
+            cbDocumentAlignment.Items.Add(item.Value)
+        Next
+        For Each item In _documentPositions
+            cbDocumentPosition.Items.Add(item.Value)
+        Next
+        For Each item In _displayQualities
+            cbDisplayQuality.Items.Add(item.Value)
+        Next
+        For Each item In _renderingEngines
+            cbPDFRenderingEngine.Items.Add(item.Value)
+        Next
+        For Each item In _displayPageModes
+            cbPageDisplayMode.Items.Add(item.Value)
+        Next
+
+        cbMouseWheelMode.SelectedIndex = CType(_owner.MouseWheelMode, Integer)
+        cbDocumentAlignment.SelectedItem = _documentAlignments(_owner.DocumentAlignment)
+        cbDocumentPosition.SelectedItem = _documentPositions(_owner.DocumentPosition)
+        cbDisplayQuality.SelectedItem = _displayQualities(_owner.DisplayQuality)
+        cbPageDisplayMode.SelectedItem = _displayPageModes(_owner.PageDisplayMode)
+        txtZoomStep.Text = CStr(_owner.ZoomStep)
+        chkContinuousViewMode.Checked = _owner.ContinuousViewMode
+        chkEnableMenu.Checked = _owner.EnableMenu
+        PictureBox1.BackColor = _owner.BackColor
+        chkIgnoreDocumentResolution.Checked = _owner.IgnoreDocumentResolution
+        chkEnableDeferredPainting.Checked = _owner.EnableDeferredPainting
+
+        chkAnnotationsDropShadow.Checked = _owner.AnnotationDropShadow
+        chkHQAnnotationsRendering.Checked = _owner.HQAnnotationRendering
+
+        chkEnableICM.Checked = _owner.EnableICM
+
+        chkPDFDisplayFormFields.Checked = _owner.PdfDisplayFormField
+        chkPDFEnableFileLinks.Checked = _owner.PdfEnableFileLinks
+        chkPDFEnableLinks.Checked = _owner.PdfEnableLinks
+        chkPDFIncreaseTextContrast.Checked = _owner.PdfIncreaseTextContrast
+        cbPDFRenderingEngine.SelectedItem = _renderingEngines(_owner.PdfRasterizerEngine)
+        chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+    End Sub
+
+    Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
+
+    End Sub
+
+End Class