MS Textclipping CustomRibbonGroup

This commit is contained in:
SchreiberM 2021-09-15 11:10:21 +02:00
parent 1f392ca41b
commit 49840b12f7
4 changed files with 14 additions and 3 deletions

View File

@ -680,6 +680,7 @@ Partial Class frmValidator
Me.BarButtonItemAttmt.Id = 27 Me.BarButtonItemAttmt.Id = 27
Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemAttmt.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemAttmt.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt" Me.BarButtonItemAttmt.Name = "BarButtonItemAttmt"
Me.BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' '
'barbtnitmExport 'barbtnitmExport
' '
@ -742,9 +743,11 @@ Partial Class frmValidator
' '
'RibbonPageCust 'RibbonPageCust
' '
Me.RibbonPageCust.AllowTextClipping = False
Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt) Me.RibbonPageCust.ItemLinks.Add(Me.BarButtonItemAttmt)
Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport) Me.RibbonPageCust.ItemLinks.Add(Me.barbtnitmExport)
Me.RibbonPageCust.Name = "RibbonPageCust" Me.RibbonPageCust.Name = "RibbonPageCust"
resources.ApplyResources(Me.RibbonPageCust, "RibbonPageCust")
Me.RibbonPageCust.Visible = False Me.RibbonPageCust.Visible = False
' '
'RibbonPageGroup2 'RibbonPageGroup2

View File

@ -319,7 +319,7 @@
<value>DocumentViewerValidator</value> <value>DocumentViewerValidator</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.3.0, Culture=neutral, PublicKeyToken=null</value> <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.4.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>
@ -1084,6 +1084,9 @@
<data name="RibbonPageGroup3.Text" xml:space="preserve"> <data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Aktionen</value> <value>Aktionen</value>
</data> </data>
<data name="RibbonPageCust.Text" xml:space="preserve">
<value>Custom PageGroup</value>
</data>
<data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="RibbonPageGroup2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

View File

@ -115,6 +115,7 @@ Public Class frmValidator
'pdfxchange = False 'pdfxchange = False
'sumatra = False 'sumatra = False
FormLoaded = False FormLoaded = False
BarButtonItemAttmt.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Error in frmValidation_load1: {ex.Message}") LOGGER.Warn($"Error in frmValidation_load1: {ex.Message}")
End Try End Try

View File

@ -592,8 +592,9 @@ Public Class frmValidatorSearch
Show_File_Properties() Show_File_Properties()
End Sub End Sub
Private Function Get_DocGrid_Layout_Filename(oIndex As Integer) Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
Dim oUserConfigPath = CONFIG.UserConfigPath.Replace("UserConfig.xml", "")
Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CURRENT_ProfilGUID) Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CURRENT_ProfilGUID)
Dim oPath = System.IO.Path.Combine(CONFIG.UserConfigPath, oFilename) Dim oPath = System.IO.Path.Combine(oUserConfigPath, oFilename)
Return oPath Return oPath
End Function End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
@ -602,7 +603,10 @@ Public Class frmValidatorSearch
Sub SaveDocGridLayout() Sub SaveDocGridLayout()
Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex) Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath) If File.Exists(oXMLPath) Then
clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
End If
End Sub End Sub
Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click