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

MS ProfileChecking

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-09-12 11:14:29 +02:00
parent 47ef1e6ef4
commit 9b8b8022b4
12 changed files with 166 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
app/DD_Clipboard_Searcher/frmDocView.vb
View File

@@ -23,43 +23,48 @@ 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
Logger.Warn("GD Picture Missing! Please add a license to the Database!")
MsgBox($"Lizenz für den Dokumenten Viewer wurde nicht konfiguriert.{vbNewLine}Bitte wenden Sie sich an Digital Data!", MsgBoxStyle.Exclamation, "Clipboard Watcher")
Me.Close()
Try
If GDPICTURE_LICENSE = String.Empty Then
Logger.Warn("GD Picture Missing! Please add a license to the Database!")
MsgBox($"Lizenz für den Dokumenten Viewer wurde nicht konfiguriert.{vbNewLine}Bitte wenden Sie sich an Digital Data!", MsgBoxStyle.Exclamation, "Clipboard Watcher")
Me.Close()
End If
End If
Dim oLicenceManager As New GdPicture14.LicenseManager()
oLicenceManager.RegisterKEY(GDPICTURE_LICENSE) 'Please, replace XXXX by a valid demo or commercial license key.
Dim oLicenceManager As New GdPicture14.LicenseManager()
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%"},
{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
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
Dim imageListSearchResults As New ImageList
imageListSearchResults.ImageSize = New Size(20, 20)
imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
Dim imageListSearchResults As New ImageList
imageListSearchResults.ImageSize = New Size(20, 20)
imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
UpdateMainUi()
UpdateMainUi()
If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ViewerWindowLocation
End If
If Not ConfigManager.Config.ViewerWindowLocation.IsEmpty Then
Location = ConfigManager.Config.ViewerWindowLocation
End If
If Not ConfigManager.Config.ViewerWindowSize.IsEmpty Then
Size = ConfigManager.Config.ViewerWindowSize
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
If Not ConfigManager.Config.ViewerWindowSize.IsEmpty Then
Size = ConfigManager.Config.ViewerWindowSize
End If
End Sub
Public Sub Load_File_from_Path(filepath As String)
CloseDocument()