This commit is contained in:
Jonathan Jenne
2021-05-17 10:37:43 +02:00
parent d038beedfe
commit 9d51d4ffb9
16 changed files with 52 additions and 40 deletions

View File

@@ -43,9 +43,13 @@ Public Class ClassDetailPages
Public IsInsert As Boolean = False
Public TabPage As XtraTabPage
Public Name As String
<Description("The Binding Source for the Form")>
Public BindingSource As BindingSource
<Description("The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE)")>
Public DataTable As DataTable
<Description("The TextEdit Control containing the AddedWho value")>
Public AddedWhoEdit As TextEdit
<Description("The TextEdit Control containing the ChangedWhoEdit value")>
Public ChangedWhoEdit As TextEdit
End Class
@@ -80,6 +84,10 @@ Public Class ClassDetailPages
AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus
For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items
If TypeOf oContainer Is EmptySpaceItem Then
Continue For
End If
Dim oControl As BaseEdit = oContainer.Control
AddHandler oControl.GotFocus, AddressOf Handle_Focus
AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged