jj: bugfixes

app/DD_PM_WINDREAM/frmValidator.vb

@@ -1032,6 +1032,18 @@ Public Class frmValidator
                         cmbpanel.DisplayMember = resultDT.Columns(0).ColumnName
                         cmbpanel.ValueMember = resultDT.Columns(0).ColumnName
 
+                        Dim maxWith As Integer = cmbpanel.Width
+                        Using g As Graphics = Me.CreateGraphics
+                            For Each oItem As Object In cmbpanel.Items 'Für alle Einträge...
+                                Dim g1 As Graphics = cmbpanel.CreateGraphics
+                                If g1.MeasureString(Text, cmbpanel.Font).Width + 30 > maxWith Then
+                                    maxWith = g1.MeasureString(Text, cmbpanel.Font).Width + 30
+                                End If
+                                g1.Dispose()
+                            Next oItem
+                        End Using
+                        cmbpanel.DropDownWidth = maxWith
+
                     ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_DATAGRIDVIEW) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
                         'not implemented
                     End If