2 Commits

Author SHA1 Message Date
Jonathan Jenne
3e49d66e92 Version 1.9.4.0 2024-01-15 08:57:18 +01:00
Jonathan Jenne
fb7f7aada3 DocumentViewer: hide disabled buttons 2024-01-15 08:56:56 +01:00
2 changed files with 75 additions and 60 deletions

View File

@@ -646,6 +646,14 @@ Public Class DocumentViewer
Return oFormat
End Function
Private Function ToVisibility(pBoolean As Boolean) As XtraBars.BarItemVisibility
If (pBoolean = True) Then
Return XtraBars.BarItemVisibility.Always
Else
Return XtraBars.BarItemVisibility.Never
End If
End Function
Private Sub UpdateMainUi()
Select Case _Config?.Config?.PageFit
@@ -663,68 +671,75 @@ Public Class DocumentViewer
Select Case _ViewerMode
Case ViewerMode.GDPicture
buttonPrint.Enabled = _ToolbarSettings.ShowPrintButton
buttonFitWidth.Enabled = _ToolbarSettings.ShowFitWidthButton
buttonFitPage.Enabled = _ToolbarSettings.ShowFitPageButton
buttonZoomIn.Enabled = _ToolbarSettings.ShowZoomButton
buttonZoomOut.Enabled = _ToolbarSettings.ShowZoomButton
buttonRotateLeft.Enabled = _ToolbarSettings.ShowRotateButton
buttonRotateRight.Enabled = _ToolbarSettings.ShowRotateButton
buttonFlipX.Enabled = _ToolbarSettings.ShowFlipButton
buttonFlipY.Enabled = _ToolbarSettings.ShowFlipButton
buttonSettings.Enabled = _ToolbarSettings.ShowSettingButton
txtSearch.Enabled = _ToolbarSettings.ShowSearchButton
btnSearch2.Enabled = _ToolbarSettings.ShowSearchButton
btnNextHighlight.Enabled = _ToolbarSettings.ShowSearchButton
btnPrevHighlight.Enabled = _ToolbarSettings.ShowSearchButton
buttonFirstPage.Enabled = True
buttonPrevPage.Enabled = True
buttonNextPage.Enabled = True
buttonLastPage.Enabled = True
txtCurrentPage.Enabled = True
ToolbarDocumentViewer.Visible = True
buttonPrint.Visibility = ToVisibility(_ToolbarSettings.ShowPrintButton)
buttonFitWidth.Visibility = ToVisibility(_ToolbarSettings.ShowFitWidthButton)
buttonFitPage.Visibility = ToVisibility(_ToolbarSettings.ShowFitPageButton)
buttonZoomIn.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton)
buttonZoomOut.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton)
buttonRotateLeft.Visibility = ToVisibility(_ToolbarSettings.ShowRotateButton)
buttonRotateRight.Visibility = ToVisibility(_ToolbarSettings.ShowRotateButton)
buttonFlipX.Visibility = ToVisibility(_ToolbarSettings.ShowFlipButton)
buttonFlipY.Visibility = ToVisibility(_ToolbarSettings.ShowFlipButton)
buttonSettings.Visibility = ToVisibility(_ToolbarSettings.ShowSettingButton)
txtSearch.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton)
btnSearch2.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton)
btnNextHighlight.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton)
btnPrevHighlight.Visibility = ToVisibility(_ToolbarSettings.ShowSearchButton)
buttonFirstPage.Visibility = ToVisibility(True)
buttonPrevPage.Visibility = ToVisibility(True)
buttonNextPage.Visibility = ToVisibility(True)
buttonLastPage.Visibility = ToVisibility(True)
txtCurrentPage.Visibility = ToVisibility(True)
Case ViewerMode.RichText
buttonFitWidth.Enabled = _ToolbarSettings.ShowFitWidthButton
buttonFitPage.Enabled = _ToolbarSettings.ShowFitPageButton
buttonZoomIn.Enabled = _ToolbarSettings.ShowZoomButton
buttonZoomOut.Enabled = _ToolbarSettings.ShowZoomButton
buttonNextPage.Enabled = True
buttonPrevPage.Enabled = True
ToolbarDocumentViewer.Visible = True
buttonPrint.Enabled = False
buttonRotateLeft.Enabled = False
buttonRotateRight.Enabled = False
buttonFlipX.Enabled = False
buttonFlipY.Enabled = False
buttonFirstPage.Enabled = False
buttonLastPage.Enabled = False
buttonSettings.Enabled = False
txtCurrentPage.Enabled = False
txtSearch.Enabled = False
btnSearch2.Enabled = False
btnNextHighlight.Enabled = False
btnPrevHighlight.Enabled = False
buttonFitWidth.Visibility = ToVisibility(_ToolbarSettings.ShowFitWidthButton)
buttonFitPage.Visibility = ToVisibility(_ToolbarSettings.ShowFitPageButton)
buttonZoomIn.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton)
buttonZoomOut.Visibility = ToVisibility(_ToolbarSettings.ShowZoomButton)
buttonNextPage.Visibility = ToVisibility(True)
buttonPrevPage.Visibility = ToVisibility(True)
buttonPrint.Visibility = ToVisibility(False)
buttonRotateLeft.Visibility = ToVisibility(False)
buttonRotateRight.Visibility = ToVisibility(False)
buttonFlipX.Visibility = ToVisibility(False)
buttonFlipY.Visibility = ToVisibility(False)
buttonFirstPage.Visibility = ToVisibility(False)
buttonLastPage.Visibility = ToVisibility(False)
buttonSettings.Visibility = ToVisibility(False)
txtCurrentPage.Visibility = ToVisibility(False)
txtSearch.Visibility = ToVisibility(False)
btnSearch2.Visibility = ToVisibility(False)
btnNextHighlight.Visibility = ToVisibility(False)
btnPrevHighlight.Visibility = ToVisibility(False)
Case ViewerMode.Excel
buttonPrint.Enabled = False
buttonFitWidth.Enabled = False
buttonFitPage.Enabled = False
buttonZoomIn.Enabled = False
buttonZoomOut.Enabled = False
buttonRotateLeft.Enabled = False
buttonRotateRight.Enabled = False
buttonFlipX.Enabled = False
buttonFlipY.Enabled = False
buttonFirstPage.Enabled = False
buttonPrevPage.Enabled = False
buttonNextPage.Enabled = False
buttonLastPage.Enabled = False
buttonSettings.Enabled = False
txtCurrentPage.Enabled = False
txtSearch.Enabled = False
btnSearch2.Enabled = False
btnNextHighlight.Enabled = False
btnPrevHighlight.Enabled = False
ToolbarDocumentViewer.Visible = False
buttonPrint.Visibility = ToVisibility(False)
buttonFitWidth.Visibility = ToVisibility(False)
buttonFitPage.Visibility = ToVisibility(False)
buttonZoomIn.Visibility = ToVisibility(False)
buttonZoomOut.Visibility = ToVisibility(False)
buttonRotateLeft.Visibility = ToVisibility(False)
buttonRotateRight.Visibility = ToVisibility(False)
buttonFlipX.Visibility = ToVisibility(False)
buttonFlipY.Visibility = ToVisibility(False)
buttonFirstPage.Visibility = ToVisibility(False)
buttonPrevPage.Visibility = ToVisibility(False)
buttonNextPage.Visibility = ToVisibility(False)
buttonLastPage.Visibility = ToVisibility(False)
buttonSettings.Visibility = ToVisibility(False)
txtCurrentPage.Visibility = ToVisibility(False)
txtSearch.Visibility = ToVisibility(False)
btnSearch2.Visibility = ToVisibility(False)
btnNextHighlight.Visibility = ToVisibility(False)
btnPrevHighlight.Visibility = ToVisibility(False)
End Select
End Sub

View File

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("DocumentViewer")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("1.9.3.0")>
<Assembly: AssemblyTrademark("1.9.4.0")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.3.0")>
<Assembly: AssemblyFileVersion("1.9.3.0")>
<Assembly: AssemblyVersion("1.9.4.0")>
<Assembly: AssemblyFileVersion("1.9.4.0")>