2023-09-13

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -1,4 +1,6 @@
 Imports System.ComponentModel
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraSplashScreen
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
@@ -217,4 +219,16 @@ Partial Public Class frmEnvelopeEditor
             }
         oForm.ShowDialog()
     End Sub
+
+    Private Sub GridReceivers_PaintEx(sender As Object, e As DevExpress.XtraGrid.PaintExEventArgs) Handles GridReceivers.PaintEx
+        Dim grid As GridControl = sender, view As GridView = Nothing
+
+        If TypeOf sender Is GridControl AndAlso TypeOf grid.MainView Is GridView Then
+            view = grid.MainView
+            Dim pen = New Pen(Color.Gainsboro, 2)
+            Dim info = view.GetViewInfo()
+            e.Cache.DrawRectangle(pen, info.Bounds)
+            pen.Dispose()
+        End If
+    End Sub
 End Class