AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DocumentViewer: Add method SetViewOnly

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-23 14:30:21 +01:00
parent 590407fbce
commit 27cac7dbf0
1 changed files with 6 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
Controls.DocumentViewer/DocumentViewer.vb
View File

@ -292,7 +292,7 @@ Public Class DocumentViewer
''' True means that all file info should be hidden from the end-user
''' False means the end user may see the filepath or other info about the file
''' </param>
Public Sub RightOnlyView(ViewOnly As Boolean)
Public Sub SetViewOnly(ViewOnly As Boolean)
If ViewOnly Then
buttonPrint.Visibility = XtraBars.BarItemVisibility.Never
Else
@ -301,6 +301,11 @@ Public Class DocumentViewer
_hide_file_info_from_user = Not ViewOnly
End Sub
Public Sub RightViewOnly(ViewOnly As Boolean)
SetViewOnly(ViewOnly)
End Sub
Private Sub UpdateMainUi()
End Sub
@ -356,79 +361,6 @@ Public Class DocumentViewer
End If
GdViewer.PrintDialog()
'Using f As New frmViewerPrint(GdViewer)
' f.ShowDialog(Me)
' If f.DialogResult <> DialogResult.OK Then
' Return
' End If
' Dim printSettings As frmViewerPrint.PrintSettings = f.printConfiguration
' If Not GdViewer.PrintSetActivePrinter(printSettings.Printer) Then
' Return
' End If
' GdViewer.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
' GdViewer.PrintSetAlignment(printSettings.PrintAlignment)
' Select Case printSettings.Orientation
' Case frmViewerPrint.PrintOrientation.AutoDetection
' GdViewer.PrintSetAutoRotation(True)
' Exit Select
' Case frmViewerPrint.PrintOrientation.Portrait
' GdViewer.PrintSetAutoRotation(False)
' GdViewer.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
' Exit Select
' Case frmViewerPrint.PrintOrientation.Paysage
' GdViewer.PrintSetAutoRotation(False)
' GdViewer.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
' Exit Select
' End Select
' GdViewer.PrintSetCopies(printSettings.Copies)
' If printSettings.Copies > 1 Then
' GdViewer.PrintSetCollate(printSettings.Collate)
' End If
' Select Case printSettings.PagesToPrint
' Case frmViewerPrint.PagesToPrint.All
' GdViewer.PrintSetFromToPage(1, GdViewer.PageCount)
' GdViewer.Print(printSettings.PrintSize)
' Exit Select
' Case frmViewerPrint.PagesToPrint.Current
' GdViewer.PrintSetFromToPage(GdViewer.CurrentPage, GdViewer.CurrentPage)
' GdViewer.Print(printSettings.PrintSize)
' Exit Select
' Case frmViewerPrint.PagesToPrint.Range
' If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
' If printSettings.PageRange.Contains("-") Then
' Dim pageStart As Integer = 0
' If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
' Dim pageEnd As Integer = 0
' If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
' If pageEnd < pageStart Then
' GdViewer.PrintSetFromToPage(pageEnd, pageStart)
' GdViewer.Print(printSettings.PrintSize)
' Else
' GdViewer.PrintSetFromToPage(pageStart, pageEnd)
' GdViewer.Print(printSettings.PrintSize)
' End If
' Else
' MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
' End If
' Else
' MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
' End If
' Else
' Dim page As Integer = 0
' If Integer.TryParse(printSettings.PageRange, page) Then
' GdViewer.PrintSetFromToPage(page, page)
' GdViewer.Print(printSettings.PrintSize)
' Else
' MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
' End If
' End If
' Else
' MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
' End If
' Exit Select
' End Select
'End Using
End Sub
Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonRotateLeft.ItemClick