Set explicit grid column widths and enable auto width
Replaced best-fit columns with fixed widths for GUID, PROFILE_ID, and EMAIL_SUBJECT. Enabled ColumnAutoWidth for improved layout control.
This commit is contained in:
@@ -1067,8 +1067,16 @@ Public Class frmMain
|
|||||||
|
|
||||||
Dim gridView = TryCast(Me.GridView5, DevExpress.XtraGrid.Views.Grid.GridView)
|
Dim gridView = TryCast(Me.GridView5, DevExpress.XtraGrid.Views.Grid.GridView)
|
||||||
If gridView IsNot Nothing Then
|
If gridView IsNot Nothing Then
|
||||||
gridView.OptionsView.ColumnAutoWidth = False
|
gridView.OptionsView.ColumnAutoWidth = True
|
||||||
gridView.BestFitColumns()
|
If gridView.Columns("GUID") IsNot Nothing Then
|
||||||
|
gridView.Columns("GUID").Width = 50
|
||||||
|
End If
|
||||||
|
If gridView.Columns("PROFILE_ID") IsNot Nothing Then
|
||||||
|
gridView.Columns("PROFILE_ID").Width = 50
|
||||||
|
End If
|
||||||
|
If gridView.Columns("EMAIL_SUBJECT") IsNot Nothing Then
|
||||||
|
gridView.Columns("EMAIL_SUBJECT").Width = 300
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|||||||
Reference in New Issue
Block a user