diff --git a/ClipboardWatcher/frmMatch.Designer.vb b/ClipboardWatcher/frmMatch.Designer.vb index 398ee8f6..eba45e4c 100644 --- a/ClipboardWatcher/frmMatch.Designer.vb +++ b/ClipboardWatcher/frmMatch.Designer.vb @@ -87,9 +87,9 @@ Partial Class frmMatch Me.Label2.ForeColor = System.Drawing.SystemColors.Control Me.Label2.Location = New System.Drawing.Point(12, 424) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(232, 17) + Me.Label2.Size = New System.Drawing.Size(205, 17) Me.Label2.TabIndex = 3 - Me.Label2.Text = "Wie wurden die Ergebnisse gefunden?" + Me.Label2.Text = "Wie wurden die Profile gefunden?" ' 'frmMatch ' @@ -100,7 +100,7 @@ Partial Class frmMatch Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TileControlMatch) Me.Name = "frmMatch" - Me.Text = "frmMatch" + Me.Text = "Profile gefunden" Me.ResumeLayout(False) Me.PerformLayout() diff --git a/ClipboardWatcher/frmMatch.vb b/ClipboardWatcher/frmMatch.vb index 88760bdc..196ba6f1 100644 --- a/ClipboardWatcher/frmMatch.vb +++ b/ClipboardWatcher/frmMatch.vb @@ -67,7 +67,7 @@ Public Class frmMatch Close() End If - Dim oMatchString = IIf(oCreatedTiles = 1, "1 Match", $"{oCreatedTiles} Matches") + Dim oMatchString = IIf(oCreatedTiles = 1, "1 Profil", $"{oCreatedTiles} Profile") Label1.Text = String.Format(Label1.Text, oMatchString, _Params.ClipboardContents) If oCreatedTiles = 1 Then diff --git a/Common/Common.vbproj b/Common/Common.vbproj index 0f1da2c6..e763b6cb 100644 --- a/Common/Common.vbproj +++ b/Common/Common.vbproj @@ -54,6 +54,9 @@ + + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll + ..\packages\NLog.4.6.7\lib\net45\NLog.dll @@ -137,6 +140,10 @@ + + {0958cddf-4a16-41f6-8837-8335f71d599c} + DocumentViewer + {44982f9b-6116-44e2-85d0-f39650b1ef99} Config diff --git a/Common/DocumentResultList/DocumentResultParams.vb b/Common/DocumentResultList/DocumentResultParams.vb index dc7b0869..7f52ce28 100644 --- a/Common/DocumentResultList/DocumentResultParams.vb +++ b/Common/DocumentResultList/DocumentResultParams.vb @@ -3,6 +3,7 @@ ''' WindowGuid is used to save layout data ''' Public WindowGuid As String + Public ViewerLicense As String Public Results As New List(Of DocumentResult) End Class diff --git a/Common/DocumentResultList/frmDocumentResultList.Designer.vb b/Common/DocumentResultList/frmDocumentResultList.Designer.vb index 8d67a5d6..83c2956f 100644 --- a/Common/DocumentResultList/frmDocumentResultList.Designer.vb +++ b/Common/DocumentResultList/frmDocumentResultList.Designer.vb @@ -41,6 +41,8 @@ Partial Class frmDocumentResultList Me.GridView3 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView() Me.GridBand3 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() Me.XtraSaveFileDialog = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components) + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.DocumentViewer1 = New DocumentViewer.DocumentViewer() CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() @@ -52,6 +54,8 @@ Partial Class frmDocumentResultList CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() Me.SuspendLayout() ' 'RibbonControl @@ -118,14 +122,14 @@ Partial Class frmDocumentResultList ' Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 143) + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1) Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1189, 497) - Me.SplitContainerControl1.SplitterPosition = 531 + Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 497) + Me.SplitContainerControl1.SplitterPosition = 382 Me.SplitContainerControl1.TabIndex = 2 Me.SplitContainerControl1.Text = "SplitContainerControl1" ' @@ -136,7 +140,7 @@ Partial Class frmDocumentResultList Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MenuManager = Me.RibbonControl Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(531, 497) + Me.GridControl1.Size = New System.Drawing.Size(382, 497) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -172,7 +176,7 @@ Partial Class frmDocumentResultList Me.SplitContainerControl2.Panel1.Text = "Panel1" Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3) Me.SplitContainerControl2.Panel2.Text = "Panel2" - Me.SplitContainerControl2.Size = New System.Drawing.Size(653, 497) + Me.SplitContainerControl2.Size = New System.Drawing.Size(375, 497) Me.SplitContainerControl2.SplitterPosition = 223 Me.SplitContainerControl2.TabIndex = 0 Me.SplitContainerControl2.Text = "SplitContainerControl2" @@ -184,7 +188,7 @@ Partial Class frmDocumentResultList Me.GridControl2.MainView = Me.GridView2 Me.GridControl2.MenuManager = Me.RibbonControl Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(653, 223) + Me.GridControl2.Size = New System.Drawing.Size(375, 223) Me.GridControl2.TabIndex = 0 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' @@ -215,7 +219,7 @@ Partial Class frmDocumentResultList Me.GridControl3.MainView = Me.GridView3 Me.GridControl3.MenuManager = Me.RibbonControl Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(653, 269) + Me.GridControl3.Size = New System.Drawing.Size(375, 269) Me.GridControl3.TabIndex = 0 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -243,12 +247,34 @@ Partial Class frmDocumentResultList ' Me.XtraSaveFileDialog.FileName = "XtraSaveFileDialog1" ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 143) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 497) + Me.SplitContainerControl3.SplitterPosition = 762 + Me.SplitContainerControl3.TabIndex = 5 + Me.SplitContainerControl3.Text = "SplitContainerControl3" + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(422, 497) + Me.DocumentViewer1.TabIndex = 0 + ' 'frmDocumentResultList ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1189, 671) - Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.SplitContainerControl3) Me.Controls.Add(Me.RibbonStatusBar) Me.Controls.Add(Me.RibbonControl) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -267,6 +293,8 @@ Partial Class frmDocumentResultList CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -292,4 +320,6 @@ Partial Class frmDocumentResultList Friend WithEvents BarButtonItemExportGrid1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents XtraSaveFileDialog As DevExpress.XtraEditors.XtraSaveFileDialog + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents DocumentViewer1 As DocumentViewer.DocumentViewer End Class diff --git a/Common/DocumentResultList/frmDocumentResultList.vb b/Common/DocumentResultList/frmDocumentResultList.vb index 83489ed5..1adf4a81 100644 --- a/Common/DocumentResultList/frmDocumentResultList.vb +++ b/Common/DocumentResultList/frmDocumentResultList.vb @@ -16,6 +16,7 @@ Public Class frmDocumentResultList Private _Logger As Logger Private _Config As ConfigManager(Of DocumentResultConfig) Private _Environment As Environment + Private _Params As DocumentResultParams Private _ResultLists As List(Of DocumentResult) Private _IsLoading As Boolean = True @@ -31,6 +32,7 @@ Public Class frmDocumentResultList _Logger = LogConfig.GetLogger() _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath) _Environment = Environment + _Params = Params _ResultLists = Params.Results End Sub @@ -42,6 +44,8 @@ Public Class frmDocumentResultList SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal + DocumentViewer1.Init(_Params.ViewerLicense) + Dim oTotalResults = 0 For Each oList In _ResultLists diff --git a/DDMonorepo.sln b/DDMonorepo.sln index aa4d4ccd..502d982b 100644 --- a/DDMonorepo.sln +++ b/DDMonorepo.sln @@ -94,6 +94,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Patterns", "Patterns\Patter EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Common", "Common\Common.vbproj", "{D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DocumentViewer", "DocumentViewer\DocumentViewer.vbproj", "{0958CDDF-4A16-41F6-8837-8335F71D599C}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -240,6 +242,10 @@ Global {D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}.Debug|Any CPU.Build.0 = Debug|Any CPU {D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}.Release|Any CPU.ActiveCfg = Release|Any CPU {D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}.Release|Any CPU.Build.0 = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Debug|Any CPU.Build.0 = Debug|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.ActiveCfg = Release|Any CPU + {0958CDDF-4A16-41F6-8837-8335F71D599C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -280,6 +286,7 @@ Global {B7D465A2-AE31-4CDF-A8B2-34B42D3EA84E} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} {7C3B0C7E-59FE-4E1A-A655-27AE119F9444} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC} {D20A6BF2-C7C6-4A7A-B34D-FA27D775A049} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} + {0958CDDF-4A16-41F6-8837-8335F71D599C} = {F98C0329-C004-417F-B2AB-7466E88D8220} EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286} diff --git a/DocumentViewer/App.config b/DocumentViewer/App.config new file mode 100644 index 00000000..5534e287 --- /dev/null +++ b/DocumentViewer/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/DocumentViewer/DocumentViewer.Designer.vb b/DocumentViewer/DocumentViewer.Designer.vb new file mode 100644 index 00000000..7c0aa2df --- /dev/null +++ b/DocumentViewer/DocumentViewer.Designer.vb @@ -0,0 +1,481 @@ + _ +Partial Class DocumentViewer + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DocumentViewer)) + Me.GdViewer1 = 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.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() + Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.mainToolStrip.SuspendLayout() + Me.statusbar.SuspendLayout() + Me.SuspendLayout() + ' + 'GdViewer1 + ' + Me.GdViewer1.AllowDropFile = False + Me.GdViewer1.AnimateGIF = True + Me.GdViewer1.AnnotationDropShadow = False + Me.GdViewer1.AnnotationResizeRotateHandlesColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.GdViewer1.AnnotationResizeRotateHandlesScale = 1.0! + Me.GdViewer1.AnnotationSelectionLineColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GdViewer1.AutoScrollMargin = New System.Drawing.Size(0, 0) + Me.GdViewer1.AutoScrollMinSize = New System.Drawing.Size(0, 0) + Me.GdViewer1.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.GdViewer1.BackgroundImage = Nothing + Me.GdViewer1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.GdViewer1.ContinuousViewMode = True + Me.GdViewer1.DisplayQuality = GdPicture14.DisplayQuality.DisplayQualityAutomatic + Me.GdViewer1.DisplayQualityAuto = True + Me.GdViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GdViewer1.DocumentAlignment = GdPicture14.ViewerDocumentAlignment.DocumentAlignmentMiddleCenter + Me.GdViewer1.DocumentPosition = GdPicture14.ViewerDocumentPosition.DocumentPositionMiddleCenter + Me.GdViewer1.DrawPageBorders = True + Me.GdViewer1.EnableDeferredPainting = True + Me.GdViewer1.EnabledProgressBar = True + Me.GdViewer1.EnableICM = False + Me.GdViewer1.EnableMenu = True + Me.GdViewer1.EnableMouseWheel = True + Me.GdViewer1.EnableTextSelection = True + Me.GdViewer1.ForceScrollBars = False + Me.GdViewer1.ForceTemporaryMode = False + Me.GdViewer1.ForeColor = System.Drawing.Color.Black + Me.GdViewer1.Gamma = 1.0! + Me.GdViewer1.HQAnnotationRendering = True + Me.GdViewer1.IgnoreDocumentResolution = False + Me.GdViewer1.KeepDocumentPosition = False + Me.GdViewer1.Location = New System.Drawing.Point(0, 0) + Me.GdViewer1.LockViewer = False + Me.GdViewer1.MagnifierHeight = 90 + Me.GdViewer1.MagnifierWidth = 160 + Me.GdViewer1.MagnifierZoomX = 2.0! + Me.GdViewer1.MagnifierZoomY = 2.0! + Me.GdViewer1.MouseButtonForMouseMode = GdPicture14.MouseButton.MouseButtonLeft + Me.GdViewer1.MouseMode = GdPicture14.ViewerMouseMode.MouseModePan + Me.GdViewer1.MouseWheelMode = GdPicture14.ViewerMouseWheelMode.MouseWheelModeZoom + Me.GdViewer1.Name = "GdViewer1" + Me.GdViewer1.PageBordersColor = System.Drawing.Color.Black + Me.GdViewer1.PageBordersPenSize = 1 + Me.GdViewer1.PageDisplayMode = GdPicture14.PageDisplayMode.MultiplePagesView + Me.GdViewer1.PdfDisplayFormField = True + Me.GdViewer1.PdfEnableFileLinks = True + Me.GdViewer1.PdfEnableLinks = True + Me.GdViewer1.PdfIncreaseTextContrast = False + Me.GdViewer1.PdfRasterizerEngine = GdPicture14.PdfRasterizerEngine.PdfRasterizerEngineHybrid + Me.GdViewer1.PdfShowDialogForPassword = True + Me.GdViewer1.PdfShowOpenFileDialogForDecryption = True + Me.GdViewer1.PdfVerifyDigitalCertificates = False + Me.GdViewer1.RectBorderColor = System.Drawing.Color.Black + Me.GdViewer1.RectBorderSize = 1 + Me.GdViewer1.RectIsEditable = True + Me.GdViewer1.RegionsAreEditable = True + Me.GdViewer1.RenderGdPictureAnnots = True + Me.GdViewer1.ScrollBars = True + Me.GdViewer1.ScrollLargeChange = CType(50, Short) + Me.GdViewer1.ScrollSmallChange = CType(1, Short) + Me.GdViewer1.SilentMode = True + Me.GdViewer1.Size = New System.Drawing.Size(1015, 590) + Me.GdViewer1.TabIndex = 0 + Me.GdViewer1.ViewRotation = System.Drawing.RotateFlipType.RotateNoneFlipNone + Me.GdViewer1.Zoom = 1.0R + Me.GdViewer1.ZoomCenterAtMousePosition = False + Me.GdViewer1.ZoomMode = GdPicture14.ViewerZoomMode.ZoomMode100 + Me.GdViewer1.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.ToolStripStatusLabel2}) + Me.statusbar.Location = New System.Drawing.Point(0, 568) + Me.statusbar.Name = "statusbar" + Me.statusbar.Size = New System.Drawing.Size(1015, 22) + Me.statusbar.TabIndex = 7 + Me.statusbar.Text = "StatusStrip1" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17) + ' + 'ToolStripStatusLabel2 + ' + Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2" + Me.ToolStripStatusLabel2.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.statusbar) + Me.Controls.Add(Me.mainToolStrip) + Me.Controls.Add(Me.GdViewer1) + 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 GdViewer1 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 ToolStripStatusLabel2 As ToolStripStatusLabel + Friend WithEvents OpenFileDialog As OpenFileDialog +End Class diff --git a/DocumentViewer/DocumentViewer.resx b/DocumentViewer/DocumentViewer.resx new file mode 100644 index 00000000..5bfcfcf1 --- /dev/null +++ b/DocumentViewer/DocumentViewer.resx @@ -0,0 +1,349 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALYSURBVEhLzVTfSxRRFN7Syh6EqP6C/oDoqfAlI/qxu7Pm + Fkn1EGHtTLUPpea6W1q3mBlLWINeCh9CInxwd2ZN0zsUkS9BbwWy0j5U9mtxZgOhQNN1d6d7rjPTeHHF + 0KADH/ecc+d+3znnzoznvzaE0HqfKu4PKGILp8hXfKp8sCGRqLC2V2eBVGcNp8oZAnMRkvJ7vyLutR7z + eGKxWF80Gi1ZMEls2jH4Fvqsx6kB+SEVzdQP3DHrUp0O+cmndxf8x2iWS4r76MNuwnICVp6KwFgISQbI + gezVt3dmfeq2I+IgKU7UjqJKKrBCgGAcZg4ERwgpkIO90T+YQUtwrjDviPhViVvUQRnf7gAQh8u0CVgR + yJVKpT8CityxEgHHBwG/IkVsAoBbpFAs0jXg7EvX/2ZEAMwp0mE43DAYd0QAM/NzlBzMvviAIgeZDiL3 + uyKR6u7u5s39S6AXoSqhp2cDXKBNPJ2fNfPFgoN5Arh0X1LKevG9TW6Bn+QNqUwnwrvSOFjMaYKZfsSX + ALYPq45DXZwiHuBUlLdFWOxWUQEu2Bjhb7pGFH0Or+GnIf4SEJXDuHa0aGjCMRgVVMmSe5NIDyhSXQ6f + 93/VQj+cDq7F2m6BQHZE6HdXzXZAc5gvkOrEYKpzGyE9Ti5eBpBfxgnI5bCAskPB/ORw6JnTAWpv9SYS + DRUGbvxsV7taGFiIUYFwODwXRy3bx5SLO9iq3b47x8ZL+ZPD/B6rg2jaND3rPg5cOL3cAXeOjVlfx41T + E6NnqiyBtod0/sP8A9hcG5D5g4HAjfY2HnwDnxsrVxGbY2PW17VQhy1QklHrzre9l7eMa0Kh3AE2x8as + n8N8LRVoamqaIh/YxowqeOnGmuDU9PcnZ6upAPkGXsD6ZVCQYLNcRWyOjRn/NSUHa78alWDNjoReLnOA + +u4cG7t9A/PdlBwMoeatsBp4QWDVGBB+6ZpQQ8n/vXk8vwEHvd1jlAx8XQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFeSURBVEhLvVVBboMwEKSteumf2l/wAQ48AAnBpfI30kPL + qR8gp6rqQ3pGHLhGrTiE2N1xvI0xtXCSkpFGnl3t7ngTEJEPRVFIosJZluXoZCJmmrYwCCGuaYAKxdEG + aZreLmsgxN3CGzzpDaSUeoB9MjkGjjJ4KNfqHJoxB5D7R5IkOzwVwzCo+6ImPksU47S1nXNjaLDrOv10 + 0cxtnuevMPh99P7TwMwctAETBlx4Kvk/YS69gRwZ9H2vxOqNGmpdvDc7aDvnxtDobdvWb1DXtWqaRuIW + WBWnre2cG0Ojt6qqqcGSHG0wp+2cG/v0ZTbQwgDadyM758Y+jYE6YZOLQuEOZY23GR+WNSUmJmAo/uol + DsSV+WGmQBGjev9ULw6RY+C2+EiZ1jDYBnM422BuA9TGcXxjWsPgbuC+uRwDp26wMf2zyLLsm1qu9p2B + oFuRR7nBJjP8Ij6aNgdR9APhwOEjfdyYxAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADqSURBVEhLzZYxCoMwFIY9T+9Q8BiC3iAudmj3Utw8jD2A + Im7duvUEnTt2iHnllwaMRnmxSv3ghwwv73uPLPF2x1zuT1daI+jt4fB8vVcJehuC8yWlKIooCAJWUJsk + B7rdH0ZjnYEgDENyAYKqqkgIYZUMBJjKBdQ3TUN1XVsliwlAWZYk4tiQTAqyLBuNpisARVG0m7AEHFDf + D96FJbBNrqNRShmRUvIFHH4S2CafCsB7oAdLMAcngW3KqYBtbTAXJ4Hv+9/TOP0atgAXuYJuHUugL7kG + bGMDDVfQxUkwh/8Klk4rWPfbkssPTk9lK76uM3AAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABjSURBVEhLY9Aq2/jHtnzTf1pgkNkMIMazDz9ogkFm09+C + 8vLy/8XFxWRjZLOwWgBSRC4YfBb09PQQhWFg1AcEwagPcGIYGPUBQTACfUAqGDwWUIKRzcJqATUxfSyg + bbNl4x8AxmOG+ql7uj8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHASURBVEhLnZPPKwRhHMa3/Dq5+AecuTi4oJkRJ38AN0Up + F0nEzsjBgbgoyR1HlsK8m/w4cKFIy8FZ4ciNKOL1PuO7NXmfNbM+9elt3u/7PLM7u5MpRU9PrsLx871u + oEIvq+4bBlY/vEDpudyVxhpdm33McQ7nJZpMy+h+nZNVZyj67dbprbUHcR45qfgb86n2WEn3/JGe3ShE + K5sjJxWl8SaVy8Lw+e1dA6xsHmnyUsXx/HCZBo1x2DzS5KWK40yoCxo0xmFziLxUcZwx9cSCMA6bQ+Sl + iuMNqE8WhHHYPNLkpcqmffq4koaMnVN5fX37pF/MD4wV1+wclDqb5sHLKhaIm109p/tF241SZ1O8wUHh + 4V/mL+6im0idDfsGeBR9iyfaXzvXM+sFPb95Fa24xj57VFJnk+YRpVHqbBqnc9UsUK5SZ9M1vFfDAuUq + dTY/f9OVLxZK78qX1HH+epPTmPgmO4E6ZMG0Ii9VHNcPh1gwrchLFadtYqe2NVCPLJwkcshLVWlcf7ef + FSSJnFQk4/pqiZWUEuclmh43CMebRrbfWGFRzHFOIuXTMZWvd4JwwZTdGF9j3mAfczlKyGS+AfERuLY2 + +SnbAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGjSURBVEhLxVRLS8NAEF7UnkVRPHr32oNCsgmIRy8iQVHE + W8++mt0iEgTR+hM8eRfFZreI4ME/IAqK+h8En1efmXaiyzapSWn0gyGTeXzfzpAsyQKjJX8A3fYCiCkT + 29Q9eMYQIRaXn6oNzu++Yiox7CXRR7koG1w8hTyYIoSyrQ8wCMIzjYBZOuo3mdgMel90HixpTQCIKZMb + w0w8qr2qj6XpVmTyag8QWwv7D3qfbtiSbIKRxeNe6vrrBqvvWK2P87G1uUDtxFyuUebf63WJBSCgWihg + cbFqLVfu9HxSq5EDGk4xLt5hxw1x7V2NR/lIHyHQxFfff6tH+j8QgEAWhvT/MMEQl2/BnXKpx9Ma0kf/ + B2PspNtgcsIoinOLl79Pr9aFzzgf6aMFMEUcZ68zuH4ngx/tQq9LLAAB1aKuCts77bJ51UmzOmxtPkED + PK8juPenjBUQ+lld2Kv62JFSAAETma6cNt3Kldqr+liabEVxyBfOcpYrZgzu3+g8WNLaBDpqH0NRzlJX + XIerw1R7kS/s5Gwu5szi4S2GsgGsru4R8gVpsy89PfCVKAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHLSURBVEhLY6AZqK9ngrKoC4zTzrDalG0OsS3bdAIqRB1g + X7+fw7Z8U4pdxeYbQPwfhKFSlAH7/PUCduWbyy1KNz2zLW//BzIYRIMwVAl5wKlqszTQxZ02RZveIBtK + sQU2FVvV7Mo2T7esWPsFFhS4MFQLMeA/o1XpBhOb8k0rtSo2/0F3KS42VDMeAExq9hVbXGzLN+yx9dn0 + F9kAiiwIDV3FbFuxKdymdPMpO9/Nf0GayMFQ4xDAtXgnNzD9ptuVbryJzUXIfGRxXGyosQwMFoU7hIAp + ohSIn+LTgMzHpQaZDTbctnxjg23BmnfEaEDmE6MebIFdxZY064rN9+0qOsCS1MRgC0DAI3cbu33Fplib + sg2X8bkImY9LDTIbajwCAMsTFpvKTQHAjHQEpJBSDDUWO7Ar3eBoXb5xh3z8/N8wFyG7EEbjY0ONwg/s + yjcY2pRtXGGbteknsgFUswAGgEWFum355qn6+eu/gwwhBkO1kgZsq7ZLgkpRu4qNb7G5GpkN1UIesKnY + ImhbtrESVA/QxAIYABUvoLxkV7LhLshwZAxVQh0ASuK2pZujgbXbWar6AAMAi3ig672sSzcdhIrQCvxn + ZGBgYAAAk+6LMhigUAQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhLYwCD+nomCINGwLZs0wmbss0hxmlnWKFC1AV2 + FZv/Q/EN2/JNKfb1+zmgUtQBtuXt/0AYZAmItijd9MyufHO5ff56AagSygC6BTC2TdGmN0AfdTpVbZaG + KiUPQIMHJ7asWPvFrmzzdJuKrWpQLaQBXD5AZ2tVbP5jU75ppVXpBhMGhv+MUO2EAT5DkdlwMZ9Nf23L + N+yxr9jiQlQSB2kkC/tu/mtTuvmUbcWm8NDQVcxQ4zABuktxsZHF0Pl2pRtvAvNTumvxTm6osQiAVQOp + FsDZm54CcalF4Q4hqPHUtgDKLljzzrZ8YwPYApAAdXHHP+uKzfftKrakgS3A6Qo0NrIYOh/GtinbcNm+ + YlOsR+42drDhIACSpBiXbT5iU7kpAFiOsUCNRQB8LkJmI4uBsHz8/N/W5Rt32JVucIQahR3ANBBtQdam + nzZlG1fYlW8whBqBH4A0EoP189d/ty3fPBVYVKhDtRIH0F2Kyd74FlSq2lZtl4RqIQ1gN3Tzf1C9YFu2 + sdKmYosgVCl5AGQYCi7ZcBeUhrFme3IA3NXlm8/alm6OxprUKAHWpZsOAl3uRcPWBQmVB0mAgQEAib+L + MlwLRhAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFxSURBVEhLY4ABp8qN4lAmbYBt2dqPtuWbOmlmkV3F5v8g + bF2x6YNtxaYO+6JNIlApooF8/PzfMHNgGCoF9EF5+z+QAIiGsj/ZlG9qs6ncJgpVQhCALEA3ByqF1QIw + 27x803vb8s0txFiE1wKQIF5csOYd2KKKLYJQLRiA1CDCYINo63JgHJVtbLQo3CEE1QoHZAURMhtZzLZ8 + 41vbis21yD6iLIhw4eINr+wqNlWDzKBKEMHE0PngOPLZ9BddHGo8FSzAwYYaTwcLQIK0wFDjh4APgGXY + Ja2KzX/QxaHGk+uDjn/WpZvOWZdvDnQp381P7Yx2Hli8B4eGrmKGGkGdjAYKCvuKLaH29ftZoFrhgIKM + BgyKkk2XgPVEOEN9PRNUCwYgK4hsyjZctinbHIHNxeiApCCyrth4za5sU5Rx2hlWqBKCgIgg6vhnW7bp + qm3p5mjkyCMW4PWBTen66/YVm2KN02YS7WKSAClBQTxgYAAABCkvPSZ/WZoAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMHSURBVEhLtVXfS5NRGA6KLuqiKCSCqIsi6Da69qL+Bm/S + EHXTObWJc6Dl9lmDwLAwKbFQK60M6qIfhBJlSRAIZhRrjtYP56a1YaUmtWx9p+fd957P8zlFTXrg9T0/ + nvM873v0O65ZDE6nc1dxcbHHbrc/QA6XlJQkMH6PeIh5nc1m28vUlaGgoCALApdyc3OTENUpHA6HUDPH + LOI6jHbw0aUB4QMQiZDQcqOwsDCOfJAlFgda349qpmSFdJjzjKadGjlzviXa0NA0TvP5HOoWxR1iqUwU + FRVtAfGDPEBRXl4+8bS///NoNKoLBePjn/TAm6BwuVw/VT4iAZOdLGkFiE1EluHxeGLhcDhFgvF43GIg + 57FYTG9tbf2jnkPcZMk5VFRUZME93TaRysrKJkOhUIqEloqxsTFd0zTzuvLz83+XlpbuY2kD2LBxi2nS + nZ7eBB1OlwuoY4Kcy/w2/M7sgDRwTRpLG8BCpyTA/df09xmL6FIGOn7WnzhpmkDvMUsbwOJz2UFVVe0E + HcyuuSeya+4jKKtjdc2YE7/j6jWzA0SUpQ3A8ZU0wH1OUFWZYosbELpv31UNvrG0AWw8kwa1x45P/0sH + 7Vc6TQN8T6MsbQAbbbRJgfcnNTk1bbl3dUyQc5l1/BK8Pi19nuMRSxvAwmHZARF6entXZBAcHjbFSQNX + XsfSBrCwCZtfJKmysjIVCASWZZBMJoXf7zcNELO4hT0sPQc4+2QHlL1erx4MBhf8uGREIhG9ubnZrJxz + F0tagS420F+TJFO43W7R1/dEfByJWDqI4esdfDEkfD6fKS4N8AsewEuwlWWtwOZukOi1VFsWR10u0XC6 + UVy42CYaz54T7upq+iAtHDVQ6CA9nixrBZlQJ7IitToZcm0hjhxDZ4j+cbGsFXl5eRtBqgfh6/zDqgiq + /IHcArFb8/d4/BKcbSybCbz3m0E8AmIHMj0nAeQBdNiNsRPC24mXk5OzHus3SHSBeJ0WWy1gshamXYiM + 62LK6oF3bB26u/zfDAhs0j53RQ7xFyrTKuCCZJirAAAAAElFTkSuQmCC + + + + + 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= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGWSURBVEhLYxgFQxcIRS76r5K64j+D/2wvqBB5oNt1JzeU + CQcgw00K1/8XCF9QBRUiHzTZL7wLZYIBzHDl5BXboELkgxanpWZNjov/Q7kMglFLwIbDMCiIQFg5duEH + lZTlPlBlxIN628VPkC0AAZgPTArXrTbMX5uukLJsHohvlL/2P5DdDlVGGABdHwoyHN0CEIBZopC0RB4q + xGCUs/YJyBLl1OVWUCH8oN5x9jdcFoCAMjBoQJYIhC3SBwt4TGQH+6Rw/SkwHx9ocViSBzMclwVwkDaT + FcpiUExZtg9kCZSLGyAb3uRAwAIkIBK22AjkMygXOwAa2I3Lgq6ursNQJnlgVegqZhTD0Szo6en639PT + A8LhUCHSQIPj4uVEWvC/u7v7ZH19PRtUijDosl8lgWE4HguQcDZUGj9otF90kEwLQPgOEItAlWGCFvsl + BlgNB2HiLABjYLA1QJWiAmCRcAer4SBMggVQ/LK3t1cFqoWBodl+oQtWg2GYdAtgeDJYU5P94odYDYZh + 8i0A4d9QrUMWMDAAAILEw1YcpEAAAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGVSURBVEhLYxgFgxz4z/ZSSV3xXyhy0X+oCPWBQPiCKpPC + 9Vgt6XbdyQ1lUgaUk1dsw2ZJk/3Cu1AmaUAlZbmPcuzCD6DgAWGQ4TAsGLUEbkmT4+L/LU5LzaBc4oBC + yrJ2o/y1YMOA7HmG+WvTTQrXrcbqA6AF9baLn0C5hIFy6nIrkOFGOWvhmhSSlshjMxwEQBZAfREKFcIP + jArXnwIZxuAxkR3EFwhbpA/iKwODCawADcAsqHec/Q0qhB+ADFNMWbYPymVgSJvJCmVhBTALwL5wWJIH + FcYNQC4VCVtsBOUSBE0OCAtAGCpMGejq6joMZWJYAOR3Q6VIBz09PeFA/L+npwuRTNEtAOJVoauYodLE + gfr6erbu7u6TEMMJW9DguHg5VJowABqYjTCYOAtAuMt+lQRUCXYANEgEiO+gGky8BY32iw5ClWACYHA0 + YDcYhglbAMIt9ksMoMogoLe3VwVowEtMA9ExcRYAi5A7UGXgIJmMaRAuTJwFINxsv9AFZPhvTEPwYeIt + aLJf/BCqdMgCBgYAkcvDVut4kSMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE0SURBVEhL7ZS7SsRAFIYHrH0sBUEwF/CCL2DlC1gErLZI + dqpcilQWCpnVwmdSLLTRxs7xzPBHx+HsJJvY6QcfJHMO/5+FbMQ/v0JVVRqXlkWsXnE5n7quT/2CIlE6 + j293cDsPKeU7V7CI1ANup9M0zZkJ5wqMy1Tt4mgaWZZ9hArIRxxtDoWe9+GBAi3Tuz0cb4YbHiooDtQT + jsdDb87F6AIyj9Q+RuPww4cKyGeMhqGnv5xQoGWyijAOw4UbMbZwBXly84Lxeiio8IN7sWLhCoz0vzjE + Cg8X3IsVCxduDH6jKKT0Q12xZuHCv4y7Y6x903XdFhfqilULGwzZX1GW5RUX6opVCxfsKlN1glUh2rbd + 5gJ9sW7hQn96/YZV+97npB4S65ZlstJDlkf38760fwUhPgGKJwQTUizyuQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEISURBVEhL7ZK9isJAFIUDW/tYCoJgMgF18QWsfAGLgJVF + xqkmSZHKYoWMWvhMioU2a2NnvEIu6HDJjxmtPHAgE3K+r5hYJhPHcSMMQz87mkuSJD9SykUQBCkI0uy1 + mQBU3sFYYwKA8UcwtrYAAFMKjH1ZAMMJBdRbWQCjsQ7Ja2lBFEUjz/OuFCSvhQL4YCiEuFDjMs0VUIOq + rXwH3zxl5qh/zlRap3O2yr8D31k3Z7baUeMyLRRg5q5qwWCvA4paWoAR7qbNu+pAwahWFmB8W3UAcNSB + el8WYARb2T5bnij4vbUFGLijHvXXGRNguJMMHkXGBRjhql/O/s5vE2Bkf9vKHj8Ry7oBzv0EE7Wccj4A + AAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALCSURBVEhLpVY9aBRBFD5ECxstFLUSC4lyQv72FpvgNYqN + haCNPyjXJMrd7c7MHmoROLTQSgJGELGQoBEi2exeRFuxMY2FiRYWgTRiY6NCIsSY9X1zb87xNncelw8e + 8943733vzcweXMZg0J8+ya6GK6PgYOHxL+KvMtU9HG/6qSPCxFHxFOJ+Gfa5Kk7AZUW4ppM2g4Hisx8Q + 3MhyMn7Ead3jqFfbi2khiHWwHH5s+CIc57TNwTToL09ldXz9+U5wdT4q56uvt+rEbuB4s/shnlXxClMa + 9CbvwRvLifg4b3UOR0YjfyeNk0Fv5hR4V9SO1PkoyakaXVWUDATxMewFnucKIRKlVELrTXAtQVMu2Q2w + 9ojJ5bofJa4fvsyrJxNDYvJ2Xj3cjRrp+yNWgxdaqBUcVTuhj69mJujbvw+/HtN7qHgBOddUaU1K+UYX + EEg4hjisVCp9ZRr8OXCU28dUGvgN4BRo4IrpV0qUlpWSidQTyzWsmL5QKPyGGHw+zZzlJ77vH2LJNPDj + QgPHj+auiBuXA2pgC9KE6ybGSty65aPBZ5baGL1qpqc3CPdwmCHBeTOZETExVqv5OuJisbiLSzsDrggC + TTZOYndpXW3iEy5rDym9iyQwRjaPImvK1Wq1uoXTNDzP+2ZycALy39IbCOKHOCUNFLSw1HdPXLEpp2Gc + kgY2MQ1PZJ+gwikN0LSXTI6Vp41T0qCHPUOFd+iYC3YDesAvnNIACX0yORDFlZHNUv0op7QG7hvFtpHI + YhAEZ8k/TYN8aN6nvcYX2BFokp+YDMVmShNjbbqW71zWGaigZoTNasyOjY8mdKpbXN4e5XJ5BwotW2mK + Wxo12c4y7UHJPSiga3qAuFKp7KMpFzEpeFqXaO8A9sh/x/w/fyD+i+Hh4W3sapDImGlA4veY1iDuMLvd + g45/HuJsF5jeAJnMH6/FZnT7Gk0JAAAAAElFTkSuQmCC + + + + 128, 20 + + + 233, 25 + + \ No newline at end of file diff --git a/DocumentViewer/DocumentViewer.vb b/DocumentViewer/DocumentViewer.vb new file mode 100644 index 00000000..8a0684c0 --- /dev/null +++ b/DocumentViewer/DocumentViewer.vb @@ -0,0 +1,441 @@ +Imports System.ComponentModel +Imports System.Globalization +Imports System.Text.RegularExpressions +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 + + Public Sub Init(LicenseKey As String) + Dim oLicenceManager As New GdPicture14.LicenseManager() + oLicenceManager.RegisterKEY(LicenseKey) 'Please, replace XXXX by a valid demo or commercial license key. + End Sub + + 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 Load_File_from_Path(filepath As String) + CloseDocument() + _docPath = filepath + ToolStripStatusLabel2.Text = _docPath + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + + GdViewer1.DisplayFromFile(filepath) + GdViewer1.Focus() + UpdateMainUi() + End Sub + + Private Sub CloseDocument() + GdViewer1.CloseDocument() + UpdateMainUi() + End Sub + + Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click + CloseDocument() + + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter + + If OpenFileDialog.ShowDialog() = DialogResult.OK Then + GdViewer1.DisplayFromFile(OpenFileDialog.FileName) + End If + + GdViewer1.Focus() + UpdateMainUi() + End Sub + + Private Function GetDocumentTypeLabel() As String + Dim result As String = "" + Select Case GdViewer1.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 GdViewer1.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 + GdViewer1.DisplayFirstPage() + End Sub + + Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click + GdViewer1.DisplayPreviousPage() + End Sub + + Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click + GdViewer1.DisplayNextPage() + End Sub + + Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click + GdViewer1.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 <= GdViewer1.PageCount Then + GdViewer1.DisplayPage(page) + UpdateaNavigationToolbar() + End If + End If + End Sub + + Private Sub GdViewer1_PageChanged() Handles GdViewer1.PageChanged + UpdateaNavigationToolbar() + End Sub + + Private Sub ChangeZoomValue() + If cbZoom.SelectedIndex <> -1 Then + Select Case CType(cbZoom.SelectedIndex, ZoomMode) + Case ZoomMode.Zoom50 + GdViewer1.Zoom = 50.0F / 100 + Case ZoomMode.Zoom100 + GdViewer1.Zoom = 100.0F / 100 + Case ZoomMode.Zoom150 + GdViewer1.Zoom = 150.0F / 100 + Case ZoomMode.Zoom200 + GdViewer1.Zoom = 250.0F / 100 + Case ZoomMode.ZoomSelectedArea + If GdViewer1.IsRect() Then + GdViewer1.ZoomRect() + Else + GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection + GdViewer1.Focus() + End If + Case ZoomMode.ZoomFitToViewer + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + Case ZoomMode.ZoomFitWidth + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + Case ZoomMode.ZoomFitHeight + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer + End Select + Else + If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then + GdViewer1.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 GdViewer1.AfterZoomChange + UpdateaNavigationToolbar() + If GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then + GdViewer1.MouseMode = ViewerMouseMode.MouseModePan + End If + End Sub + + Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click + GdViewer1.ZoomOUT() + End Sub + + Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click + GdViewer1.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 GdViewer1.PageCount = 0 Then + Return + End If + Using f As New frmViewerPrint(GdViewer1) + f.ShowDialog(Me) + If f.DialogResult <> DialogResult.OK Then + Return + End If + Dim printSettings As frmViewerPrint.PrintSettings = f.printConfiguration + If Not GdViewer1.PrintSetActivePrinter(printSettings.Printer) Then + Return + End If + GdViewer1.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm")) + GdViewer1.PrintSetAlignment(printSettings.PrintAlignment) + Select Case printSettings.Orientation + Case frmViewerPrint.PrintOrientation.AutoDetection + GdViewer1.PrintSetAutoRotation(True) + Exit Select + Case frmViewerPrint.PrintOrientation.Portrait + GdViewer1.PrintSetAutoRotation(False) + GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait) + Exit Select + Case frmViewerPrint.PrintOrientation.Paysage + GdViewer1.PrintSetAutoRotation(False) + GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape) + Exit Select + End Select + GdViewer1.PrintSetCopies(printSettings.Copies) + If printSettings.Copies > 1 Then + GdViewer1.PrintSetCollate(printSettings.Collate) + End If + Select Case printSettings.PagesToPrint + Case frmViewerPrint.PagesToPrint.All + GdViewer1.PrintSetFromToPage(1, GdViewer1.PageCount) + GdViewer1.Print(printSettings.PrintSize) + Exit Select + Case frmViewerPrint.PagesToPrint.Current + GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage) + GdViewer1.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 + GdViewer1.PrintSetFromToPage(pageEnd, pageStart) + GdViewer1.Print(printSettings.PrintSize) + Else + GdViewer1.PrintSetFromToPage(pageStart, pageEnd) + GdViewer1.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 + GdViewer1.PrintSetFromToPage(page, page) + GdViewer1.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 + GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone) + End Sub + + Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click + GdViewer1.Rotate(RotateFlipType.Rotate90FlipNone) + End Sub + + Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click + GdViewer1.Rotate(RotateFlipType.RotateNoneFlipX) + End Sub + + Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click + GdViewer1.Rotate(RotateFlipType.RotateNoneFlipY) + End Sub + + Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded + GdViewer1.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 = GdViewer1.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow) + GdViewer1.SetRegionEditable(searchRegion, False) + If ensureVisibility Then + GdViewer1.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(GdViewer1) + frmSettings.ShowDialog(Me) + End Using + UpdateaNavigationToolbar() + End Sub + + Private Sub UpdateaNavigationToolbar() + Dim currentPage As Integer = GdViewer1.CurrentPage() + tbCurrentPage.Text = currentPage.ToString() + lblPageCount.Text = "/ " & GdViewer1.PageCount.ToString() + If currentPage = 1 Then + btnFirstPage.Enabled = False + btnPreviousPage.Enabled = False + Else + btnFirstPage.Enabled = True + btnPreviousPage.Enabled = True + End If + If currentPage = GdViewer1.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.##%}", GdViewer1.Zoom) + + + Dim widthInches, heightInches As Double + + If GdViewer1.GetDocumentType = DocumentType.DocumentTypePDF Then + widthInches = GdViewer1.PdfGetPageWidth / 72 + heightInches = GdViewer1.PdfGetPageHeight / 72 + Else + widthInches = GdViewer1.PageWidth / GdViewer1.HorizontalResolution + heightInches = GdViewer1.PageHeight / GdViewer1.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(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + " - " + + "Horizontale Auflösung: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI - " + + "Vertikale Auflösung: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI" + + End Sub + + Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + End Sub + + Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click + GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + End Sub + + Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click + GdViewer1.MouseMode = ViewerMouseMode.MouseModeDefault + DefaultToolStripMenuItem.Checked = True + AreaSelectionToolStripMenuItem.Checked = False + PanToolStripMenuItem.Checked = False + AreaZoomingToolStripMenuItem.Checked = False + MagnifierToolStripMenuItem.Checked = False + GdViewer1.Focus() + End Sub + + Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click + GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection + DefaultToolStripMenuItem.Checked = False + AreaSelectionToolStripMenuItem.Checked = True + PanToolStripMenuItem.Checked = False + AreaZoomingToolStripMenuItem.Checked = False + MagnifierToolStripMenuItem.Checked = False + GdViewer1.Focus() + End Sub + + Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click + GdViewer1.MouseMode = ViewerMouseMode.MouseModePan + DefaultToolStripMenuItem.Checked = False + AreaSelectionToolStripMenuItem.Checked = False + PanToolStripMenuItem.Checked = True + AreaZoomingToolStripMenuItem.Checked = False + MagnifierToolStripMenuItem.Checked = False + GdViewer1.Focus() + End Sub + + Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click + GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming + DefaultToolStripMenuItem.Checked = False + AreaSelectionToolStripMenuItem.Checked = False + PanToolStripMenuItem.Checked = False + AreaZoomingToolStripMenuItem.Checked = True + MagnifierToolStripMenuItem.Checked = False + GdViewer1.Focus() + End Sub + + Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click + GdViewer1.MouseMode = ViewerMouseMode.MouseModeMagnifier + DefaultToolStripMenuItem.Checked = False + AreaSelectionToolStripMenuItem.Checked = False + PanToolStripMenuItem.Checked = False + AreaZoomingToolStripMenuItem.Checked = False + MagnifierToolStripMenuItem.Checked = True + GdViewer1.Focus() + End Sub +End Class diff --git a/DocumentViewer/DocumentViewer.vbproj b/DocumentViewer/DocumentViewer.vbproj new file mode 100644 index 00000000..d42336d7 --- /dev/null +++ b/DocumentViewer/DocumentViewer.vbproj @@ -0,0 +1,151 @@ + + + + + Debug + AnyCPU + {0958CDDF-4A16-41F6-8837-8335F71D599C} + Library + + + DocumentViewer + DocumentViewer + 512 + Windows + v4.6.1 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DocumentViewer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DocumentViewer.vb + + + UserControl + + + frmViewerPrint.vb + + + Form + + + frmViewerSettings.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + DocumentViewer.vb + + + frmViewerPrint.vb + + + frmViewerSettings.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/DocumentViewer/My Project/Application.Designer.vb b/DocumentViewer/My Project/Application.Designer.vb new file mode 100644 index 00000000..8ab460ba --- /dev/null +++ b/DocumentViewer/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/DocumentViewer/My Project/Application.myapp b/DocumentViewer/My Project/Application.myapp new file mode 100644 index 00000000..1243847f --- /dev/null +++ b/DocumentViewer/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/DocumentViewer/My Project/AssemblyInfo.vb b/DocumentViewer/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..631187fa --- /dev/null +++ b/DocumentViewer/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' 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: +' + + + diff --git a/DocumentViewer/My Project/Resources.Designer.vb b/DocumentViewer/My Project/Resources.Designer.vb new file mode 100644 index 00000000..f2b580d9 --- /dev/null +++ b/DocumentViewer/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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 + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/DocumentViewer/My Project/Resources.resx b/DocumentViewer/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/DocumentViewer/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DocumentViewer/My Project/Settings.Designer.vb b/DocumentViewer/My Project/Settings.Designer.vb new file mode 100644 index 00000000..a54cb10a --- /dev/null +++ b/DocumentViewer/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DocumentViewer.My.MySettings + Get + Return Global.DocumentViewer.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/DocumentViewer/My Project/Settings.settings b/DocumentViewer/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/DocumentViewer/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/DocumentViewer/frmViewerPrint.Designer.vb b/DocumentViewer/frmViewerPrint.Designer.vb new file mode 100644 index 00000000..9a1feb54 --- /dev/null +++ b/DocumentViewer/frmViewerPrint.Designer.vb @@ -0,0 +1,348 @@ + _ +Partial Class frmViewerPrint + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/DocumentViewer/frmViewerPrint.resx b/DocumentViewer/frmViewerPrint.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/DocumentViewer/frmViewerPrint.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DocumentViewer/frmViewerPrint.vb b/DocumentViewer/frmViewerPrint.vb new file mode 100644 index 00000000..e2d3195d --- /dev/null +++ b/DocumentViewer/frmViewerPrint.vb @@ -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 \ No newline at end of file diff --git a/DocumentViewer/frmViewerSettings.Designer.vb b/DocumentViewer/frmViewerSettings.Designer.vb new file mode 100644 index 00000000..a7312684 --- /dev/null +++ b/DocumentViewer/frmViewerSettings.Designer.vb @@ -0,0 +1,475 @@ + _ +Partial Class frmViewerSettings + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/DocumentViewer/frmViewerSettings.resx b/DocumentViewer/frmViewerSettings.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/DocumentViewer/frmViewerSettings.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DocumentViewer/frmViewerSettings.vb b/DocumentViewer/frmViewerSettings.vb new file mode 100644 index 00000000..e796d7c0 --- /dev/null +++ b/DocumentViewer/frmViewerSettings.vb @@ -0,0 +1,113 @@ +Option Strict On +Option Explicit On + +Imports GdPicture14 + +Public Class frmViewerSettings + + Private ReadOnly _owner As GdViewer + + Private ReadOnly _mouseWheelModes As New Dictionary(Of ViewerMouseWheelMode, String) From { + {ViewerMouseWheelMode.MouseWheelModeZoom, "Zoom"}, + {ViewerMouseWheelMode.MouseWheelModeVerticalScroll, "Scroll"}, + {ViewerMouseWheelMode.MouseWheelModePageChange, "Page change"} + } + Private ReadOnly _documentAlignments As New Dictionary(Of ViewerDocumentAlignment, String) From { + {ViewerDocumentAlignment.DocumentAlignmentBottomCenter, "Bottom center"}, + {ViewerDocumentAlignment.DocumentAlignmentBottomLeft, "Bottom left"}, + {ViewerDocumentAlignment.DocumentAlignmentBottomRight, "Bottom right"}, + {ViewerDocumentAlignment.DocumentAlignmentMiddleCenter, "Middle center"}, + {ViewerDocumentAlignment.DocumentAlignmentMiddleLeft, "Middle left"}, + {ViewerDocumentAlignment.DocumentAlignmentMiddleRight, "Middle right"}, + {ViewerDocumentAlignment.DocumentAlignmentTopCenter, "Top center"}, + {ViewerDocumentAlignment.DocumentAlignmentTopLeft, "Top left"}, + {ViewerDocumentAlignment.DocumentAlignmentTopRight, "Top right"} + } + Private ReadOnly _documentPositions As New Dictionary(Of ViewerDocumentPosition, String) From { + {ViewerDocumentPosition.DocumentPositionBottomCenter, "Bottom center"}, + {ViewerDocumentPosition.DocumentPositionBottomLeft, "Bottom left"}, + {ViewerDocumentPosition.DocumentPositionBottomRight, "Bottom right"}, + {ViewerDocumentPosition.DocumentPositionMiddleCenter, "Middle center"}, + {ViewerDocumentPosition.DocumentPositionMiddleLeft, "Middle left"}, + {ViewerDocumentPosition.DocumentPositionMiddleRight, "Middle right"}, + {ViewerDocumentPosition.DocumentPositionTopCenter, "Top center"}, + {ViewerDocumentPosition.DocumentPositionTopLeft, "Top left"}, + {ViewerDocumentPosition.DocumentPositionTopRight, "Top right"} + } + Private ReadOnly _displayQualities As New Dictionary(Of DisplayQuality, String) From { + {DisplayQuality.DisplayQualityLow, "Low"}, + {DisplayQuality.DisplayQualityBilinear, "Bilinear"}, + {DisplayQuality.DisplayQualityBicubic, "Bicubic"}, + {DisplayQuality.DisplayQualityBilinearHQ, "Bilinear HQ"}, + {DisplayQuality.DisplayQualityBicubicHQ, "Bicubic HQ"}, + {DisplayQuality.DisplayQualityAutomatic, "Automatic"} + } + Private ReadOnly _renderingEngines As New Dictionary(Of PdfRasterizerEngine, String) From { + {PdfRasterizerEngine.PdfRasterizerEngineGdiplus, "GDI+"}, + {PdfRasterizerEngine.PdfRasterizerEngineWPF, "WPF"}, + {PdfRasterizerEngine.PdfRasterizerEngineHybrid, "Hybrid"} + } + Private ReadOnly _displayPageModes As New Dictionary(Of PageDisplayMode, String) From { + {PageDisplayMode.MultiplePagesView, "Multiple pages"}, + {PageDisplayMode.SinglePageView, "Single page"} + } + + Public Sub New(ByVal owner As GdViewer) + InitializeComponent() + _owner = owner + End Sub + + Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load + For Each item In _mouseWheelModes + cbMouseWheelMode.Items.Add(item.Value) + Next + For Each item In _documentAlignments + cbDocumentAlignment.Items.Add(item.Value) + Next + For Each item In _documentPositions + cbDocumentPosition.Items.Add(item.Value) + Next + For Each item In _displayQualities + cbDisplayQuality.Items.Add(item.Value) + Next + For Each item In _renderingEngines + cbPDFRenderingEngine.Items.Add(item.Value) + Next + For Each item In _displayPageModes + cbPageDisplayMode.Items.Add(item.Value) + Next + + cbMouseWheelMode.SelectedIndex = CType(_owner.MouseWheelMode, Integer) + cbDocumentAlignment.SelectedItem = _documentAlignments(_owner.DocumentAlignment) + cbDocumentPosition.SelectedItem = _documentPositions(_owner.DocumentPosition) + cbDisplayQuality.SelectedItem = _displayQualities(_owner.DisplayQuality) + cbPageDisplayMode.SelectedItem = _displayPageModes(_owner.PageDisplayMode) + txtZoomStep.Text = CStr(_owner.ZoomStep) + chkContinuousViewMode.Checked = _owner.ContinuousViewMode + chkEnableMenu.Checked = _owner.EnableMenu + PictureBox1.BackColor = _owner.BackColor + chkIgnoreDocumentResolution.Checked = _owner.IgnoreDocumentResolution + chkEnableDeferredPainting.Checked = _owner.EnableDeferredPainting + + chkAnnotationsDropShadow.Checked = _owner.AnnotationDropShadow + chkHQAnnotationsRendering.Checked = _owner.HQAnnotationRendering + + chkEnableICM.Checked = _owner.EnableICM + + chkPDFDisplayFormFields.Checked = _owner.PdfDisplayFormField + chkPDFEnableFileLinks.Checked = _owner.PdfEnableFileLinks + chkPDFEnableLinks.Checked = _owner.PdfEnableLinks + chkPDFIncreaseTextContrast.Checked = _owner.PdfIncreaseTextContrast + cbPDFRenderingEngine.SelectedItem = _renderingEngines(_owner.PdfRasterizerEngine) + chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + + End Sub + + Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click + + End Sub + +End Class \ No newline at end of file diff --git a/ZooFlow/ClassInit.vb b/ZooFlow/ClassInit.vb index d363b6b5..bda14c5a 100644 --- a/ZooFlow/ClassInit.vb +++ b/ZooFlow/ClassInit.vb @@ -34,6 +34,7 @@ Public Class ClassInit ' === Init Schritte definieren oInit.AddStep("Checking connectivity..", AddressOf CheckConnectivity, True) oInit.AddStep("Initializing User..", AddressOf InitializeUser, True) + oInit.AddStep("Loading 3rd-party licenses", AddressOf Initialize3rdParty, False) ' === Init Schritte definieren AddHandler oInit.ProgressChanged, AddressOf ProgressChanged @@ -43,6 +44,8 @@ Public Class ClassInit End If End Sub + + Private Function SetupDatabase() As Boolean If My.SystemConfig.ConnectionString = String.Empty Then Dim oResult = frmConfigDatabase.ShowDialog() @@ -90,6 +93,20 @@ Public Class ClassInit End If End Sub + Private Sub Initialize3rdParty(obj As Object) + Try + Dim oSql = "SELECT GDPICTURE_LICENSE FROM TBCW_CONFIGURATION" + Dim oDatatable As DataTable = My.Database.GetDatatable(oSql) + + If oDatatable.Rows.Count = 0 Then + Throw New InitException("Konfiguration konnte nicht geladen werden!") + End If + Catch ex As Exception + _Logger.Error(ex) + Throw New InitException("Fehler beim Laden der Konfiguration!") + End Try + End Sub + Private Sub InitializeUser(MyApplication As My.MyApplication) Try Dim oSql As String = My.Queries.Common.FNDD_MODULE_INIT(Environment.UserName)