diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module
index b22297246..40d4354d1 100644
--- a/app/src/gambas3/.src/Project.module
+++ b/app/src/gambas3/.src/Project.module
@@ -1165,14 +1165,13 @@ Public Sub AddCompressedEmblem(hSource As Image) As Image
   Dim hImage As Image
   Dim iCol As Integer
 
+  hImage = hSource.Copy()
   If Application.DarkTheme Then
-    iCol = Color.SetAlpha(Color.TextForeground, 128)
+    hImage.Brightness(0.5)
   Else
-    iCol = Color.SetAlpha(Color.TextForeground, 220)
+    hImage.Brightness(-0.25)
   Endif
 
-  hImage = hSource.Copy()
-  hImage.PaintRect(0, 0, hImage.W, hImage.H, iCol)
   Return hImage
 
 End