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

ChatControl: Switch colors, less spacing, fix message box

Browse Source
This commit is contained in:
Jonathan Jenne
2020-06-29 15:51:40 +02:00
parent be2f505bde
commit 6250a5eced
2 changed files with 184 additions and 190 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Controls.ChatControl/ChatControl.vb
View File

@@ -433,12 +433,12 @@ Public Class ChatControl
' Eigene Nachrichten
If oIsOwnMessage Then
e.Appearance.BackColor = Color.PaleTurquoise
e.Appearance.BackColor = Color.White
End If
' Andere Nachrichten
If Not oIsOwnMessage Then
e.Appearance.BackColor = Color.White
e.Appearance.BackColor = Color.PaleTurquoise
End If
End Sub
@@ -451,28 +451,19 @@ Public Class ChatControl
' Eigene Nachrichten
If oIsOwnMessage Then
' Benutzername
If e.Column.FieldName = IdentificationColumn Then
e.Appearance.ForeColor = Color.Purple
End If
e.Appearance.BackColor = Color.PaleTurquoise
e.Appearance.BackColor = Color.White
End If
' Andere Nachrichten
If Not oIsOwnMessage Then
If e.Column.FieldName = IdentificationColumn Then
e.Appearance.ForeColor = Color.Red
End If
If Not (IsNothing(oToUser) Or IsDBNull(oToUser)) Then
If oToUser = Username Or oToUser = ConversationIdentification Then
e.Appearance.BackColor = Color.LightSalmon
Else
e.Appearance.BackColor = Color.White
e.Appearance.BackColor = Color.PaleTurquoise
End If
Else
e.Appearance.BackColor = Color.White
e.Appearance.BackColor = Color.PaleTurquoise
End If
End If
End Sub