From 175d64b9fd6a1f7bc92a936df9419cf2974e20c2 Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Sat, 16 Oct 2021 12:53:42 +0200
Subject: [PATCH] Project tree: Compressed files icons are now darker through
 brightness modification.

[DEVELOPMENT ENVIRONMENT]
* BUG: Project tree: Compressed files icons are now darker through brightness modification.
---
 app/src/gambas3/.src/Project.module | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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