Source files icons follow dark themes again.

[DEVELOPMENT ENVIRONMENT]
* NEW: Image editor: Add an invert button for testing the dark version of an icon.
* BUG: Project tree: Source files icons follow dark themes again.
* NEW: Project tree: Make bigger source files icons.

app/src/gambas3/.project

@@ -31,7 +31,7 @@ Component=gb.signal
 Description="Integrated Development Environment for Gambas"
 Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe\nTobias Boege"
 Arguments=[["-L"],["-t","/home/benoit/gambas/git/master/app/src/gambas3"],["--help"]]
-Environment="GB_GUI=gb.qt5\n GTK_DEBUG=interactive"
+Environment="GB_GUI=gb.gtk3\n GTK_DEBUG=interactive"
 TabSize=2
 Translate=1
 Language=en

app/src/gambas3/.src/Editor/Image/FImageEditor.class

@@ -3,7 +3,7 @@
 Public Path As String
 Public RichText As String
 
-Public Enum EFFECT_BALANCE, EFFECT_COLORIZE, EFFECT_DESATURATE, EFFECT_TRANSPARENT
+Public Enum EFFECT_BALANCE, EFFECT_COLORIZE, EFFECT_DESATURATE, EFFECT_TRANSPARENT, EFFECT_INVERT
 Private Enum TRANS_FLIP_H, TRANS_FLIP_V, TRANS_ROTATE_L, TRANS_ROTATE_R
 
 Property Read ReadOnly As Boolean
@@ -2645,6 +2645,10 @@ Public Sub ApplyEffect(iEffect As Integer)
     
       hEffect = $hImage.Copy().Erase()
       
+    Case EFFECT_INVERT
+    
+      hEffect = $hImage.Copy().Invert(True)
+      
   End Select
   
   If $hSelect Then
@@ -3212,6 +3216,9 @@ Public Sub ExecAction(sAction As String)
     Case "transparent"
       ApplyEffect(EFFECT_TRANSPARENT)
       
+    Case "invert"
+      ApplyEffect(EFFECT_INVERT)
+    
   End Select
   
 End

app/src/gambas3/.src/Editor/Image/FImageProperty.form

@@ -241,19 +241,26 @@
         ToolTip = ("Make transparent")
         Picture = Picture["icon:/small/transparency"]
       }
+      { btnDarkTheme ToolButton btnAction
+        Name = "btnDarkTheme"
+        MoveScaled(24,0,4,4)
+        Tag = "invert"
+        ToolTip = ("Invert colors for dark themes")
+        Picture = Picture["icon:/small/invert"]
+      }
       { Separator5 Separator
-        MoveScaled(25,0,1,4)
+        MoveScaled(35,0,1,4)
       }
       { btnLineCap ToolButton
-        MoveScaled(27,0,4,4)
+        MoveScaled(37,0,4,4)
         ToolTip = ("Line cap")
       }
       { btnLineJoin ToolButton
-        MoveScaled(33,0,4,4)
+        MoveScaled(43,0,4,4)
         ToolTip = ("Line join")
       }
       { btnFillRule ToolButton
-        MoveScaled(39,0,4,4)
+        MoveScaled(49,0,4,4)
         ToolTip = ("Fill rule")
       }
     }
@@ -596,9 +603,9 @@
           Text = ("Grid resolution")
         }
         { txtGridRes SliderBox
-          MoveScaled(29,0,26,4)
+          MoveScaled(38,0,17,4)
           MinValue = 4
-          MaxValue = 512
+          MaxValue = 128
           Step = 4
           Value = 64
         }
@@ -611,7 +618,7 @@
           Text = ("Grid snap")
         }
         { txtGridSnap SliderBox
-          MoveScaled(29,0,26,4)
+          MoveScaled(38,0,17,4)
           MinValue = 1
           MaxValue = 512
           Step = 8

app/src/gambas3/.src/Project.module

@@ -1205,6 +1205,7 @@ Public Sub MakeModuleIcon(sModule As String, iSize As Integer, Optional bStartup
   If Not hImage Then
     
     hImage = Image.Load("img/module" &/ sModule & ".png").Stretch(iSize, iSize)
+    If Application.DarkTheme Then hImage = hImage.Invert(True)
 
     'If bExported Then MakeExportedIcon(hImage)