AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Prepare for Version 2.0.0.0

Browse Source
This commit is contained in:
Jonathan Jenne
2019-07-31 15:37:48 +02:00
parent 257ed65246
commit 71559c9ca5
44 changed files with 13768 additions and 7629 deletions
Download Patch File Download Diff File Expand all files Collapse all files

330
app/DD_Clipboard_Searcher/frmDocView.vb
View File

@@ -23,15 +23,13 @@ Public Class frmDocView
Private _toggleGamma As Boolean = True
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
If GDPICTURE_LICENSE = String.Empty Then
MsgBox($"Lizenz für den Dokumenten Viewer wurde nicht konfiguriert.{vbNewLine}Bitte wenden Sie sich an Digital Data!", MsgBoxStyle.Exclamation, "Clipboard Watcher")
Exit Sub
End If
Dim oLicenceManager As New GdPicture14.LicenseManager()
oLicenceManager.RegisterKEY("0466385611744606151491532") 'Please, replace XXXX by a valid demo or commercial license key.
BookmarksTree1.GdViewer = GdViewer1
tcLeftPanel.Appearance = TabAppearance.FlatButtons
tcLeftPanel.ItemSize = New Size(0, 1)
tcLeftPanel.SizeMode = TabSizeMode.Fixed
SelectSnapIn(0, "Thumbnails")
oLicenceManager.RegisterKEY(GDPICTURE_LICENSE) 'Please, replace XXXX by a valid demo or commercial license key.
Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
{ZoomMode.Zoom50, "50%"},
@@ -47,18 +45,10 @@ Public Class frmDocView
cbZoom.Items.Add(item.Value)
Next
rbAllPages.Checked = True
Dim imageListSearchResults As New ImageList
imageListSearchResults.ImageSize = New Size(20, 20)
imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
lstSearchResults.LargeImageList = imageListSearchResults
lstSearchResults.Groups.Add(New ListViewGroup("SearchResult", "Search result"))
pGamma.Visible = False
tbGamma.Value = CInt(GdViewer1.Gamma * 10)
lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
ResetSearch()
UpdateMainUi()
If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
@@ -79,15 +69,13 @@ Public Class frmDocView
GdViewer1.DisplayFromFile(filepath)
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
Private Sub UpdateMainUi()
Me.Text = "GdPicture.NET " & GetType(GdPictureImaging).Assembly.GetName().Version.ToString() & " - Document Viewer Demo"
If GdViewer1.PageCount = 0 Then
btnClose.Enabled = False
btnOpen.Enabled = True
btnPrint.Enabled = False
btnFirstPage.Enabled = False
btnPreviousPage.Enabled = False
@@ -100,7 +88,6 @@ Public Class frmDocView
btnZoomIn.Enabled = False
btnFitPage.Enabled = False
btnFitWidth.Enabled = False
btnAdjustGamma.Enabled = False
btnRotateLeft.Enabled = False
btnRotateRight.Enabled = False
btnFlipX.Enabled = False
@@ -108,10 +95,8 @@ Public Class frmDocView
tbCurrentPage.Text = "0"
lblPageCount.Text = "/ 0"
cbZoom.SelectedIndex = -1
tbSearch.Text = ""
pSearch.Enabled = False
Else
btnClose.Enabled = True
btnOpen.Enabled = False
btnPrint.Enabled = True
btnFirstPage.Enabled = True
btnPreviousPage.Enabled = True
@@ -124,15 +109,12 @@ Public Class frmDocView
btnZoomIn.Enabled = True
btnFitPage.Enabled = True
btnFitWidth.Enabled = True
btnAdjustGamma.Enabled = True
btnRotateLeft.Enabled = True
btnRotateRight.Enabled = True
btnFlipX.Enabled = True
btnFlipY.Enabled = True
UpdateaNavigationToolbar()
pSearch.Enabled = True
End If
ResetSearch()
End Sub
Private Sub UpdateaNavigationToolbar()
@@ -166,11 +148,11 @@ Public Class frmDocView
heightInches = GdViewer1.PageHeight / GdViewer1.VerticalResolution
End If
Me.ToolStripStatusLabel1.Text = "Type: " + GetDocumentTypeLabel() + " - " +
"Page Size (inches): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Page Size (pixels): " + Trim(Str(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + " - " +
"Horizontal resolution: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI - " +
"Vertical resolution: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI"
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
@@ -178,7 +160,7 @@ Public Class frmDocView
Dim result As String = ""
Select Case GdViewer1.GetDocumentType()
Case DocumentType.DocumentTypeBitmap
result = "Image"
result = "Bilddatei"
Case DocumentType.DocumentTypeMetaFile
result = "Metafile"
Case DocumentType.DocumentTypePDF
@@ -186,16 +168,15 @@ Public Class frmDocView
Case DocumentType.DocumentTypeSVG
result = "SVG"
Case DocumentType.DocumentTypeTXT
result = "Text file"
result = "Textdatei"
Case DocumentType.DocumentTypeUnknown
result = "Unknown"
result = "Unbekannt"
End Select
Return result
End Function
Private Sub CloseDocument()
GdViewer1.CloseDocument()
ThumbnailEx1.ClearAllItems()
UpdateMainUi()
End Sub
@@ -205,11 +186,10 @@ Public Class frmDocView
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
Using frmOpen As New frmGdPictureOpen(GdViewer1)
Using frmOpen As New frmDocViewOpen(GdViewer1)
frmOpen.ShowDialog(Me)
End Using
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
@@ -300,7 +280,7 @@ Public Class frmDocView
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAbout.Click
Using frmAbout As New frmAbout()
Using frmAbout As New frmDocViewAbout()
frmAbout.ShowDialog(Me)
End Using
End Sub
@@ -346,13 +326,6 @@ Public Class frmDocView
GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage)
GdViewer1.Print(printSettings.PrintSize)
Exit Select
Case frmPrint.PagesToPrint.Selection
Dim range As String = GetSelectedItemAsRange()
If Not String.IsNullOrWhiteSpace(range) Then
GdViewer1.PrintSetPageSelection(range)
GdViewer1.Print(printSettings.PrintSize)
End If
Exit Select
Case frmPrint.PagesToPrint.Range
If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
If printSettings.PageRange.Contains("-") Then
@@ -390,38 +363,6 @@ Public Class frmDocView
End Using
End Sub
Private Function GetSelectedItemAsRange() As String
Dim count As Integer = 0
For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
If ThumbnailEx1.GetItemCheckState(i) = True Then
count += 1
End If
Next
If count = 0 Then
If MessageBox.Show("No page has been selected, do you want to save all pages?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
ThumbnailEx1.SetItemCheckState(i, True)
Next
count = ThumbnailEx1.ItemCount
End If
End If
If count > 0 Then
Dim sb As New StringBuilder
For i As Integer = 0 To ThumbnailEx1.ItemCount
If ThumbnailEx1.GetItemCheckState(i) = True Then
If sb.Length <> 0 Then
sb.Append(";")
End If
sb.Append(i + 1)
End If
Next
Return sb.ToString()
Else
Return ""
End If
End Function
Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone)
End Sub
@@ -440,135 +381,13 @@ Public Class frmDocView
Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded
GdViewer1.Focus()
ThumbnailEx1.LoadFromGdViewer(GdViewer1)
UpdateMainUi()
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSearch.Click
If (GdViewer1.GetDocumentType() <> DocumentType.DocumentTypePDF And GdViewer1.GetDocumentType() <> DocumentType.DocumentTypeTXT) Or String.IsNullOrWhiteSpace(tbSearch.Text) Then
Return
End If
ResetSearch()
Dim page As Integer
Dim found As Boolean = False
If rbAllPages.Checked Then
page = 1
Else
page = GdViewer1.CurrentPage
End If
Dim finish As Boolean = False
Dim countResults As Integer = 0
Me.Cursor = Cursors.WaitCursor
searchProgressBar.Value = 1
searchProgressBar.Maximum = GdViewer1.PageCount
searchProgressBar.Visible = True
Dim items As New List(Of ListViewItem)
While Not finish
lblSearchResults.Text = "Find results for page " + page.ToString() + " of " + GdViewer1.PageCount.ToString()
searchProgressBar.Increment(1)
lblSearchResults.Invalidate()
lblSearchResults.Update()
lblSearchResults.Refresh()
searchProgressBar.Invalidate()
searchProgressBar.Update()
searchProgressBar.Refresh()
Dim count As Integer = GetSearchResultCount(page, tbSearch.Text)
If count > 0 Then
found = True
Dim item As New ListViewItem(New String() {"Page " + page.ToString(), count.ToString() + " occurence(s) found"}, 0)
item.Name = "Page" + page.ToString()
item.Tag = page
item.Group = lstSearchResults.Groups(0)
items.Add(item)
End If
countResults += count
page = page + 1
finish = rbCurrentPage.Checked Or page > GdViewer1.PageCount
End While
lstSearchResults.Items.AddRange(items.ToArray())
lstSearchResults.Groups(0).Header = "Search results (" + countResults.ToString() + ")"
Me.Cursor = Cursors.Default
lblSearchResults.Text = ""
searchProgressBar.Visible = False
If Not found Then
MessageBox.Show("No match found", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Function GetSearchResultCount(ByVal page As Integer, ByVal searchedTerm As String) As Integer
Return GdViewer1.GetTextOccurrenceCount(page, searchedTerm, chkCaseSensitive.Checked, chkWholeWord.Checked)
End Function
Private Sub ResetSearch()
btnFindPrevious.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
btnFindNext.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
btnSearch.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
lstSearchResults.Items.Clear()
GdViewer1.RemoveAllRegions()
_currentSearchOccurence = 0
lblSearchResults.Text = ""
End Sub
Private Sub chkWholeWord_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkWholeWord.CheckedChanged
ResetSearch()
End Sub
Private Sub chkCaseSensitive_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkCaseSensitive.CheckedChanged
ResetSearch()
End Sub
Private Sub rbCurrentPage_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbCurrentPage.CheckedChanged
ResetSearch()
End Sub
Private Sub rbAllPages_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbAllPages.CheckedChanged
ResetSearch()
End Sub
Private Sub tbSearch_TextChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbSearch.TextChanged
ResetSearch()
End Sub
Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbZoom.Validating
Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles cbZoom.Validating
ChangeZoomValue()
End Sub
Private Sub lstSearchResults_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lstSearchResults.SelectedIndexChanged
If lstSearchResults.SelectedItems.Count <> 0 Then
GdViewer1.RemoveAllRegions()
Dim item As ListViewItem = lstSearchResults.SelectedItems(0)
Dim page As Integer = CType(item.Tag, Integer)
If GdViewer1.CurrentPage <> page Then
GdViewer1.DisplayPage(page)
End If
Dim occurence As Integer = 1
Dim occurenceLeft As Single
Dim occurenceTop As Single
Dim occurenceWidth As Single
Dim occurenceHeight As Single
While GdViewer1.SearchText(page, tbSearch.Text, occurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight)
AddSearchRegion(occurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, occurence = 1)
occurence = occurence + 1
End While
End If
End Sub
Private Sub btnFindNext_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindNext.Click
Search(True)
End Sub
Private Sub btnFindPrevious_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindPrevious.Click
Search(False)
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)
@@ -577,64 +396,10 @@ Public Class frmDocView
End If
End Sub
Private Function Search(ByVal ascending As Boolean) As Boolean
Dim go As Boolean = True
Dim page As Integer = GdViewer1.CurrentPage
Dim found As Boolean = False
Dim newOccurence As Integer
Dim occurenceLeft As Single
Dim occurenceTop As Single
Dim occurenceWidth As Single
Dim occurenceHeight As Single
If ascending Then
newOccurence = _currentSearchOccurence + 1
Else
newOccurence = _currentSearchOccurence - 1
End If
While go
If GdViewer1.SearchText(page, tbSearch.Text, newOccurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight) Then
If page <> GdViewer1.CurrentPage Then
GdViewer1.DisplayPage(page)
End If
GdViewer1.RemoveAllRegions()
AddSearchRegion(newOccurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, True)
_currentSearchOccurence = newOccurence
found = True
go = False
Else
If rbAllPages.Checked Then
If ascending Then
page = page + 1
newOccurence = 1
Else
page = page - 1
newOccurence = GetSearchResultCount(page, tbSearch.Text)
End If
If page = 0 Or page > GdViewer1.PageCount Then
go = False
End If
Else
go = False
End If
End If
End While
If Not found Then
MessageBox.Show(Me, "No match found !", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Return found
End Function
Private Sub btnClose_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnClose.Click
CloseDocument()
UpdateMainUi()
End Sub
Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
Using frmSettings As New frmSettings(GdViewer1)
frmSettings.ShowDialog(Me)
End Using
ThumbnailEx1.PdfRasterizerEngine = GdViewer1.PdfRasterizerEngine
ThumbnailEx1.PdfIncreaseTextContrast = GdViewer1.PdfIncreaseTextContrast
UpdateaNavigationToolbar()
End Sub
@@ -646,37 +411,6 @@ Public Class frmDocView
GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
End Sub
Private Sub tbGamma_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles tbGamma.Scroll
GdViewer1.Gamma = CSng(tbGamma.Value / 10)
lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
End Sub
Private Sub SelectSnapIn(ByVal num As Integer, ByVal title As String)
tcLeftPanel.SelectedIndex = num
lblSnapInPanel.Text = title
For i As Integer = 0 To pSnapInButtons.Controls.Count - 1
If i = num Then
pSnapInButtons.Controls(i).BackColor = SystemColors.Control
CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.Control
Else
pSnapInButtons.Controls(i).BackColor = SystemColors.AppWorkspace
CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.AppWorkspace
End If
Next
End Sub
Private Sub btnSnapInThumbnails_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInThumbnails.Click
SelectSnapIn(0, "Thumbnails")
End Sub
Private Sub btnSnapInBookmarks_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInBookmarks.Click
SelectSnapIn(1, "Bookmarks")
End Sub
Private Sub btnSnapInSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInSearch.Click
SelectSnapIn(2, "Search")
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
@@ -727,32 +461,6 @@ Public Class frmDocView
GdViewer1.Focus()
End Sub
Private Sub SmallThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles SmallThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(64, 64)
SmallThumbnailsToolStripMenuItem1.Checked = True
MediumThumbnailsToolStripMenuItem1.Checked = False
LargeThumbnailsToolStripMenuItem1.Checked = False
End Sub
Private Sub MediumThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MediumThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(128, 128)
SmallThumbnailsToolStripMenuItem1.Checked = False
MediumThumbnailsToolStripMenuItem1.Checked = True
LargeThumbnailsToolStripMenuItem1.Checked = False
End Sub
Private Sub LargeThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles LargeThumbnailsToolStripMenuItem1.Click
ThumbnailEx1.ThumbnailSize = New Size(256, 256)
SmallThumbnailsToolStripMenuItem1.Checked = False
MediumThumbnailsToolStripMenuItem1.Checked = False
LargeThumbnailsToolStripMenuItem1.Checked = True
End Sub
Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdjustGamma.Click
pGamma.Visible = _toggleGamma
_toggleGamma = Not _toggleGamma
End Sub
Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
ConfigManager.Config.ViewerWindowLocation = Location