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

MS: DocumentViewer

Browse Source
This commit is contained in:
SchreiberM
2020-01-28 10:43:16 +01:00
parent 53f3ea4272
commit 540eeae31a
10 changed files with 602 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Controls.DocumentViewer/DocumentViewer.vb
View File

@@ -174,7 +174,7 @@ Public Class DocumentViewer
Dim result As String = ""
Select Case GdViewer.GetDocumentType()
Case DocumentType.DocumentTypeBitmap
result = "Bilddatei"
result = "Imagefile"
Case DocumentType.DocumentTypeMetaFile
result = "Metafile"
Case DocumentType.DocumentTypePDF
@@ -182,13 +182,21 @@ Public Class DocumentViewer
Case DocumentType.DocumentTypeSVG
result = "SVG"
Case DocumentType.DocumentTypeTXT
result = "Textdatei"
result = "textfile"
Case DocumentType.DocumentTypeUnknown
result = "Unbekannt"
result = "Unknown"
End Select
Return result
End Function
Public Sub RightOnlyView(oValueRight As Boolean)
If oValueRight = True Then
btnPrint.Visible = False
Else
btnPrint.Visible = True
End If
End Sub
Private Sub UpdateMainUi()
Exit Sub
@@ -470,11 +478,11 @@ Public Class DocumentViewer
heightInches = GdViewer.PageHeight / GdViewer.VerticalResolution
End If
Me.ToolStripStatusLabel1.Text = "Typ: " + GetDocumentTypeLabel() + " - " +
"Seitengröße (zoll): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Seitengröße (pixel): " + Trim(Str(GdViewer.PageWidth)) + " × " + Trim(Str(GdViewer.PageHeight)) + " - " +
"Horizontale Auflösung: " + Trim(Str(Math.Round(GdViewer.HorizontalResolution, 2))) + " DPI - " +
"Vertikale Auflösung: " + Trim(Str(Math.Round(GdViewer.VerticalResolution, 2))) + " DPI"
Me.ToolStripStatusLabel1.Text = "Type: " + GetDocumentTypeLabel() + " - " +
"Pagesize (zoll): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + " - " +
"Pagesize (pixel): " + Trim(Str(GdViewer.PageWidth)) + " × " + Trim(Str(GdViewer.PageHeight)) + " - " +
"Horizontal resolution: " + Trim(Str(Math.Round(GdViewer.HorizontalResolution, 2))) + " DPI - " +
"Vertical resolution: " + Trim(Str(Math.Round(GdViewer.VerticalResolution, 2))) + " DPI"
End Sub