This commit is contained in:
2021-01-12 17:25:58 +01:00
parent ce6c69b742
commit 0a5439e413
14 changed files with 129 additions and 91 deletions

View File

@@ -78,7 +78,7 @@ Public Class GlobixControls
.IndexType = DataType
}
}
oControl.Properties.AppearanceFocused.BackColor = Color.Lime
oControl.Properties.AppearanceFocused.BackColor = Color.LightGray
If Not String.IsNullOrEmpty(Vorgabe) Then
Dim oDefaultValues As New List(Of String)
@@ -105,7 +105,7 @@ Public Class GlobixControls
_Logger.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
If Patterns.HasComplexPatterns(oSql) Then
_Logger.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
_Logger.Debug("sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
Else
Dim oDatatable = My.Database.GetDatatableWithConnection(oSql, oConnectionString)
oControl.DataSource = oDatatable
@@ -157,7 +157,7 @@ Public Class GlobixControls
Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
Dim cmb As ComboBox = sender
cmb.BackColor = Color.Lime
cmb.BackColor = Color.LightGray
End Sub
Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
@@ -333,7 +333,7 @@ Public Class GlobixControls
Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
oTextbox.BackColor = Color.Lime
oTextbox.BackColor = Color.LightGray
oTextbox.SelectAll()
End Sub
@@ -383,7 +383,7 @@ Public Class GlobixControls
oPicker.EditValue = Vorgabe
End If
oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
oPicker.Properties.AppearanceFocused.BackColor = Color.LightGray
Return oPicker
End Function