WIP: cleanup, work on doc result form

This commit is contained in:
Jonathan Jenne
2019-10-08 16:05:03 +02:00
parent 9a1b716e92
commit 7ddf409933
237 changed files with 857 additions and 547 deletions

View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
</configuration>

View File

@@ -0,0 +1,482 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DocumentViewer
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DocumentViewer))
Me.GdViewer = New GdPicture14.GdViewer()
Me.mainToolStrip = New System.Windows.Forms.ToolStrip()
Me.btnOpen = New System.Windows.Forms.ToolStripButton()
Me.btnPrint = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.btnFitWidth = New System.Windows.Forms.ToolStripButton()
Me.btnFitPage = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.btnMouseMode = New System.Windows.Forms.ToolStripDropDownButton()
Me.DefaultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PanToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaSelectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AreaZoomingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MagnifierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.btnPreviousPage = New System.Windows.Forms.ToolStripButton()
Me.tbCurrentPage = New System.Windows.Forms.ToolStripTextBox()
Me.lblPageCount = New System.Windows.Forms.ToolStripLabel()
Me.btnNextPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.btnZoomOut = New System.Windows.Forms.ToolStripButton()
Me.cbZoom = New System.Windows.Forms.ToolStripComboBox()
Me.btnZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.btnRotateLeft = New System.Windows.Forms.ToolStripButton()
Me.btnRotateRight = New System.Windows.Forms.ToolStripButton()
Me.btnFlipX = New System.Windows.Forms.ToolStripButton()
Me.btnFlipY = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.btnSettings = New System.Windows.Forms.ToolStripButton()
Me.statusbar = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.statusLabel = New System.Windows.Forms.ToolStripStatusLabel()
Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.mainToolStrip.SuspendLayout()
Me.statusbar.SuspendLayout()
Me.SuspendLayout()
'
'GdViewer
'
Me.GdViewer.AllowDropFile = False
Me.GdViewer.AnimateGIF = True
Me.GdViewer.AnnotationDropShadow = False
Me.GdViewer.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer))
Me.GdViewer.AnnotationResizeRotateHandlesScale = 1.0!
Me.GdViewer.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.GdViewer.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.GdViewer.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.GdViewer.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.GdViewer.BackgroundImage = Nothing
Me.GdViewer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GdViewer.ContinuousViewMode = True
Me.GdViewer.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic
Me.GdViewer.DisplayQualityAuto = True
Me.GdViewer.Dock = System.Windows.Forms.DockStyle.Fill
Me.GdViewer.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter
Me.GdViewer.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter
Me.GdViewer.DrawPageBorders = True
Me.GdViewer.EnableDeferredPainting = True
Me.GdViewer.EnabledProgressBar = True
Me.GdViewer.EnableICM = False
Me.GdViewer.EnableMenu = True
Me.GdViewer.EnableMouseWheel = True
Me.GdViewer.EnableTextSelection = True
Me.GdViewer.ForceScrollBars = False
Me.GdViewer.ForceTemporaryMode = False
Me.GdViewer.ForeColor = System.Drawing.Color.Black
Me.GdViewer.Gamma = 1.0!
Me.GdViewer.HQAnnotationRendering = True
Me.GdViewer.IgnoreDocumentResolution = False
Me.GdViewer.KeepDocumentPosition = False
Me.GdViewer.Location = New System.Drawing.Point(0, 31)
Me.GdViewer.LockViewer = False
Me.GdViewer.MagnifierHeight = 90
Me.GdViewer.MagnifierWidth = 160
Me.GdViewer.MagnifierZoomX = 2.0!
Me.GdViewer.MagnifierZoomY = 2.0!
Me.GdViewer.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft
Me.GdViewer.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan
Me.GdViewer.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeZoom
Me.GdViewer.Name = "GdViewer"
Me.GdViewer.PageBordersColor = System.Drawing.Color.Black
Me.GdViewer.PageBordersPenSize = 1
Me.GdViewer.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView
Me.GdViewer.PdfDisplayFormField = True
Me.GdViewer.PdfEnableFileLinks = True
Me.GdViewer.PdfEnableLinks = True
Me.GdViewer.PdfIncreaseTextContrast = False
Me.GdViewer.PdfRasterizerEngine = GdPicture14.PdfRasterizerEngine.PdfRasterizerEngineHybrid
Me.GdViewer.PdfShowDialogForPassword = True
Me.GdViewer.PdfShowOpenFileDialogForDecryption = True
Me.GdViewer.PdfVerifyDigitalCertificates = False
Me.GdViewer.RectBorderColor = System.Drawing.Color.Black
Me.GdViewer.RectBorderSize = 1
Me.GdViewer.RectIsEditable = True
Me.GdViewer.RegionsAreEditable = True
Me.GdViewer.RenderGdPictureAnnots = True
Me.GdViewer.ScrollBars = True
Me.GdViewer.ScrollLargeChange = CType(50, Short)
Me.GdViewer.ScrollSmallChange = CType(1, Short)
Me.GdViewer.SilentMode = True
Me.GdViewer.Size = New System.Drawing.Size(1015, 537)
Me.GdViewer.TabIndex = 0
Me.GdViewer.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone
Me.GdViewer.Zoom = 1.0R
Me.GdViewer.ZoomCenterAtMousePosition = False
Me.GdViewer.ZoomMode = GdPicture14.ViewerZoomMode.ZoomMode100
Me.GdViewer.ZoomStep = 25
'
'mainToolStrip
'
Me.mainToolStrip.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.mainToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.mainToolStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.mainToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnOpen, Me.btnPrint, Me.ToolStripSeparator3, Me.btnFitWidth, Me.btnFitPage, Me.ToolStripSeparator2, Me.btnMouseMode, Me.ToolStripSeparator6, Me.btnFirstPage, Me.btnPreviousPage, Me.tbCurrentPage, Me.lblPageCount, Me.btnNextPage, Me.btnLastPage, Me.ToolStripSeparator1, Me.btnZoomOut, Me.cbZoom, Me.btnZoomIn, Me.ToolStripSeparator5, Me.btnRotateLeft, Me.btnRotateRight, Me.btnFlipX, Me.btnFlipY, Me.ToolStripSeparator4, Me.btnSettings})
Me.mainToolStrip.Location = New System.Drawing.Point(0, 0)
Me.mainToolStrip.Name = "mainToolStrip"
Me.mainToolStrip.Size = New System.Drawing.Size(1015, 31)
Me.mainToolStrip.TabIndex = 6
Me.mainToolStrip.Text = "ToolStrip1"
'
'btnOpen
'
Me.btnOpen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnOpen.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
Me.btnOpen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnOpen.Margin = New System.Windows.Forms.Padding(10, 1, 0, 2)
Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(28, 28)
Me.btnOpen.Text = "Open document"
'
'btnPrint
'
Me.btnPrint.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrint.Image = CType(resources.GetObject("btnPrint.Image"), System.Drawing.Image)
Me.btnPrint.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnPrint.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Size = New System.Drawing.Size(28, 28)
Me.btnPrint.Text = "Print document"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 31)
'
'btnFitWidth
'
Me.btnFitWidth.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFitWidth.Image = CType(resources.GetObject("btnFitWidth.Image"), System.Drawing.Image)
Me.btnFitWidth.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFitWidth.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFitWidth.Name = "btnFitWidth"
Me.btnFitWidth.Size = New System.Drawing.Size(28, 28)
Me.btnFitWidth.Text = "Adjust to page width"
'
'btnFitPage
'
Me.btnFitPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFitPage.Image = CType(resources.GetObject("btnFitPage.Image"), System.Drawing.Image)
Me.btnFitPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFitPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFitPage.Name = "btnFitPage"
Me.btnFitPage.Size = New System.Drawing.Size(28, 28)
Me.btnFitPage.Text = "Adjust to whole page"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 31)
'
'btnMouseMode
'
Me.btnMouseMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnMouseMode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefaultToolStripMenuItem, Me.PanToolStripMenuItem, Me.AreaSelectionToolStripMenuItem, Me.AreaZoomingToolStripMenuItem, Me.MagnifierToolStripMenuItem})
Me.btnMouseMode.Image = CType(resources.GetObject("btnMouseMode.Image"), System.Drawing.Image)
Me.btnMouseMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnMouseMode.Name = "btnMouseMode"
Me.btnMouseMode.Size = New System.Drawing.Size(37, 28)
Me.btnMouseMode.Text = "Mouse mode"
'
'DefaultToolStripMenuItem
'
Me.DefaultToolStripMenuItem.CheckOnClick = True
Me.DefaultToolStripMenuItem.Name = "DefaultToolStripMenuItem"
Me.DefaultToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.DefaultToolStripMenuItem.Text = "Default"
'
'PanToolStripMenuItem
'
Me.PanToolStripMenuItem.Checked = True
Me.PanToolStripMenuItem.CheckOnClick = True
Me.PanToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.PanToolStripMenuItem.Name = "PanToolStripMenuItem"
Me.PanToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.PanToolStripMenuItem.Text = "Pan"
'
'AreaSelectionToolStripMenuItem
'
Me.AreaSelectionToolStripMenuItem.CheckOnClick = True
Me.AreaSelectionToolStripMenuItem.Name = "AreaSelectionToolStripMenuItem"
Me.AreaSelectionToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.AreaSelectionToolStripMenuItem.Text = "Area selection"
'
'AreaZoomingToolStripMenuItem
'
Me.AreaZoomingToolStripMenuItem.CheckOnClick = True
Me.AreaZoomingToolStripMenuItem.Name = "AreaZoomingToolStripMenuItem"
Me.AreaZoomingToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.AreaZoomingToolStripMenuItem.Text = "Area zooming"
'
'MagnifierToolStripMenuItem
'
Me.MagnifierToolStripMenuItem.CheckOnClick = True
Me.MagnifierToolStripMenuItem.Name = "MagnifierToolStripMenuItem"
Me.MagnifierToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.MagnifierToolStripMenuItem.Text = "Magnifier"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Margin = New System.Windows.Forms.Padding(5, 0, 10, 0)
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 31)
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(28, 28)
Me.btnFirstPage.Text = "Go to first page"
'
'btnPreviousPage
'
Me.btnPreviousPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPreviousPage.Image = CType(resources.GetObject("btnPreviousPage.Image"), System.Drawing.Image)
Me.btnPreviousPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnPreviousPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPreviousPage.Name = "btnPreviousPage"
Me.btnPreviousPage.Size = New System.Drawing.Size(28, 28)
Me.btnPreviousPage.Text = "Go to previous page"
'
'tbCurrentPage
'
Me.tbCurrentPage.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbCurrentPage.Name = "tbCurrentPage"
Me.tbCurrentPage.Size = New System.Drawing.Size(40, 31)
Me.tbCurrentPage.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblPageCount
'
Me.lblPageCount.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPageCount.Name = "lblPageCount"
Me.lblPageCount.Size = New System.Drawing.Size(25, 28)
Me.lblPageCount.Text = "/ X"
'
'btnNextPage
'
Me.btnNextPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNextPage.Image = CType(resources.GetObject("btnNextPage.Image"), System.Drawing.Image)
Me.btnNextPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnNextPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNextPage.Name = "btnNextPage"
Me.btnNextPage.Size = New System.Drawing.Size(28, 28)
Me.btnNextPage.Text = "Go to next page"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(28, 28)
Me.btnLastPage.Text = "Go to last page"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
'
'btnZoomOut
'
Me.btnZoomOut.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnZoomOut.Image = CType(resources.GetObject("btnZoomOut.Image"), System.Drawing.Image)
Me.btnZoomOut.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnZoomOut.Name = "btnZoomOut"
Me.btnZoomOut.Size = New System.Drawing.Size(28, 28)
Me.btnZoomOut.Text = "Zoom out"
'
'cbZoom
'
Me.cbZoom.DropDownWidth = 200
Me.cbZoom.Name = "cbZoom"
Me.cbZoom.Size = New System.Drawing.Size(75, 31)
'
'btnZoomIn
'
Me.btnZoomIn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnZoomIn.Image = CType(resources.GetObject("btnZoomIn.Image"), System.Drawing.Image)
Me.btnZoomIn.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnZoomIn.Name = "btnZoomIn"
Me.btnZoomIn.Size = New System.Drawing.Size(28, 28)
Me.btnZoomIn.Text = "Zoom In"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 31)
'
'btnRotateLeft
'
Me.btnRotateLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnRotateLeft.Image = CType(resources.GetObject("btnRotateLeft.Image"), System.Drawing.Image)
Me.btnRotateLeft.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnRotateLeft.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnRotateLeft.Name = "btnRotateLeft"
Me.btnRotateLeft.Size = New System.Drawing.Size(28, 28)
Me.btnRotateLeft.Text = "Rotate left"
'
'btnRotateRight
'
Me.btnRotateRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnRotateRight.Image = CType(resources.GetObject("btnRotateRight.Image"), System.Drawing.Image)
Me.btnRotateRight.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnRotateRight.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnRotateRight.Name = "btnRotateRight"
Me.btnRotateRight.Size = New System.Drawing.Size(28, 28)
Me.btnRotateRight.Text = "Rotate right"
'
'btnFlipX
'
Me.btnFlipX.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFlipX.Image = CType(resources.GetObject("btnFlipX.Image"), System.Drawing.Image)
Me.btnFlipX.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFlipX.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFlipX.Name = "btnFlipX"
Me.btnFlipX.Size = New System.Drawing.Size(28, 28)
Me.btnFlipX.Text = "Vertical flip"
'
'btnFlipY
'
Me.btnFlipY.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFlipY.Image = CType(resources.GetObject("btnFlipY.Image"), System.Drawing.Image)
Me.btnFlipY.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnFlipY.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFlipY.Name = "btnFlipY"
Me.btnFlipY.Size = New System.Drawing.Size(28, 28)
Me.btnFlipY.Text = "Horizontal flip"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Margin = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 31)
'
'btnSettings
'
Me.btnSettings.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSettings.Image = CType(resources.GetObject("btnSettings.Image"), System.Drawing.Image)
Me.btnSettings.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.btnSettings.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSettings.Name = "btnSettings"
Me.btnSettings.Size = New System.Drawing.Size(28, 28)
Me.btnSettings.Text = "Viewer settings"
'
'statusbar
'
Me.statusbar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.statusLabel})
Me.statusbar.Location = New System.Drawing.Point(0, 568)
Me.statusbar.Name = "statusbar"
Me.statusbar.Size = New System.Drawing.Size(1015, 22)
Me.statusbar.SizingGrip = False
Me.statusbar.TabIndex = 7
Me.statusbar.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
'
'statusLabel
'
Me.statusLabel.Name = "statusLabel"
Me.statusLabel.Size = New System.Drawing.Size(0, 17)
'
'OpenFileDialog
'
Me.OpenFileDialog.FileName = "OpenFileDialog1"
'
'DocumentViewer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GdViewer)
Me.Controls.Add(Me.statusbar)
Me.Controls.Add(Me.mainToolStrip)
Me.Name = "DocumentViewer"
Me.Size = New System.Drawing.Size(1015, 590)
Me.mainToolStrip.ResumeLayout(False)
Me.mainToolStrip.PerformLayout()
Me.statusbar.ResumeLayout(False)
Me.statusbar.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GdViewer As GdPicture14.GdViewer
Friend WithEvents mainToolStrip As ToolStrip
Friend WithEvents btnOpen As ToolStripButton
Friend WithEvents btnPrint As ToolStripButton
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents btnFitWidth As ToolStripButton
Friend WithEvents btnFitPage As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents btnMouseMode As ToolStripDropDownButton
Friend WithEvents DefaultToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PanToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AreaSelectionToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AreaZoomingToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MagnifierToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents btnFirstPage As ToolStripButton
Friend WithEvents btnPreviousPage As ToolStripButton
Friend WithEvents tbCurrentPage As ToolStripTextBox
Friend WithEvents lblPageCount As ToolStripLabel
Friend WithEvents btnNextPage As ToolStripButton
Friend WithEvents btnLastPage As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents btnZoomOut As ToolStripButton
Friend WithEvents cbZoom As ToolStripComboBox
Friend WithEvents btnZoomIn As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents btnRotateLeft As ToolStripButton
Friend WithEvents btnRotateRight As ToolStripButton
Friend WithEvents btnFlipX As ToolStripButton
Friend WithEvents btnFlipY As ToolStripButton
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents btnSettings As ToolStripButton
Friend WithEvents statusbar As StatusStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
Friend WithEvents statusLabel As ToolStripStatusLabel
Friend WithEvents OpenFileDialog As OpenFileDialog
End Class

