Compare commits

...

4 Commits

2 changed files with 11 additions and 5 deletions

View File

@ -66,7 +66,7 @@ Public Class DocumentViewer
Private Sub DocumentViewer_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub DocumentViewer_Load(sender As Object, e As EventArgs) Handles Me.Load
UpdateMainUi() UpdateMainUi()
End Sub End Sub
'hallo
Public Class ToolbarSettings Public Class ToolbarSettings
Public Property ShowPrintButton As Boolean = True Public Property ShowPrintButton As Boolean = True
Public Property ShowFitWidthButton As Boolean = True Public Property ShowFitWidthButton As Boolean = True

View File

@ -98,10 +98,16 @@ Public Class frmLookupGrid
_View.BestFitColumns() _View.BestFitColumns()
' Datenspalte zusätzlich in der Breite anpassen ' Datenspalte zusätzlich in der Breite anpassen
If _View.Columns.Count = 0 Then Try
Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn) If _View.Columns.Count = 0 Then
oDataColumn.BestFit() Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn)
End If oDataColumn.BestFit()
End If
Catch ex As ArgumentOutOfRangeException
Catch ex As Exception
End Try
End Sub End Sub
Private Sub frmLookupGrid_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmLookupGrid_Shown(sender As Object, e As EventArgs) Handles Me.Shown
BringToFront() BringToFront()