This commit is contained in:
Jonathan Jenne
2023-11-13 10:32:15 +01:00
parent 3874bc742d
commit 623cf43520
9 changed files with 221 additions and 28 deletions

View File

@@ -5,6 +5,7 @@ Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraSplashScreen
Imports DigitalData.Modules.Logging
Imports EnvelopeGenerator.Common
Imports EnvelopeGenerator.Common.Constants
Imports EnvelopeGenerator.Common.My
Partial Public Class frmEnvelopeEditor
@@ -303,4 +304,14 @@ Partial Public Class frmEnvelopeEditor
pen.Dispose()
End If
End Sub
Private Sub ViewReceivers_InitNewRow(sender As Object, e As InitNewRowEventArgs) Handles ViewReceivers.InitNewRow
Dim oReceiver As EnvelopeReceiver = ViewReceivers.GetRow(e.RowHandle)
Dim oRowCount = ViewReceivers.RowCount
Dim oColorType = DirectCast(oRowCount, ColorType)
oReceiver.ColorType = oColorType
'Dim oColor = Helpers.ColorTypeToColor(oColorType)
'ViewReceivers.SetRowCellValue(e.RowHandle, colColor, oColor)
End Sub
End Class