AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

background color

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-17 14:19:28 +02:00
parent 037b7c6748
commit 8004ce4ffd
3 changed files with 56 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -47,7 +47,7 @@ Public Class ClassControlCreator
Public Class ControlMetadata Public Class ControlMetadata
Public Guid As Integer Public Guid As Integer
Public [ReadOnly] As Boolean Public [ReadOnly] As Boolean = False
End Class End Class
Private Shared Function TransformDataRow(row As DataRow) As ControlDBProps Private Shared Function TransformDataRow(row As DataRow) As ControlDBProps
@ -82,7 +82,6 @@ Public Class ClassControlCreator
.Guid = props.Guid, .Guid = props.Guid,
.ReadOnly = props.ReadOnly .ReadOnly = props.ReadOnly
} }
'ctrl.Tag = props.Guid
ctrl.Name = props.Name ctrl.Name = props.Name
ctrl.Location = props.Location ctrl.Location = props.Location
ctrl.Font = props.Font ctrl.Font = props.Font
@ -93,7 +92,7 @@ Public Class ClassControlCreator
End If End If
If props.ReadOnly Then If props.ReadOnly Then
ctrl.BackColor = Color.Gray ctrl.BackColor = Color.LightGray
End If End If
Return ctrl Return ctrl

42
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -437,26 +437,32 @@ Public Class frmFormDesigner
End Function End Function
Sub SetActiveControlColor() Sub SetActiveControlColor()
CurrentControl.BackColor = Color.DarkOrange If DirectCast(CurrentControl.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
CurrentControl.BackColor = Color.DarkOrange
End If
' Reset Color of all other controls ' Reset Color of all other controls
For Each inctrl As Control In Me.pnldesigner.Controls For Each oControl As Control In Me.pnldesigner.Controls
If inctrl.Name <> CurrentControl.Name Then If oControl.Name <> CurrentControl.Name Then
Dim Type As String = inctrl.GetType.ToString Dim oMetadata = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata)
Select Case Type
Case "System.Windows.Forms.TextBox" If oMetadata.ReadOnly = False Then
inctrl.BackColor = Color.White Dim Type As String = oControl.GetType.ToString
Case "System.Windows.Forms.ComboBox" Select Case Type
inctrl.BackColor = Color.White Case "System.Windows.Forms.TextBox"
Case "System.Windows.Forms.Label" oControl.BackColor = Color.White
inctrl.BackColor = Color.Transparent Case "System.Windows.Forms.ComboBox"
Case "System.Windows.Forms.CheckBox" oControl.BackColor = Color.White
inctrl.BackColor = Color.Transparent Case "System.Windows.Forms.Label"
Case "DD_PM_WINDREAM.ClassControlCreator+LineLabel" oControl.BackColor = Color.Transparent
inctrl.BackColor = inctrl.ForeColor Case "System.Windows.Forms.CheckBox"
Case "DigitalData.Controls.LookupGrid.LookupControl2" oControl.BackColor = Color.Transparent
inctrl.BackColor = Color.White Case "DD_PM_WINDREAM.ClassControlCreator+LineLabel"
End Select oControl.BackColor = oControl.ForeColor
Case "DigitalData.Controls.LookupGrid.LookupControl2"
oControl.BackColor = Color.White
End Select
End If
End If End If
Next Next
End Sub End Sub

38
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -626,7 +626,16 @@ Public Class frmValidator
Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False) Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False)
AddHandler cmb.SelectedValueChanged, AddressOf OnCmbselectedIndex AddHandler cmb.SelectedValueChanged, AddressOf OnCmbselectedIndex
AddHandler cmb.GotFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(cmb.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
cmb.BackColor = Color.Lime
End If
End Sub
AddHandler cmb.LostFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(cmb.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
cmb.BackColor = Color.White
End If
End Sub
#Region "CONTROL LIST" #Region "CONTROL LIST"
Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name) Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name)
@ -754,12 +763,10 @@ Public Class frmValidator
oMyControl = cmb oMyControl = cmb
'add_ComboBox(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "DTP" Case "DTP"
LOGGER.Debug("Versuch DTP zu laden") LOGGER.Debug("Versuch DTP zu laden")
oMyControl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False) oMyControl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False)
'add_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "DGV" Case "DGV"
LOGGER.Debug("Versuch DGV zu laden") LOGGER.Debug("Versuch DGV zu laden")
Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False) Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False)
@ -792,15 +799,24 @@ Public Class frmValidator
End If End If
End If End If
AddHandler lookup.GotFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.Lime
End If
End Sub
AddHandler lookup.LostFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.White
End If
End Sub
'Return filteredData 'Return filteredData
'AddHandler lookup.Leave, AddressOf onLookUp0 'AddHandler lookup.Leave, AddressOf onLookUp0
'add_DGV(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("HEIGHT"), dr.Item("WIDTH"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "CHK" Case "CHK"
LOGGER.Debug("Versuch Checkbox zu laden") LOGGER.Debug("Versuch Checkbox zu laden")
oMyControl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False) oMyControl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False)
'add_Checkbox(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE"))
Case "TABLE" Case "TABLE"
LOGGER.Debug("Versuch Tabelle zu laden") LOGGER.Debug("Versuch Tabelle zu laden")
@ -869,12 +885,18 @@ Public Class frmValidator
Public Sub OnTextBoxFocus(sender As Object, e As EventArgs) Public Sub OnTextBoxFocus(sender As Object, e As EventArgs)
Dim box As TextBox = sender Dim box As TextBox = sender
box.BackColor = Color.Lime
box.SelectAll() If DirectCast(box.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
box.BackColor = Color.Lime
box.SelectAll()
End If
End Sub End Sub
Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs) Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
Dim box As TextBox = sender Dim box As TextBox = sender
box.BackColor = Color.White
If DirectCast(box.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
box.BackColor = Color.White
End If
End Sub End Sub
Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs) Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs)
If ControlHandleStarted = True Then If ControlHandleStarted = True Then