ClipboardWatcher: corporate identity for frmMatch, show overal match and search results for frmTreeview

GUIs.ClipboardWatcher/frmMatch.vb

@@ -32,6 +32,8 @@ Public Class frmMatch
 
     Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
     Private SecondaryFont As New Font("Segoe UI", 10)
+    Private TileForeColor As Color = Color.Black
+    Private TileBackColor As Color = Color.FromArgb(255, 214, 47)
 
     Private OpenForms As New List(Of IResultForm)
     Private ShouldHideInitially As Boolean = False
@@ -179,6 +181,7 @@ Public Class frmMatch
 
     Private Function CreateTile(Profile As ProfileData, CountText As String) As TileItem
         Dim oItem As New TileItem() With {.Tag = Profile.Guid}
+        oItem.AppearanceItem.Normal.BackColor = TileBackColor
         oItem.Elements.Clear()
 
         Dim oNameElement = New TileItemElement With {
@@ -186,6 +189,7 @@ Public Class frmMatch
             .TextAlignment = TileItemContentAlignment.TopLeft
         }
         oNameElement.Appearance.Normal.Font = PrimaryFont
+        oNameElement.Appearance.Normal.ForeColor = TileForeColor
         oItem.Elements.Add(oNameElement)
 
         Dim oCommentElement = New TileItemElement With {
@@ -193,6 +197,7 @@ Public Class frmMatch
             .TextAlignment = TileItemContentAlignment.MiddleLeft
         }
         oCommentElement.Appearance.Normal.Font = SecondaryFont
+        oCommentElement.Appearance.Normal.ForeColor = TileForeColor
         oItem.Elements.Add(oCommentElement)
 
         Dim oCountElement = New TileItemElement With {
@@ -200,6 +205,7 @@ Public Class frmMatch
             .TextAlignment = TileItemContentAlignment.BottomRight
         }
         oCountElement.Appearance.Normal.Font = SecondaryFont
+        oCountElement.Appearance.Normal.ForeColor = TileForeColor
         oItem.Elements.Add(oCountElement)
 
         Return oItem