View File

@@ -0,0 +1,349 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="mainToolStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTdSxRRFN/Syh6EqP6C/oDoIQhfMqKPdWd1
JVqqhwhrZ6p9KDX3o7RuMTNbwhr0UvgQPoQP7s6saXqHIvIl6K1gW8iHyr4WdzYQCjTdr+me68w0Xlwx
NOjAj3vOuXN/v3POnRnXf20IoY1NqnjQq4idnCJfaVLlw/5EosbcXpt5U7EGTpUnCYwlSMrvPYq433zM
5YpGo4ORSKRiwiCxYcXgmxg0H6cG5EdUNOcbvmM0p2I2+ckndxf9R2ieS4oH6MNOwmoCZp6KwFgIySSQ
A9nLb+8MX+q2LWIjKU41TqBaKrBKgGAcZg4ELYQUyMFe5z4YrabgQqloi3hUiVvSQRXf6gAQh8u0CFgR
yFUqlT8CityzGgHbBwGPIoUsAoBTpFQu09Vr70vX/2ZEAMwp0lE47B+J2yKAueICJQezLt6ryK1MB6H7
vaFQfV9fx9ahZTCAUJ3Q378JLtAini3MG4VyyUaRAC69KSll3fjeFqfAT/KG1GYSwT1p3FLOa4KRHuAr
AMuHNYcDvZwiHuJUVLBEWOxVUQkuWB/nbzpGFHkGr+GnUf4SEFXDW81X1jXhGIwKqmTJ3UmU8ypScx6f
93zVAj/sDq5Fw7dAIDsuDDmrZjuANYP5EqlObE3FdhDS4+TiZQD5ZZyAXB4LKDvaUpgeCzy1O0DdXe5E
wl+j47bPVrVrhY6FKBUIBoMLcdS5M61c3MVW7fSdOTZezp8e4/eZHUQyhuHa8HH4wumVDjhzbMz6Odw2
MzVxps4UCD+k8x/jH8Dm+oDMHwwEbnSHefB1fC5drSI2x8asn9MCPZZARUZdu98MXN6W0YRStQNsjo1Z
P4/5RirQ3t4+Qz6wzZOq4KYb64JTs98fn62nAuQbeA7rlxFBgs1qFbE5Nmb8V5QcrPtqRII1Ox54scIB
6jtzbOz0dcz3UXIwhDq2w6rjRYE1Y1j4ldOEBkr+783l+g2Z7twS24tpVgAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnPrint.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFfSURBVEhLvVUxTsQwEAwgGv4Ev0ifKg+IFCUN8i9OIBSo
+ECuoEA8hDJKkf4ESnHBZsfn5RwHK747wkgjz652d7x3iRL5UBSFJCqcZVmOTiZipmkLgxDinAaoUBxs
kKbp5bIGQlwtvMG93kBKqQfYJ5Nj4CCDm3KtTqEZswe5vyVJ8oWnYhgGdV3UxAeJYpy2tnNuDA12Xaef
Lpq5zfP8GQY/j95fGpiZgzZgwoALjyX/J8ylN5Ajg77vlVi9UEOti3dme23n3BgavW3b+g3qulZN00jc
AqvitLWdc2No9FZVNTVYkqMN5rSdc2Of/p8NtDCA9t3IzrmxT2OgTtjkolC4Q1njbcaHZU2JiQkYit96
iQPxzvwwU6CI8fT6rh4dIsfAbfGRMq1hsA3mcLLB3AaojeP4wrSGwd3AfXM5Bo7dYGP6Z5Fl2Se1nO06
A0G3Io9yg01m+EG8NW0OougbGXHgW8q3sOgAAAAASUVORK5CYII=
</value>
</data>
<data name="btnFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADqSURBVEhLzZYxCoMwFIY9T+9Q8BiC3iAudmj3Utw8jD2A
Im7duvUEnTt2iHnllwaMRnmxSv3ghwwv73uPLPF2x1zuT1daI+jt4fB8vVcJehuC8yWlKIooCAJWUJsk
B7rdH0ZjnYEgDENyAYKqqkgIYZUMBJjKBdQ3TUN1XVsliwlAWZYk4tiQTAqyLBuNpisARVG0m7AEHFDf
D96FJbBNrqNRShmRUvIFHH4S2CafCsB7oAdLMAcngW3KqYBtbTAXJ4Hv+9/TOP0atgAXuYJuHUugL7kG
bGMDDVfQxUkwh/8Klk4rWPfbkssPTk9lK76uM3AAAAAASUVORK5CYII=
</value>
</data>
<data name="btnFitPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABjSURBVEhLY9Aq2/jHtnzTf1pgkNkMIMazDz9ogkFm09+C
8vLy/8XFxWRjZLOwWgBSRC4YfBb09PQQhWFg1AcEwagPcGIYGPUBQTACfUAqGDwWUIKRzcJqATUxfSyg
bbNl4x8AxmOG+ql7uj8AAAAASUVORK5CYII=
</value>
</data>
<data name="btnMouseMode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHASURBVEhLnZPPKwRhHMa3/Dq5+AcclYuDC5oZcfIHcFO4
uEgidkYODsRFSa6KI0th3k1+HLhQpOXgrHDkRhTxep/x3Zq8z5pZn/r0Nu/3fZ7Znd3JlKKnJ1fh+Ple
N1Chl1X3DQOrH16g9FzuSmONrs0+5jiH8xJNpmV0v87JqjMU/Xbr9NbagziPnFT8jflUe6yke/5Iz24U
opXNkZOK0niTymVh+Pz2rgFWNo80eanieH64TIPGOGweafJSxXEm1AUNGuOwOUReqjjOmHpiQRiHzSHy
UsXxBtQnC8I4bB5p8lJl0z59XElDxs6pvL6+fdIv5gfGimt2DkqdTfPgZRULxM2untP9ou1GqbMp3uCg
8PAv8xd30U2kzoZ9AzyKvsUT7a+d65n1gp7fvIpWXGOfPSqps0nziNIodTaN07lqFihXqbPpGt6rYYFy
lTqbn7/pyhcLpXflS+o4f73JaUx8k51AHbJgWpGXKo7rh0MsmFbkpYrTNrFT2xqoRxZOEjnkpao0rr/b
zwqSRE4qknF9tcRKSonzEk2PG4TjTSPbb6ywKOY4J5Hy6ZjK1ztBuGDKboyvMW+wj7kcJWQy34QJuKYJ
Zco/AAAAAElFTkSuQmCC
</value>
</data>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVRLS8NAEF7UnkVRPHr32oNCsgmIJ28iQVHE
W8++mt0iEgQt+hM8eRfFZreI4ME/IAqK+h8En1efmXaiyzapSWn0gyGTeXzfzpAsyQKjJX8A3fYCiCkT
29Q9eMYQIRaXn6oNzu++Yiox7CXRR7nYMrh4CnkwRQhlmx9gEIRnGgGzdNRvMlEOel90HixpTQCIKZMb
w0w8qr2qj6XpVmTyag8QWwv7D3qfbtiSbIKRxeNe6vrrBqvvWK2P87G1uUDtxFyuUebf63WJBSCgWihg
cbFqLVfu9HxSq5EDGk4xLt5hxw1x7V2NR/lIHyHQxFfff6tH+j8QgEAWhvT/MMEQl2/BnXKpx9Ma0kf/
B2PspNtgcsIoinOLl79Pr9aFzzgf6aMFMEUcZ68zuH4ngx/tQq9LLAAB1aKuCts77bJ51UmzOmxtPkED
PK8juPenjBUQ+lld2Kv62JFSAAETma6cNt3Kldqr+liabEVxyBfOcpYrZgzu3+g8WNLaBDpqH0NRzlJX
XIerw1R7kS/s5Gwu5szi4S2GsgGsru4R8gWEZC4psffHngAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnPreviousPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHLSURBVEhLY6AZqK9ngrKoC4zTzrDalG0OsS3bdAIqRB1g
X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLW/9BzIYRIMwVAl5wKlqszTQxZ02RZveIBtK
sQU2FVvV7Mo2T7esWPsFFhS4MFQLMeA/o1XpBhOb8k0rtSo2/0F3KS42VDMeAExq9hVbXGzLN+yx9dr0
F9kAiiwIDV3FbFuxKdymdPMpO+/Nf0GayMFQ4xDAtXgnNzD9ptuVbryJzUXIfGRxXGyosQwMFoU7hIAp
ohSIn+LTgMzHpQaZDTbctnxjg23BmnfEaEDmE6MebIFdxZY064rN9+0q2sCS1MRgC0DAI3cbu33Fplib
sg2X8bkImY9LDTIbajwCAMsTFpvKTQHAjHQEpJBSDDUWO7Ar3eBoXb5xh3z8/N8wFyG7EEbjY0ONwg/s
yjcY2pRtXGGbteknsgFUswAGgEWFum355qn6+eu/gwwhBkO1kgZsq7ZLgkpRu4qNb7G5GpkN1UIesKnY
ImhbtrESVA/QxAIYABUvoLxkV7LhLshwZAxVQh0ASuK2pZujgbXbWar6AAMAi3ig672sSzcdhIrQCvxn
ZGBgYAAAx7aKXPsltNoAAAAASUVORK5CYII=
</value>
</data>
<data name="btnNextPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhLYwCD+nomCINGwLZs0wmbss0hxmlnWKFC1AV2
FZv/Q/EN2/JNKfb1+zmgUtQBtuWt/0AYZAmItijd9MyufHO5ff56AagSygC6BTC2TdGmN0AfdTpVbZaG
KiUPQIMHJ7asWPvFrmzzdJuKrWpQLaQBXD5AZ2tVbP5jU75ppVXpBhMGhv+MUO2EAT5DkdlwMa9Nf23L
N+yxr9jiQlQSB2kkC3tv/mtTuvmUbcWm8NDQVcxQ4zABuktxsZHF0Pl2pRtvAvNTumvxTm6osQiAVQOp
FsDZm54CcalF4Q4hqPHUtgDKLljzzrZ8YwPYApAAdXHbP+uKzfftKrakgS3A6Qo0NrIYOh/GtinbcNm+
YlOsR+42drDhIACSpBiXbT5iU7kpAFiOsUCNRQB8LkJmI4uBsHz8/N/W5Rt32JVucIQahR3ANBBtQdam
nzZlG1fYlW8whBqBH4A0EoP189d/ty3fPBVYVKhDtRIH0F2Kyd74FlSq2lZtl4RqIQ1gN3Tzf1C9YFu2
sdKmYosgVCl5AGQYCi7ZcBeUhrFme3IA3NXlm8/alm6OxprUKAHWpZsOAl3uRcPWBQmVB0mAgQEApL+K
XHJ8GzIAAAAASUVORK5CYII=
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFxSURBVEhLY4ABp8qN4lAmbYBt2dqPtuWbOmlmkV3F5v8g
bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EF56z+QAIiGsj/ZlG9qs6ncJgpVQhCALEA3ByqF1QIw
27x803vb8s0txFiE1wKQIF5csOYd2KKKLYJQLRiA1CDCYINo63JgHJVtbLQo3CEE1QoHZAURMhtZzLZ8
41vbis21yD6iLIhw4eINr+wqNlWDzKBKEMHE0PngOPLa9BddHGo8FSzAwYYaTwcLQIK0wFDjh4APgGXY
Ja2KzX/QxaHGk+uDtn/WpZvOWZdvDnQp381P7Yx2Hli8B4eGrmKGGkGdjAYKCvuKLaH29ftZoFrhgIKM
BgyKkk2XgPVEOEN9PRNUCwYgK4hsyjZctinbHIHNxeiApCCyrth4za5sU5Rx2hlWqBKCgIggavtnW7bp
qm3p5mjkyCMW4PWBTen66/YVm2KN02YS7WKSAClBQTxgYAAAJSouKVFt3MsAAAAASUVORK5CYII=
</value>
</data>
<data name="btnZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMHSURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/S
kOnUObWJc6Dl9lmDwLAwKbFQK60M6qIfhCPKkiAQzGisiZlON8sSKzWpZes7Pe++93yeb1PUpAde3/Pj
Oc/zvke/47ql4HQ69xQWFnoKCgoeIQ8VFRVNYjyMeIx5jd1u38/U1cFms2VA4Ep2dnYcojqFw+EQauaY
R9yE0S4+ujwgfAgiYyS00sjLy/uMfJgllgZaP4hqZmSFdJjznKadGT13sSlWV9fwkeapHOoWxR1hqXTk
5+dvA3FEHqAoLS2det7T82l0bEwXCsbHP+iht2Hhcrl+qnzEJEx2s6QVIDYQWYbH4xkfHBxMkODExITF
QM6j0aje3Nz8Rz2HuM2SCygrK8uAe7JtIpWUlEyHw+EECS0XsVhM1zTNvK7c3NzfxcXFB1jaADbs3GKS
dK8rMEmHk+UC6pgg5zK/G3pvdkAauCaNpQ1goV0S4P5r9vucRXQ5Ax0/a0+dNk2g95SlDWDxpeygoqJ6
ig5mVj0QmVUPEZTVsbpmzInfdv2G2QEixtIG4PhGGuA+p6iqdLGlDQidd++rBt9Y2gA2XkiD6hMnZ/+l
g9Zr7aYBvqcoSxvARgttUuD9SUzPzFruXR0T5FxmHb8Er09Lnud4wtIGsHBUdkCErkBgVQbhgQFTnDRw
5TUsbQALW7D5RZLKy8sTwWBwRQbxeFz4/X7TADGPW9jH0guAs092QNnr9eqhUGjRj0tGJBLRGxsbzco5
d7CkFehiE/01STKF2+0W3d3PxPBIxNJBFF9v36t+4fP5THFpgF9wL16C7SxrBTb3gkSvpdqyOO5yibqz
9eLS5RZRf/6CcFdW0gdp4aiBQvvo8WRZK8iEOpEVqdXJkGuLceQYOv30j4tlrcjJydkMUi0IX1MPqyKo
8gdyE8TupO7x+DU4O1g2HXjvt4J4DMQ2ZHpOQsi96LATYyeEdxIvKytrI9ZvkegiEUyKrRUwWQ/TDkTa
dTFl7cA7tgHdXf1vBgQ2aV24Iof4C99AKagYLe9bAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMJSURBVEhLtZXLa1NREMYFxYUuFKWIILpQBLfi2oD+Dd3Y
SGiatHkQE0JsI6nGlQEV20XTotQHVq2gGxWxSBsXYqVQK0ptwaqggmBKkzRtk/SmzfGbnDnem5vEV/GD
4Zx7zsxvZu7j3HX15PF49rS2tp50Op2PMc60tbUlMf8Ie4rrTofDsZ9d/07Nzc0NAFxpamoqAFoic7lc
wjiyabDbSLSLQ38vgA8B8plAf2p2u/07xiOMqC+0fhDVzKsKKZjGE36/FovF0v03bolz3T1zfr8/b/ah
blHcUUZVq6WlZRscP6kAsmAwmHsx+lIUlpeFUSsrq2Ly3ZTo6OhIG/1hSSTZzchKwbGbnJVFo1Etk8kw
UojD4Uc/TUnTNBGPx3PGONhdRury+XwNyL5IVZBTIBAopFIpxkhJ+ENhOaUnIBWLRREOh+dUrM1mK7rd
7gOMlsKGg1ssOw2PJDhcV70EpPczH4TFYlmlWGLgNkUZLYWFm7RJ5vV6V7ILixyqq9YtUiqVhGhvb59X
DPBGGC2FxVHVAR7sEgVRtarqyrlxTV6Tevv6kgRnzldGSyHjG5XgwsVL5YBq2K8TDN5/UK6eOWlGS2Hj
uUoQ6Tyd+5cEPYYO8D19YbQUNvppk4weVmY+Ww4ySoKlmVXCQwiFQguKARtmtBQWjqkOyOHJ0BCH6lKV
13qLpqanzW9RJ6OlsLAFm3PkQIZTdDmZTHK4VL0OCoWCiEQiGRUL0xC/j9G6kPmM6oBG+mBmZ2cZU7uD
fD4vurq6zOfSACMrhS420dukEpBRJ4nEM7GUyzNSSsPXO/5qgs6irNGf5njAY/iWtjO2UtjcC6dv5Gg0
6gZnUzZ+uR9n1PmMH0cJ1svAWoZCx+nwZGylKAl1oioyVmdeM18b5+BM0I+LsZWyWq2b4XQWDilzsBGC
KnMYewG7Z97j+Wv47GBstfBj2QrH43C8hpGOk0mMY+hwEHMPwDvJr7GxcSPW7xC0hr0tw9YqJFmPpAOw
qtvFLmsXXoQN6O76f0tA4iRX9VvkEj8A7rUQUD17WhUAAAAASUVORK5CYII=
</value>
</data>
<data name="btnRotateLeft.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGWSURBVEhLYxgFQxcIRS76r5K64j+D/2wvqBB5oNt1JzeU
CQcgw00K1/8XCF9QBRUiHzTZL7wLZYIBzHDl5BXboELkgxanpWZNjov/Q7kMglFLwIbDMCiIQFg5duEH
lZTlPlBlxIN628VPkC0AAZgPTArXrTbMX5uukLJsHohvlL/2P5DdDlVGGABdHwoyHN0CEIBZopC0RB4q
xGCUs/YJyBLl1OVWUCH8oN5x9jdcFoCAMjBoQJYIhC3SBwt4TGQH+6Rw/SkwHx9ocViSBzMclwVwkDaT
FcpiUExZtg9kCZSLGyAb3uRAwAIkIBK22AjkMygXOwAa2I3Lgq6ursNQJnlgVegqZhTD0Szo6en639PT
A8LhUCHSQIPj4uVEWvC/u7v7ZH19PRtUijDosl8lgWE4HguQcDZUGj9otF90kEwLQPgOEItAlWGCFvsl
BlgNB2HiLABjYLA1QJWiAmCRcAer4SBMggVQ/LK3t1cFqoWBodl+oQtWg2GYdAtgeDJYU5P94odYDYZh
8i0A4d9QrUMWMDAAAILEw1YcpEAAAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnRotateRight.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGVSURBVEhLYxgFgxz4z/ZSSV3xXyhy0X+oCPWBQPiCKpPC
9Vgt6XbdyQ1lUgaUk1dsw2ZJk/3Cu1AmaUAlZbmPcuzCD6DgAWGQ4TAsGLUEbkmT4+L/LU5LzaBc4oBC
yrJ2o/y1YMOA7HmG+WvTTQrXrcbqA6AF9baLn0C5hIFy6nIrkOFGOWvhmhSSlshjMxwEQBZAfREKFcIP
jArXnwIZxuAxkR3EFwhbpA/iKwODCawADcAsqHec/Q0qhB+ADFNMWbYPymVgSJvJCmVhBTALwL5wWJIH
FcYNQC4VCVtsBOUSBE0OCAtAGCpMGejq6joMZWJYAOR3Q6VIBz09PeFA/L+npwuRTNEtAOJVoauYodLE
gfr6erbu7u6TEMMJW9DguHg5VJowABqYjTCYOAtAuMt+lQRUCXYANEgEiO+gGky8BY32iw5ClWACYHA0
YDcYhglbAMIt9ksMoMogoLe3VwVowEtMA9ExcRYAi5A7UGXgIJmMaRAuTJwFINxsv9AFZPhvTEPwYeIt
aLJf/BCqdMgCBgYAkcvDVut4kSMAAAAASUVORK5CYII=
</value>
</data>
<data name="btnFlipX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE0SURBVEhL7ZS7SsRAFIYHrH0sBUEwF/CCL2DlC1gErLZI
dqpcilQWCpnVwmdSLLTRxs7xzPBHx+HsJJvY6QcfJHMO/5+FbMQ/v0JVVRqXlkWsXnE5n7quT/2CIlE6
j293cDsPKeU7V7CI1ANup9M0zZkJ5wqMy1Tt4mgaWZZ9hArIRxxtDoWe9+GBAi3Tuz0cb4YbHiooDtQT
jsdDb87F6AIyj9Q+RuPww4cKyGeMhqGnv5xQoGWyijAOw4UbMbZwBXly84Lxeiio8IN7sWLhCoz0vzjE
Cg8X3IsVCxduDH6jKKT0Q12xZuHCv4y7Y6x903XdFhfqilULGwzZX1GW5RUX6opVCxfsKlN1glUh2rbd
5gJ9sW7hQn96/YZV+97npB4S65ZlstJDlkf38760fwUhPgGKJwQTUizyuQAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnFlipY.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEISURBVEhL7ZK9isJAFIUDW/tYCoJgMgF18QWsfAGLgJVF
xqkmSZHKYoWMWvhMioU2a2NnvEIu6HDJjxmtPHAgE3K+r5hYJhPHcSMMQz87mkuSJD9SykUQBCkI0uy1
mQBU3sFYYwKA8UcwtrYAAFMKjH1ZAMMJBdRbWQCjsQ7Ja2lBFEUjz/OuFCSvhQL4YCiEuFDjMs0VUIOq
rXwH3zxl5qh/zlRap3O2yr8D31k3Z7baUeMyLRRg5q5qwWCvA4paWoAR7qbNu+pAwahWFmB8W3UAcNSB
el8WYARb2T5bnij4vbUFGLijHvXXGRNguJMMHkXGBRjhql/O/s5vE2Bkf9vKHj8Ry7oBzv0EE7Wccj4A
AAAASUVORK5CYII=
</value>
</data>
<data name="btnSettings.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALDSURBVEhLpVY9aBRBFD5ECxstFLUSsTjlhPzc5rAJplFs
LARt/MHrLsrd7s7MHmohHFpoJYIRRCwkaIRINrsX0VZsTGNhooVFII3Y2KiQCDFmfd/cm8u4dxePyweP
ee+b9773ZmYPLmOQ96dOsqtRkFFwsPjkN/FXmOodjjf1zBFh4qh4EvGADPsLKk7A5US4qpM2g8Hy858Q
bGdDMn7Mab3jqFffi2khiDXvhp+avgjHOG1zMA0G3Mmcjq+92AmuwUfuSO3NVp3YCxxvZj/EcypeZkqD
3uQDeGNDIj7OW93DkdHo+qRxkvemT4EviPqRBh8lQ6pOVxUlg0F8DHuB5xWEEIlSKqH1JriOoCkX7QZY
s2JiqeFHScEPX42op+PDYuL2iHq0GzXS90etBi+1UCc4qn5CH19Nj9O3/wB+I6b3UPE8cq6qyqqU8q0u
IJBwDHFYpVL5xjT4c+Aot5+pVuA3gFOgQUFMvVaisqSUTKSeWK5ixfTFYvEPxODzaWYtP/F9/xBLtgI/
LjRw/Gj2srheDKiBLUgTrpkYK3Frlo8GX1iqPfrUdLYvCPdwmCHBOTOZETExVqv5GuJyubyLS7sDrggC
KRsjsbu0rqT4hMs2hpTeRRK4RzaHImvKlVqttoXTNDzP+25ycALy39EbCOKHOaUVKOhgLd89ceVUTtM4
pRXYxDQ8kX2CKqc0QdNeMjlWnjZOaQU97BkqvEPHnLcb0AN+5ZQmSOizyYEoroxshupvcEpn4L5RbBuJ
LARBcJb80zTIx/Q+7TW/wK5Ak/zCZCg2U5oYa+pafnBZd6CCuhE2qzE7Nj6a0KlucfnGcF13BwotW07F
HY2abGeZjUHJWRTQNT1EXK1W99GUC5gUPK2LtHcAe+S/Z/6fPxD/RalU2sauBongB6gbkPh9pjWIO8xu
76Djn4c42wWm2yCT+QvRc2XmxX0IkAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="statusbar.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>128, 20</value>
</metadata>
<metadata name="OpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>233, 25</value>
</metadata>
</root>

