Fix Colum Detail form

2023-05-23 11:54:31 +02:00
parent bd35cccdb1
commit a4b44bc5c3
4 changed files with 299 additions and 372 deletions
--- a/app/TaskFlow/frmValidator.vb
+++ b/app/TaskFlow/frmValidator.vb
@@ -1200,11 +1200,11 @@ Public Class frmValidator
    End Sub

    Public Sub OnTextBoxFocus(sender As Object, e As EventArgs)
-        Dim box As TextBox = sender
+        Dim oTextbox As TextBox = sender

-        If DirectCast(box.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
-            box.BackColor = Color.LightSteelBlue
-            box.SelectAll()
+        If DirectCast(oTextbox.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
+            oTextbox.BackColor = Color.LightSteelBlue
+            oTextbox.SelectAll()
        End If
    End Sub