4 Commits

Author SHA1 Message Date
OlgunR
92bc4c37c7 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo 2025-08-12 10:24:24 +02:00
OlgunR
46b120d3bd Absturz bei Lookupänderungen wird abgefangen - frmLookupGrid 2025-08-12 10:22:54 +02:00
OlgunR
9c4a7057e5 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo 2025-06-23 08:51:52 +02:00
OlgunR
48274219c9 push für marlon 2025-06-23 08:51:35 +02:00
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()