View File

@@ -0,0 +1,455 @@
Imports System.ComponentModel
Imports System.Globalization
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging
Imports GdPicture14
Public Class DocumentViewer
Private Enum ZoomMode
Zoom50
Zoom100
Zoom150
Zoom200
ZoomSelectedArea
ZoomFitToViewer
ZoomFitWidth
ZoomFitHeight
End Enum
Private _docPath As String
Private _currentSearchOccurence As Integer = 0
Private _toggleGamma As Boolean = True
Private _licenseKey As String = String.Empty
Private _licenseManager As New GdPicture14.LicenseManager()
Private _logConfig As LogConfig
Private _logger As Logger
Private Sub DocumentViewer_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
{ZoomMode.Zoom50, "50%"},
{ZoomMode.Zoom100, "100%"},
{ZoomMode.Zoom150, "150%"},
{ZoomMode.Zoom200, "200%"},
{ZoomMode.ZoomSelectedArea, "Zoom to selected area"},
{ZoomMode.ZoomFitToViewer, "Fit to viewer"},
{ZoomMode.ZoomFitWidth, "Fit to viewer width"},
{ZoomMode.ZoomFitHeight, "Fit to viewer height"}
}
For Each item In zoomModes
cbZoom.Items.Add(item.Value)
Next
UpdateMainUi()
End Sub
Public Sub Init(LogConfig As LogConfig, LicenseKey As String)
_logConfig = LogConfig
_logger = LogConfig.GetLogger()
_licenseKey = LicenseKey
_licenseManager.RegisterKEY(_licenseKey)
End Sub
Public Sub LoadFile(filepath As String)
If _licenseKey = String.Empty Then
_logger.Warn("License key was not provided. File {0} not loaded.", filepath)
Exit Sub
End If
CloseDocument()
_docPath = filepath
statusLabel.Text = _docPath
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
GdViewer.DisplayFromFile(filepath)
GdViewer.Focus()
UpdateMainUi()
End Sub
Private Sub CloseDocument()
GdViewer.CloseDocument()
UpdateMainUi()
End Sub
Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click
CloseDocument()
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
GdViewer.DisplayFromFile(OpenFileDialog.FileName)
End If
GdViewer.Focus()
UpdateMainUi()
End Sub
Private Function GetDocumentTypeLabel() As String
Dim result As String = ""
Select Case GdViewer.GetDocumentType()
Case DocumentType.DocumentTypeBitmap
result = "Bilddatei"
Case DocumentType.DocumentTypeMetaFile
result = "Metafile"
Case DocumentType.DocumentTypePDF
result = "PDF"
Case DocumentType.DocumentTypeSVG
result = "SVG"
Case DocumentType.DocumentTypeTXT
result = "Textdatei"
Case DocumentType.DocumentTypeUnknown
result = "Unbekannt"
End Select
Return result
End Function
Private Sub UpdateMainUi()
If GdViewer.PageCount = 0 Then
btnOpen.Enabled = True
btnPrint.Enabled = False
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
tbCurrentPage.Enabled = False
lblPageCount.Enabled = False
btnNextPage.Enabled = False
btnLastPage.Enabled = False
btnZoomOut.Enabled = False
cbZoom.Enabled = False
btnZoomIn.Enabled = False
btnFitPage.Enabled = False
btnFitWidth.Enabled = False
btnRotateLeft.Enabled = False
btnRotateRight.Enabled = False
btnFlipX.Enabled = False
btnFlipY.Enabled = False
tbCurrentPage.Text = "0"
lblPageCount.Text = "/ 0"
cbZoom.SelectedIndex = -1
Else
btnOpen.Enabled = False
btnPrint.Enabled = True
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
tbCurrentPage.Enabled = True
lblPageCount.Enabled = True
btnNextPage.Enabled = True
btnLastPage.Enabled = True
btnZoomOut.Enabled = True
cbZoom.Enabled = True
btnZoomIn.Enabled = True
btnFitPage.Enabled = True
btnFitWidth.Enabled = True
btnRotateLeft.Enabled = True
btnRotateRight.Enabled = True
btnFlipX.Enabled = True
btnFlipY.Enabled = True
UpdateaNavigationToolbar()
End If
End Sub
Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFirstPage.Click
GdViewer.DisplayFirstPage()
End Sub
Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click
GdViewer.DisplayPreviousPage()
End Sub
Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click
GdViewer.DisplayNextPage()
End Sub
Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click
GdViewer.DisplayLastPage()
End Sub
Private Sub tbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbCurrentPage.Leave
Dim page As Integer = 0
If Integer.TryParse(tbCurrentPage.Text, page) Then
If page > 0 And page <= GdViewer.PageCount Then
GdViewer.DisplayPage(page)
UpdateaNavigationToolbar()
End If
End If
End Sub
Private Sub GdViewer1_PageChanged() Handles GdViewer.PageChanged
UpdateaNavigationToolbar()
End Sub
Private Sub ChangeZoomValue()
If cbZoom.SelectedIndex <> -1 Then
Select Case cbZoom.SelectedIndex
Case ZoomMode.Zoom50
GdViewer.Zoom = 50.0F / 100
Case ZoomMode.Zoom100
GdViewer.Zoom = 100.0F / 100
Case ZoomMode.Zoom150
GdViewer.Zoom = 150.0F / 100
Case ZoomMode.Zoom200
GdViewer.Zoom = 250.0F / 100
Case ZoomMode.ZoomSelectedArea
If GdViewer.IsRect() Then
GdViewer.ZoomRect()
Else
GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaSelection
GdViewer.Focus()
End If
Case ZoomMode.ZoomFitToViewer
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
Case ZoomMode.ZoomFitWidth
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
Case ZoomMode.ZoomFitHeight
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer
End Select
Else
If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then
GdViewer.Zoom = Val(Regex.Replace(cbZoom.Text, "[^0-9,.]", "")) / 100
End If
End If
UpdateaNavigationToolbar()
End Sub
Private Sub cbZoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.SelectedIndexChanged
ChangeZoomValue()
End Sub
Private Sub GdViewer1_AfterZoomChange() Handles GdViewer.AfterZoomChange
UpdateaNavigationToolbar()
If GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then
GdViewer.MouseMode = ViewerMouseMode.MouseModePan
End If
End Sub
Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click
GdViewer.ZoomOUT()
End Sub
Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click
GdViewer.ZoomIN()
End Sub
Private Sub cbZoom_TextUpdate(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPrint.Click
If GdViewer.PageCount = 0 Then
Return
End If
Using f As New frmViewerPrint(GdViewer)
f.ShowDialog(Me)
If f.DialogResult <> DialogResult.OK Then
Return
End If
Dim printSettings As frmViewerPrint.PrintSettings = f.printConfiguration
If Not GdViewer.PrintSetActivePrinter(printSettings.Printer) Then
Return
End If
GdViewer.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
GdViewer.PrintSetAlignment(printSettings.PrintAlignment)
Select Case printSettings.Orientation
Case frmViewerPrint.PrintOrientation.AutoDetection
GdViewer.PrintSetAutoRotation(True)
Exit Select
Case frmViewerPrint.PrintOrientation.Portrait
GdViewer.PrintSetAutoRotation(False)
GdViewer.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
Exit Select
Case frmViewerPrint.PrintOrientation.Paysage
GdViewer.PrintSetAutoRotation(False)
GdViewer.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
Exit Select
End Select
GdViewer.PrintSetCopies(printSettings.Copies)
If printSettings.Copies > 1 Then
GdViewer.PrintSetCollate(printSettings.Collate)
End If
Select Case printSettings.PagesToPrint
Case frmViewerPrint.PagesToPrint.All
GdViewer.PrintSetFromToPage(1, GdViewer.PageCount)
GdViewer.Print(printSettings.PrintSize)
Exit Select
Case frmViewerPrint.PagesToPrint.Current
GdViewer.PrintSetFromToPage(GdViewer.CurrentPage, GdViewer.CurrentPage)
GdViewer.Print(printSettings.PrintSize)
Exit Select
Case frmViewerPrint.PagesToPrint.Range
If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
If printSettings.PageRange.Contains("-") Then
Dim pageStart As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
Dim pageEnd As Integer = 0
If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
If pageEnd < pageStart Then
GdViewer.PrintSetFromToPage(pageEnd, pageStart)
GdViewer.Print(printSettings.PrintSize)
Else
GdViewer.PrintSetFromToPage(pageStart, pageEnd)
GdViewer.Print(printSettings.PrintSize)
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Else
Dim page As Integer = 0
If Integer.TryParse(printSettings.PageRange, page) Then
GdViewer.PrintSetFromToPage(page, page)
GdViewer.Print(printSettings.PrintSize)
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
End If
Else
MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
Exit Select
End Select
End Using
End Sub
Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
GdViewer.Rotate(RotateFlipType.Rotate270FlipNone)
End Sub
Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click
GdViewer.Rotate(RotateFlipType.Rotate90FlipNone)
End Sub
Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click
GdViewer.Rotate(RotateFlipType.RotateNoneFlipX)
End Sub
Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click
GdViewer.Rotate(RotateFlipType.RotateNoneFlipY)
End Sub
Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer.TransferEnded
GdViewer.Focus()
UpdateMainUi()
End Sub
Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub AddSearchRegion(ByVal occurence As Integer, ByVal leftCoordinate As Single, ByVal topCoordinate As Single, ByVal regionWidth As Single, ByVal regionheight As Single, ByVal ensureVisibility As Boolean)
Dim searchRegion As Integer = GdViewer.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow)
GdViewer.SetRegionEditable(searchRegion, False)
If ensureVisibility Then
GdViewer.EnsureRegionVisibility(searchRegion)
End If
End Sub
Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
Using frmSettings As New frmViewerSettings(GdViewer)
frmSettings.ShowDialog(Me)
End Using
UpdateaNavigationToolbar()
End Sub
Private Sub UpdateaNavigationToolbar()
Dim currentPage As Integer = GdViewer.CurrentPage()
tbCurrentPage.Text = currentPage.ToString()
lblPageCount.Text = "/ " & GdViewer.PageCount.ToString()
If currentPage = 1 Then
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
Else
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
End If
If currentPage = GdViewer.PageCount Then
btnNextPage.Enabled = False
btnLastPage.Enabled = False
Else
btnNextPage.Enabled = True
btnLastPage.Enabled = True
End If
cbZoom.Text = String.Format(CultureInfo.InvariantCulture, "{0:#0.##%}", GdViewer.Zoom)
Dim widthInches, heightInches As Double
If GdViewer.GetDocumentType = DocumentType.DocumentTypePDF Then
widthInches = GdViewer.PdfGetPageWidth / 72
heightInches = GdViewer.PdfGetPageHeight / 72
Else
widthInches = GdViewer.PageWidth / GdViewer.HorizontalResolution
heightInches = GdViewer.PageHeight / GdViewer.VerticalResolution
End If
Me.ToolStripStatusLabel1.Text = "Typ: " + GetDocumentTypeLabel() + " - " +
"Seitengröße (zoll): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Seitengröße (pixel): " + Trim(Str(GdViewer.PageWidth)) + " × " + Trim(Str(GdViewer.PageHeight)) + " - " +
"Horizontale Auflösung: " + Trim(Str(Math.Round(GdViewer.HorizontalResolution, 2))) + " DPI - " +
"Vertikale Auflösung: " + Trim(Str(Math.Round(GdViewer.VerticalResolution, 2))) + " DPI"
End Sub
Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
End Sub
Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click
GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
End Sub
Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click
GdViewer.MouseMode = ViewerMouseMode.MouseModeDefault
DefaultToolStripMenuItem.Checked = True
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer.Focus()
End Sub
Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click
GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaSelection
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = True
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer.Focus()
End Sub
Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click
GdViewer.MouseMode = ViewerMouseMode.MouseModePan
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = True
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = False
GdViewer.Focus()
End Sub
Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click
GdViewer.MouseMode = ViewerMouseMode.MouseModeAreaZooming
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = True
MagnifierToolStripMenuItem.Checked = False
GdViewer.Focus()
End Sub
Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click
GdViewer.MouseMode = ViewerMouseMode.MouseModeMagnifier
DefaultToolStripMenuItem.Checked = False
AreaSelectionToolStripMenuItem.Checked = False
PanToolStripMenuItem.Checked = False
AreaZoomingToolStripMenuItem.Checked = False
MagnifierToolStripMenuItem.Checked = True
GdViewer.Focus()
End Sub
End Class

