Buttuns angepasst farblich sowie FUnktionen erweitert dass Statusse besser erfasst wrden können.

This commit is contained in:
ja
2021-09-17 15:39:52 +02:00
parent 02e126e83a
commit c24d65f339

View File

@@ -54,19 +54,22 @@ Partial Class Kundenbereich_Default
t1.ForeColor = schwarz
End If
If t2.Text = "Erfasst" Then
t2.BackColor = Drawing.Color.DarkGreen
t2.BackColor = Drawing.Color.LightPink
t2.ForeColor = white
ElseIf t2.Text = "Nicht eingetroffen" Then
t2.BackColor = Drawing.Color.DarkRed
t2.BackColor = Drawing.Color.Black
t2.ForeColor = white
ElseIf t2.Text = "Ankunft" Then
t2.BackColor = Drawing.Color.Orange
t2.BackColor = Drawing.Color.DarkBlue
t2.ForeColor = white
ElseIf t2.Text = "Vorbereitet" Then
t2.BackColor = Drawing.Color.OldLace
t2.BackColor = System.Drawing.Color.Brown
t2.ForeColor = white
ElseIf t2.Text = "Vorgeschrieben" Then
t2.BackColor = Drawing.Color.Black
t2.BackColor = Drawing.Color.Purple
t2.ForeColor = white
ElseIf t2.Text = "Freigabe" Then
t2.BackColor = Drawing.Color.DarkOliveGreen
t2.ForeColor = white
ElseIf t2.Text = "Undefiniert" Then
t2.BackColor = Drawing.Color.DarkGray
@@ -262,6 +265,9 @@ Partial Class Kundenbereich_Default
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Cells.Add(tbl_CellStatus)
Case 1
tbl_CellStatus.Text = "Freigabe"
tr.Cells.Add(tbl_CellStatus)
Case 2
tbl_CellStatus.Text = "Nicht eingetroffen"
tr.Cells.Add(Cell)