View File

@@ -0,0 +1,164 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{0958CDDF-4A16-41F6-8837-8335F71D599C}</ProjectGuid>
<OutputType>Library</OutputType>
<StartupObject>
</StartupObject>
<RootNamespace>DocumentViewer</RootNamespace>
<AssemblyName>DocumentViewer</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DocumentViewer.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DocumentViewer.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.6.7\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="PresentationCore" />
<Reference Include="PresentationFramework" />
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Management" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.Security" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="DocumentViewer.Designer.vb">
<DependentUpon>DocumentViewer.vb</DependentUpon>
</Compile>
<Compile Include="DocumentViewer.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="frmViewerPrint.Designer.vb">
<DependentUpon>frmViewerPrint.vb</DependentUpon>
</Compile>
<Compile Include="frmViewerPrint.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmViewerSettings.Designer.vb">
<DependentUpon>frmViewerSettings.vb</DependentUpon>
</Compile>
<Compile Include="frmViewerSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="DocumentViewer.resx">
<DependentUpon>DocumentViewer.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmViewerPrint.resx">
<DependentUpon>frmViewerPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmViewerSettings.resx">
<DependentUpon>frmViewerSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Modules.Logging\Logging.vbproj">
<Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
<Name>Logging</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("DocumentViewer")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("DocumentViewer")>
<Assembly: AssemblyCopyright("Copyright © 2019")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("cbd5c9fc-8578-4a74-807b-0a8352bf0150")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DocumentViewer.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DocumentViewer.My.MySettings
Get
Return Global.DocumentViewer.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

View File

@@ -0,0 +1,348 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmViewerPrint
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.numCopies = New System.Windows.Forms.NumericUpDown()
Me.cmbPrintAlignment = New System.Windows.Forms.ComboBox()
Me.chkCollate = New System.Windows.Forms.CheckBox()
Me.lblPrintAlignment = New System.Windows.Forms.Label()
Me.grpPageRange = New System.Windows.Forms.GroupBox()
Me.txtPageRangeEnd = New System.Windows.Forms.TextBox()
Me.lblPageRangeTo = New System.Windows.Forms.Label()
Me.txtPageRangeStart = New System.Windows.Forms.TextBox()
Me.rbPageRangePages = New System.Windows.Forms.RadioButton()
Me.rbPageRangeCurrent = New System.Windows.Forms.RadioButton()
Me.rbPageRangeSelection = New System.Windows.Forms.RadioButton()
Me.rbPageRangeAll = New System.Windows.Forms.RadioButton()
Me.cmbPrintSize = New System.Windows.Forms.ComboBox()
Me.btnPrinterProperties = New System.Windows.Forms.Button()
Me.lblPrintSize = New System.Windows.Forms.Label()
Me.cmbPrinterList = New System.Windows.Forms.ComboBox()
Me.lblCopies = New System.Windows.Forms.Label()
Me.lblPrinter = New System.Windows.Forms.Label()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnPrint = New System.Windows.Forms.Button()
Me.grpOrientation = New System.Windows.Forms.GroupBox()
Me.rbOrientationLandscape = New System.Windows.Forms.RadioButton()
Me.rbOrientationPortrait = New System.Windows.Forms.RadioButton()
Me.rbOrientationAutomatic = New System.Windows.Forms.RadioButton()
CType(Me.numCopies, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpPageRange.SuspendLayout()
Me.grpOrientation.SuspendLayout()
Me.SuspendLayout()
'
'numCopies
'
Me.numCopies.Location = New System.Drawing.Point(140, 33)
Me.numCopies.Name = "numCopies"
Me.numCopies.Size = New System.Drawing.Size(61, 20)
Me.numCopies.TabIndex = 47
Me.numCopies.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.numCopies.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'cmbPrintAlignment
'
Me.cmbPrintAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrintAlignment.FormattingEnabled = True
Me.cmbPrintAlignment.Location = New System.Drawing.Point(140, 87)
Me.cmbPrintAlignment.Name = "cmbPrintAlignment"
Me.cmbPrintAlignment.Size = New System.Drawing.Size(198, 21)
Me.cmbPrintAlignment.TabIndex = 38
'
'chkCollate
'
Me.chkCollate.AutoSize = True
Me.chkCollate.Location = New System.Drawing.Point(207, 37)
Me.chkCollate.Name = "chkCollate"
Me.chkCollate.Size = New System.Drawing.Size(58, 17)
Me.chkCollate.TabIndex = 36
Me.chkCollate.Text = "Collate"
Me.chkCollate.UseVisualStyleBackColor = True
'
'lblPrintAlignment
'
Me.lblPrintAlignment.AutoSize = True
Me.lblPrintAlignment.Location = New System.Drawing.Point(12, 90)
Me.lblPrintAlignment.Name = "lblPrintAlignment"
Me.lblPrintAlignment.Size = New System.Drawing.Size(53, 13)
Me.lblPrintAlignment.TabIndex = 45
Me.lblPrintAlignment.Text = "Alignment"
'
'grpPageRange
'
Me.grpPageRange.Controls.Add(Me.txtPageRangeEnd)
Me.grpPageRange.Controls.Add(Me.lblPageRangeTo)
Me.grpPageRange.Controls.Add(Me.txtPageRangeStart)
Me.grpPageRange.Controls.Add(Me.rbPageRangePages)
Me.grpPageRange.Controls.Add(Me.rbPageRangeCurrent)
Me.grpPageRange.Controls.Add(Me.rbPageRangeSelection)
Me.grpPageRange.Controls.Add(Me.rbPageRangeAll)
Me.grpPageRange.Location = New System.Drawing.Point(236, 114)
Me.grpPageRange.Name = "grpPageRange"
Me.grpPageRange.Size = New System.Drawing.Size(288, 100)
Me.grpPageRange.TabIndex = 42
Me.grpPageRange.TabStop = False
Me.grpPageRange.Text = "Page range"
'
'txtPageRangeEnd
'
Me.txtPageRangeEnd.Location = New System.Drawing.Point(169, 68)
Me.txtPageRangeEnd.Name = "txtPageRangeEnd"
Me.txtPageRangeEnd.Size = New System.Drawing.Size(42, 20)
Me.txtPageRangeEnd.TabIndex = 17
'
'lblPageRangeTo
'
Me.lblPageRangeTo.AutoSize = True
Me.lblPageRangeTo.Location = New System.Drawing.Point(146, 73)
Me.lblPageRangeTo.Name = "lblPageRangeTo"
Me.lblPageRangeTo.Size = New System.Drawing.Size(16, 13)
Me.lblPageRangeTo.TabIndex = 16
Me.lblPageRangeTo.Text = "to"
Me.lblPageRangeTo.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtPageRangeStart
'
Me.txtPageRangeStart.Location = New System.Drawing.Point(98, 68)
Me.txtPageRangeStart.Name = "txtPageRangeStart"
Me.txtPageRangeStart.Size = New System.Drawing.Size(42, 20)
Me.txtPageRangeStart.TabIndex = 16
'
'rbPageRangePages
'
Me.rbPageRangePages.AutoSize = True
Me.rbPageRangePages.Location = New System.Drawing.Point(13, 69)
Me.rbPageRangePages.Name = "rbPageRangePages"
Me.rbPageRangePages.Size = New System.Drawing.Size(78, 17)
Me.rbPageRangePages.TabIndex = 15
Me.rbPageRangePages.TabStop = True
Me.rbPageRangePages.Text = "Pages from"
Me.rbPageRangePages.UseVisualStyleBackColor = True
'
'rbPageRangeCurrent
'
Me.rbPageRangeCurrent.AutoSize = True
Me.rbPageRangeCurrent.Location = New System.Drawing.Point(149, 21)
Me.rbPageRangeCurrent.Name = "rbPageRangeCurrent"
Me.rbPageRangeCurrent.Size = New System.Drawing.Size(86, 17)
Me.rbPageRangeCurrent.TabIndex = 14
Me.rbPageRangeCurrent.TabStop = True
Me.rbPageRangeCurrent.Text = "Current page"
Me.rbPageRangeCurrent.UseVisualStyleBackColor = True
'
'rbPageRangeSelection
'
Me.rbPageRangeSelection.AutoSize = True
Me.rbPageRangeSelection.Enabled = False
Me.rbPageRangeSelection.Location = New System.Drawing.Point(13, 45)
Me.rbPageRangeSelection.Name = "rbPageRangeSelection"
Me.rbPageRangeSelection.Size = New System.Drawing.Size(100, 17)
Me.rbPageRangeSelection.TabIndex = 13
Me.rbPageRangeSelection.TabStop = True
Me.rbPageRangeSelection.Text = "Checked pages"
Me.rbPageRangeSelection.UseVisualStyleBackColor = True
'
'rbPageRangeAll
'
Me.rbPageRangeAll.AutoSize = True
Me.rbPageRangeAll.Checked = True
Me.rbPageRangeAll.Location = New System.Drawing.Point(13, 21)
Me.rbPageRangeAll.Name = "rbPageRangeAll"
Me.rbPageRangeAll.Size = New System.Drawing.Size(36, 17)
Me.rbPageRangeAll.TabIndex = 12
Me.rbPageRangeAll.TabStop = True
Me.rbPageRangeAll.Text = "All"
Me.rbPageRangeAll.UseVisualStyleBackColor = True
'
'cmbPrintSize
'
Me.cmbPrintSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrintSize.FormattingEnabled = True
Me.cmbPrintSize.Location = New System.Drawing.Point(140, 60)
Me.cmbPrintSize.Name = "cmbPrintSize"
Me.cmbPrintSize.Size = New System.Drawing.Size(198, 21)
Me.cmbPrintSize.TabIndex = 37
'
'btnPrinterProperties
'
Me.btnPrinterProperties.Location = New System.Drawing.Point(417, 5)
Me.btnPrinterProperties.Name = "btnPrinterProperties"
Me.btnPrinterProperties.Size = New System.Drawing.Size(107, 23)
Me.btnPrinterProperties.TabIndex = 35
Me.btnPrinterProperties.Text = "Properties"
Me.btnPrinterProperties.UseVisualStyleBackColor = True
'
'lblPrintSize
'
Me.lblPrintSize.AutoSize = True
Me.lblPrintSize.Location = New System.Drawing.Point(12, 63)
Me.lblPrintSize.Name = "lblPrintSize"
Me.lblPrintSize.Size = New System.Drawing.Size(49, 13)
Me.lblPrintSize.TabIndex = 43
Me.lblPrintSize.Text = "Print size"
'
'cmbPrinterList
'
Me.cmbPrinterList.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPrinterList.FormattingEnabled = True
Me.cmbPrinterList.Location = New System.Drawing.Point(140, 6)
Me.cmbPrinterList.Name = "cmbPrinterList"
Me.cmbPrinterList.Size = New System.Drawing.Size(271, 21)
Me.cmbPrinterList.TabIndex = 34
'
'lblCopies
'
Me.lblCopies.AutoSize = True
Me.lblCopies.Location = New System.Drawing.Point(12, 35)
Me.lblCopies.Name = "lblCopies"
Me.lblCopies.Size = New System.Drawing.Size(39, 13)
Me.lblCopies.TabIndex = 41
Me.lblCopies.Text = "Copies"
'
'lblPrinter
'
Me.lblPrinter.AutoSize = True
Me.lblPrinter.Location = New System.Drawing.Point(12, 9)
Me.lblPrinter.Name = "lblPrinter"
Me.lblPrinter.Size = New System.Drawing.Size(37, 13)
Me.lblPrinter.TabIndex = 39
Me.lblPrinter.Text = "Printer"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(449, 230)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 46
Me.btnCancel.Text = "Cancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnPrint
'
Me.btnPrint.Location = New System.Drawing.Point(365, 230)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Size = New System.Drawing.Size(74, 23)
Me.btnPrint.TabIndex = 44
Me.btnPrint.Text = "Print"
Me.btnPrint.UseVisualStyleBackColor = True
'
'grpOrientation
'
Me.grpOrientation.Controls.Add(Me.rbOrientationLandscape)
Me.grpOrientation.Controls.Add(Me.rbOrientationPortrait)
Me.grpOrientation.Controls.Add(Me.rbOrientationAutomatic)
Me.grpOrientation.Location = New System.Drawing.Point(15, 114)
Me.grpOrientation.Name = "grpOrientation"
Me.grpOrientation.Size = New System.Drawing.Size(200, 100)
Me.grpOrientation.TabIndex = 40
Me.grpOrientation.TabStop = False
Me.grpOrientation.Text = "Orientation"
'
'rbOrientationLandscape
'
Me.rbOrientationLandscape.AutoSize = True
Me.rbOrientationLandscape.Location = New System.Drawing.Point(13, 68)
Me.rbOrientationLandscape.Name = "rbOrientationLandscape"
Me.rbOrientationLandscape.Size = New System.Drawing.Size(78, 17)
Me.rbOrientationLandscape.TabIndex = 10
Me.rbOrientationLandscape.Text = "Landscape"
Me.rbOrientationLandscape.UseVisualStyleBackColor = True
'
'rbOrientationPortrait
'
Me.rbOrientationPortrait.AutoSize = True
Me.rbOrientationPortrait.Location = New System.Drawing.Point(13, 45)
Me.rbOrientationPortrait.Name = "rbOrientationPortrait"
Me.rbOrientationPortrait.Size = New System.Drawing.Size(58, 17)
Me.rbOrientationPortrait.TabIndex = 9
Me.rbOrientationPortrait.Text = "Portrait"
Me.rbOrientationPortrait.UseVisualStyleBackColor = True
'
'rbOrientationAutomatic
'
Me.rbOrientationAutomatic.AutoSize = True
Me.rbOrientationAutomatic.Checked = True
Me.rbOrientationAutomatic.Location = New System.Drawing.Point(13, 22)
Me.rbOrientationAutomatic.Name = "rbOrientationAutomatic"
Me.rbOrientationAutomatic.Size = New System.Drawing.Size(72, 17)
Me.rbOrientationAutomatic.TabIndex = 8
Me.rbOrientationAutomatic.TabStop = True
Me.rbOrientationAutomatic.Text = "Automatic"
Me.rbOrientationAutomatic.UseVisualStyleBackColor = True
'
'frmViewerPrint
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(534, 265)
Me.Controls.Add(Me.numCopies)
Me.Controls.Add(Me.cmbPrintAlignment)
Me.Controls.Add(Me.chkCollate)
Me.Controls.Add(Me.lblPrintAlignment)
Me.Controls.Add(Me.grpPageRange)
Me.Controls.Add(Me.cmbPrintSize)
Me.Controls.Add(Me.btnPrinterProperties)
Me.Controls.Add(Me.lblPrintSize)
Me.Controls.Add(Me.cmbPrinterList)
Me.Controls.Add(Me.lblCopies)
Me.Controls.Add(Me.lblPrinter)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnPrint)
Me.Controls.Add(Me.grpOrientation)
Me.Name = "frmViewerPrint"
Me.Text = "frmViewerPrint"
CType(Me.numCopies, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpPageRange.ResumeLayout(False)
Me.grpPageRange.PerformLayout()
Me.grpOrientation.ResumeLayout(False)
Me.grpOrientation.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents numCopies As NumericUpDown
Friend WithEvents cmbPrintAlignment As ComboBox
Friend WithEvents chkCollate As CheckBox
Friend WithEvents lblPrintAlignment As Label
Friend WithEvents grpPageRange As GroupBox
Friend WithEvents txtPageRangeEnd As TextBox
Friend WithEvents lblPageRangeTo As Label
Friend WithEvents txtPageRangeStart As TextBox
Friend WithEvents rbPageRangePages As RadioButton
Friend WithEvents rbPageRangeCurrent As RadioButton
Friend WithEvents rbPageRangeSelection As RadioButton
Friend WithEvents rbPageRangeAll As RadioButton
Friend WithEvents cmbPrintSize As ComboBox
Friend WithEvents btnPrinterProperties As Button
Friend WithEvents lblPrintSize As Label
Friend WithEvents cmbPrinterList As ComboBox
Friend WithEvents lblCopies As Label
Friend WithEvents lblPrinter As Label
Friend WithEvents btnCancel As Button
Friend WithEvents btnPrint As Button
Friend WithEvents grpOrientation As GroupBox
Friend WithEvents rbOrientationLandscape As RadioButton
Friend WithEvents rbOrientationPortrait As RadioButton
Friend WithEvents rbOrientationAutomatic As RadioButton
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,137 @@
Option Explicit On
Option Infer On
Option Strict On
Imports System.Windows.Forms
Imports GdPicture14
Public Class frmViewerPrint
Enum PrintOrientation
AutoDetection
Portrait
Paysage
End Enum
Enum PagesToPrint
All
Selection
Current
Range
End Enum
Public Structure PrintSettings
Public Printer As String
Public Copies As Short
Public Collate As Boolean
Public PrintSize As PrintSizeOption
Public PrintAlignment As PrintAlignment
Public Orientation As PrintOrientation
Public PagesToPrint As PagesToPrint
Public PageRange As String
End Structure
Private m_printSettings As PrintSettings
Private ReadOnly m_owner As GdViewer
Public ReadOnly Property printConfiguration() As PrintSettings
Get
Return m_printSettings
End Get
End Property
Private ReadOnly m_isSelectionPartial As Boolean
Private ReadOnly m_isEmptySelection As Boolean
Public Sub New(ByVal owner As GdViewer)
InitializeComponent()
m_owner = owner
End Sub
Private Sub frmPrint_Load(ByVal sender As Object, ByVal e As EventArgs)
cmbPrinterList.Items.Clear()
For i As Integer = 1 To m_owner.PrintGetPrintersCount()
Dim printerName As String = m_owner.PrintGetPrinterName(i)
cmbPrinterList.Items.Add(printerName)
If printerName = m_owner.PrintGetActivePrinter() Then
cmbPrinterList.SelectedIndex = cmbPrinterList.Items.IndexOf(printerName)
End If
Next i
cmbPrintSize.Items.Add("Actual size") '0 = PrintSizeOptionActual
cmbPrintSize.Items.Add("Fit to page") '1 = PrintSizeOptionFit, default
cmbPrintSize.Items.Add("Shrink oversized pages") '2 = PrintSizeOptionShrinkOversized
cmbPrintSize.SelectedIndex = 2
cmbPrintAlignment.Items.Add("Middle left") '0 = PrintAlignmentMiddleLeft
cmbPrintAlignment.Items.Add("Middle right") '1 = PrintAlignmentMiddleRight
cmbPrintAlignment.Items.Add("Middle center") '2 = PrintAlignmentMiddleCenter
cmbPrintAlignment.Items.Add("Default") '3 = PrintAlignmentDefault
cmbPrintAlignment.Items.Add("Top left") '4 = PrintAlignmentTopLeft
cmbPrintAlignment.Items.Add("Top right") '5 = PrintAlignmentTopRight
cmbPrintAlignment.Items.Add("Top center") '6 = PrintAlignmentTopCenter
cmbPrintAlignment.Items.Add("Bottom left") '7 = PrintAlignmentBottomLeft
cmbPrintAlignment.Items.Add("Bottom right") '8 = PrintAlignmentBottomRight
cmbPrintAlignment.Items.Add("Bottom center") '9 = PrintAlignmentBottomCenter
cmbPrintAlignment.SelectedIndex = 2
If m_isEmptySelection Then
rbPageRangeSelection.Enabled = False
Else
If m_isSelectionPartial Then
rbPageRangeSelection.Checked = True
End If
End If
txtPageRangeStart.Enabled = False
txtPageRangeEnd.Enabled = False
txtPageRangeStart.Text = "1"
txtPageRangeEnd.Text = m_owner.PageCount.ToString()
btnPrint.DialogResult = DialogResult.OK
btnCancel.DialogResult = DialogResult.Cancel
End Sub
Private Sub btnPrinterProperties_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrinterProperties.Click
End Sub
Private Sub cmbPrinterList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cmbPrinterList.SelectedIndexChanged
End Sub
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub rbPageRangeAll_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeAll.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeSelection_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeSelection.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeCurrent_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeCurrent.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangePages_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangePages.CheckedChanged
rbPageRangeGeneric_CheckedChanged()
End Sub
Private Sub rbPageRangeGeneric_CheckedChanged()
If rbPageRangePages.Checked Then
txtPageRangeStart.Enabled = True
txtPageRangeEnd.Enabled = True
Else
txtPageRangeStart.Enabled = False
txtPageRangeEnd.Enabled = False
End If
End Sub
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrint.Click
End Sub
End Class

View File

@@ -0,0 +1,475 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmViewerSettings
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbPDFRenderingEngine = New System.Windows.Forms.ComboBox()
Me.chkPDFVerifyDigitalCertificates = New System.Windows.Forms.CheckBox()
Me.chkPDFIncreaseTextContrast = New System.Windows.Forms.CheckBox()
Me.chkPDFEnableLinks = New System.Windows.Forms.CheckBox()
Me.chkPDFEnableFileLinks = New System.Windows.Forms.CheckBox()
Me.chkPDFDisplayFormFields = New System.Windows.Forms.CheckBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.chkEnableICM = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.chkHQAnnotationsRendering = New System.Windows.Forms.CheckBox()
Me.chkAnnotationsDropShadow = New System.Windows.Forms.CheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox()
Me.chkIgnoreDocumentResolution = New System.Windows.Forms.CheckBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtZoomStep = New System.Windows.Forms.NumericUpDown()
Me.cbMouseWheelMode = New System.Windows.Forms.ComboBox()
Me.cbDocumentPosition = New System.Windows.Forms.ComboBox()
Me.cbDocumentAlignment = New System.Windows.Forms.ComboBox()
Me.chkEnableMenu = New System.Windows.Forms.CheckBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbDisplayQuality = New System.Windows.Forms.ComboBox()
Me.chkContinuousViewMode = New System.Windows.Forms.CheckBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnApply = New System.Windows.Forms.Button()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Controls.Add(Me.cbPDFRenderingEngine)
Me.GroupBox4.Controls.Add(Me.chkPDFVerifyDigitalCertificates)
Me.GroupBox4.Controls.Add(Me.chkPDFIncreaseTextContrast)
Me.GroupBox4.Controls.Add(Me.chkPDFEnableLinks)
Me.GroupBox4.Controls.Add(Me.chkPDFEnableFileLinks)
Me.GroupBox4.Controls.Add(Me.chkPDFDisplayFormFields)
Me.GroupBox4.Location = New System.Drawing.Point(309, 101)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(291, 184)
Me.GroupBox4.TabIndex = 103
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "PDF viewing options"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 122)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(108, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "PDF rasterizer engine"
'
'cbPDFRenderingEngine
'
Me.cbPDFRenderingEngine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbPDFRenderingEngine.FormattingEnabled = True
Me.cbPDFRenderingEngine.Location = New System.Drawing.Point(122, 118)
Me.cbPDFRenderingEngine.Name = "cbPDFRenderingEngine"
Me.cbPDFRenderingEngine.Size = New System.Drawing.Size(121, 21)
Me.cbPDFRenderingEngine.TabIndex = 19
'
'chkPDFVerifyDigitalCertificates
'
Me.chkPDFVerifyDigitalCertificates.AutoSize = True
Me.chkPDFVerifyDigitalCertificates.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(6, 146)
Me.chkPDFVerifyDigitalCertificates.Name = "chkPDFVerifyDigitalCertificates"
Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(136, 17)
Me.chkPDFVerifyDigitalCertificates.TabIndex = 20
Me.chkPDFVerifyDigitalCertificates.Text = "Verify digital certificates"
Me.chkPDFVerifyDigitalCertificates.UseVisualStyleBackColor = True
'
'chkPDFIncreaseTextContrast
'
Me.chkPDFIncreaseTextContrast.AutoSize = True
Me.chkPDFIncreaseTextContrast.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(6, 96)
Me.chkPDFIncreaseTextContrast.Name = "chkPDFIncreaseTextContrast"
Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(128, 17)
Me.chkPDFIncreaseTextContrast.TabIndex = 18
Me.chkPDFIncreaseTextContrast.Text = "Increase text contrast"
Me.chkPDFIncreaseTextContrast.UseVisualStyleBackColor = True
'
'chkPDFEnableLinks
'
Me.chkPDFEnableLinks.AutoSize = True
Me.chkPDFEnableLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFEnableLinks.Location = New System.Drawing.Point(6, 73)
Me.chkPDFEnableLinks.Name = "chkPDFEnableLinks"
Me.chkPDFEnableLinks.Size = New System.Drawing.Size(83, 17)
Me.chkPDFEnableLinks.TabIndex = 17
Me.chkPDFEnableLinks.Text = "Enable links"
Me.chkPDFEnableLinks.UseVisualStyleBackColor = True
'
'chkPDFEnableFileLinks
'
Me.chkPDFEnableFileLinks.AutoSize = True
Me.chkPDFEnableFileLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(6, 50)
Me.chkPDFEnableFileLinks.Name = "chkPDFEnableFileLinks"
Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(99, 17)
Me.chkPDFEnableFileLinks.TabIndex = 16
Me.chkPDFEnableFileLinks.Text = "Enable file links"
Me.chkPDFEnableFileLinks.UseVisualStyleBackColor = True
'
'chkPDFDisplayFormFields
'
Me.chkPDFDisplayFormFields.AutoSize = True
Me.chkPDFDisplayFormFields.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(6, 27)
Me.chkPDFDisplayFormFields.Name = "chkPDFDisplayFormFields"
Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(110, 17)
Me.chkPDFDisplayFormFields.TabIndex = 15
Me.chkPDFDisplayFormFields.Text = "Display form fields"
Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.chkEnableICM)
Me.GroupBox3.Location = New System.Drawing.Point(12, 314)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(291, 46)
Me.GroupBox3.TabIndex = 101
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Image viewing options"
'
'chkEnableICM
'
Me.chkEnableICM.AutoSize = True
Me.chkEnableICM.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableICM.Location = New System.Drawing.Point(6, 19)
Me.chkEnableICM.Name = "chkEnableICM"
Me.chkEnableICM.Size = New System.Drawing.Size(81, 17)
Me.chkEnableICM.TabIndex = 12
Me.chkEnableICM.Text = "Enable ICM"
Me.chkEnableICM.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.chkHQAnnotationsRendering)
Me.GroupBox2.Controls.Add(Me.chkAnnotationsDropShadow)
Me.GroupBox2.Location = New System.Drawing.Point(309, 12)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(291, 83)
Me.GroupBox2.TabIndex = 102
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Annotations options"
'
'chkHQAnnotationsRendering
'
Me.chkHQAnnotationsRendering.AutoSize = True
Me.chkHQAnnotationsRendering.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(6, 42)
Me.chkHQAnnotationsRendering.Name = "chkHQAnnotationsRendering"
Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(147, 17)
Me.chkHQAnnotationsRendering.TabIndex = 14
Me.chkHQAnnotationsRendering.Text = "HQ annotations rendering"
Me.chkHQAnnotationsRendering.UseVisualStyleBackColor = True
'
'chkAnnotationsDropShadow
'
Me.chkAnnotationsDropShadow.AutoSize = True
Me.chkAnnotationsDropShadow.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(6, 19)
Me.chkAnnotationsDropShadow.Name = "chkAnnotationsDropShadow"
Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(146, 17)
Me.chkAnnotationsDropShadow.TabIndex = 13
Me.chkAnnotationsDropShadow.Text = "Annotations drop shadow"
Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.chkEnableDeferredPainting)
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.cbPageDisplayMode)
Me.GroupBox1.Controls.Add(Me.chkIgnoreDocumentResolution)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Controls.Add(Me.txtZoomStep)
Me.GroupBox1.Controls.Add(Me.cbMouseWheelMode)
Me.GroupBox1.Controls.Add(Me.cbDocumentPosition)
Me.GroupBox1.Controls.Add(Me.cbDocumentAlignment)
Me.GroupBox1.Controls.Add(Me.chkEnableMenu)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.cbDisplayQuality)
Me.GroupBox1.Controls.Add(Me.chkContinuousViewMode)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(291, 296)
Me.GroupBox1.TabIndex = 100
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "General options"
'
'chkEnableDeferredPainting
'
Me.chkEnableDeferredPainting.AutoSize = True
Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(6, 270)
Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting"
Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(141, 17)
Me.chkEnableDeferredPainting.TabIndex = 17
Me.chkEnableDeferredPainting.Text = "Enable deferred painting"
Me.chkEnableDeferredPainting.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(6, 95)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(70, 13)
Me.Label8.TabIndex = 16
Me.Label8.Text = "Display mode"
'
'cbPageDisplayMode
'
Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbPageDisplayMode.FormattingEnabled = True
Me.cbPageDisplayMode.Location = New System.Drawing.Point(116, 93)
Me.cbPageDisplayMode.Name = "cbPageDisplayMode"
Me.cbPageDisplayMode.Size = New System.Drawing.Size(130, 21)
Me.cbPageDisplayMode.TabIndex = 4
'
'chkIgnoreDocumentResolution
'
Me.chkIgnoreDocumentResolution.AutoSize = True
Me.chkIgnoreDocumentResolution.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(6, 248)
Me.chkIgnoreDocumentResolution.Name = "chkIgnoreDocumentResolution"
Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(154, 17)
Me.chkIgnoreDocumentResolution.TabIndex = 11
Me.chkIgnoreDocumentResolution.Text = "Ignore document resolution"
Me.chkIgnoreDocumentResolution.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Location = New System.Drawing.Point(116, 198)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(21, 21)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'txtZoomStep
'
Me.txtZoomStep.Location = New System.Drawing.Point(69, 18)
Me.txtZoomStep.Maximum = New Decimal(New Integer() {1000, 0, 0, 0})
Me.txtZoomStep.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.txtZoomStep.Name = "txtZoomStep"
Me.txtZoomStep.Size = New System.Drawing.Size(79, 20)
Me.txtZoomStep.TabIndex = 0
Me.txtZoomStep.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'cbMouseWheelMode
'
Me.cbMouseWheelMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbMouseWheelMode.FormattingEnabled = True
Me.cbMouseWheelMode.Location = New System.Drawing.Point(116, 171)
Me.cbMouseWheelMode.Name = "cbMouseWheelMode"
Me.cbMouseWheelMode.Size = New System.Drawing.Size(107, 21)
Me.cbMouseWheelMode.TabIndex = 7
'
'cbDocumentPosition
'
Me.cbDocumentPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDocumentPosition.FormattingEnabled = True
Me.cbDocumentPosition.Location = New System.Drawing.Point(116, 145)
Me.cbDocumentPosition.Name = "cbDocumentPosition"
Me.cbDocumentPosition.Size = New System.Drawing.Size(107, 21)
Me.cbDocumentPosition.TabIndex = 6
'
'cbDocumentAlignment
'
Me.cbDocumentAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDocumentAlignment.FormattingEnabled = True
Me.cbDocumentAlignment.Location = New System.Drawing.Point(116, 119)
Me.cbDocumentAlignment.Name = "cbDocumentAlignment"
Me.cbDocumentAlignment.Size = New System.Drawing.Size(107, 21)
Me.cbDocumentAlignment.TabIndex = 5
'
'chkEnableMenu
'
Me.chkEnableMenu.AutoSize = True
Me.chkEnableMenu.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkEnableMenu.Location = New System.Drawing.Point(6, 225)
Me.chkEnableMenu.Name = "chkEnableMenu"
Me.chkEnableMenu.Size = New System.Drawing.Size(140, 17)
Me.chkEnableMenu.TabIndex = 10
Me.chkEnableMenu.Text = "Enable contextual menu"
Me.chkEnableMenu.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(6, 202)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(91, 13)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Background color"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(7, 173)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(99, 13)
Me.Label5.TabIndex = 8
Me.Label5.Text = "Mouse wheel mode"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(7, 147)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(95, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Document position"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(7, 121)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Document alignment"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 69)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(74, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Display quality"
'
'cbDisplayQuality
'
Me.cbDisplayQuality.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbDisplayQuality.FormattingEnabled = True
Me.cbDisplayQuality.Location = New System.Drawing.Point(116, 67)
Me.cbDisplayQuality.Name = "cbDisplayQuality"
Me.cbDisplayQuality.Size = New System.Drawing.Size(107, 21)
Me.cbDisplayQuality.TabIndex = 3
'
'chkContinuousViewMode
'
Me.chkContinuousViewMode.AutoSize = True
Me.chkContinuousViewMode.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkContinuousViewMode.Location = New System.Drawing.Point(6, 42)
Me.chkContinuousViewMode.Name = "chkContinuousViewMode"
Me.chkContinuousViewMode.Size = New System.Drawing.Size(133, 17)
Me.chkContinuousViewMode.TabIndex = 2
Me.chkContinuousViewMode.Text = "Continuous view mode"
Me.chkContinuousViewMode.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Zoom step"
'
'btnApply
'
Me.btnApply.Location = New System.Drawing.Point(529, 338)
Me.btnApply.Name = "btnApply"
Me.btnApply.Size = New System.Drawing.Size(75, 23)
Me.btnApply.TabIndex = 104
Me.btnApply.Text = "Apply"
Me.btnApply.UseVisualStyleBackColor = True
'
'frmViewerSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(625, 377)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnApply)
Me.Name = "frmViewerSettings"
Me.Text = "frmViewerSettings"
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZoomStep, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents Label7 As Label
Friend WithEvents cbPDFRenderingEngine As ComboBox
Friend WithEvents chkPDFVerifyDigitalCertificates As CheckBox
Friend WithEvents chkPDFIncreaseTextContrast As CheckBox
Friend WithEvents chkPDFEnableLinks As CheckBox
Friend WithEvents chkPDFEnableFileLinks As CheckBox
Friend WithEvents chkPDFDisplayFormFields As CheckBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents chkEnableICM As CheckBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents chkHQAnnotationsRendering As CheckBox
Friend WithEvents chkAnnotationsDropShadow As CheckBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents chkEnableDeferredPainting As CheckBox
Friend WithEvents Label8 As Label
Friend WithEvents cbPageDisplayMode As ComboBox
Friend WithEvents chkIgnoreDocumentResolution As CheckBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents txtZoomStep As NumericUpDown
Friend WithEvents cbMouseWheelMode As ComboBox
Friend WithEvents cbDocumentPosition As ComboBox
Friend WithEvents cbDocumentAlignment As ComboBox
Friend WithEvents chkEnableMenu As CheckBox
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents cbDisplayQuality As ComboBox
Friend WithEvents chkContinuousViewMode As CheckBox
Friend WithEvents Label1 As Label
Friend WithEvents btnApply As Button
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -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

View File

@@ -0,0 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="NLog" version="4.6.7" targetFramework="net461" />
</packages>