Changeset 711 for trunk/Packages/CevoComponents

Timestamp:

Nov 28, 2025, 11:34:48 PM (10 hours ago)

Author:

chronos

Message:

• Fixed: Edit boxes to have black background and blue selection.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1799 +1799 @@
 
 procedure Gtk2DisableControlStyling(WinControl: TWinControl);
-begin
+{$IFDEF LCLGTK2}
+var
+  GtkWhite: string;
+  GtkBlue: string;
+  GtkBlack: string;
+  GtkOrange: string;
+{$ENDIF}
+begin
+  {$IFDEF LCLGTK2}
   // https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/38516
-  {$IFDEF LCLGTK2}
+  GtkBlue := '{ 0.373, 0.467, 0.796 }';
+  GtkWhite := '{ 1.0, 1.0, 1.0 }';
+  GtkBlack := '{ 0, 0, 0 }';
+  GtkOrange := '{ 0.373, 0.465, 0.793 }';
+
   // parse gtkrc from string
   gtk_rc_parse_string(PChar('style "noengine" {' + LineEnding +
-    'engine "" {}' + LineEnding +
+    'engine "" { }' + LineEnding +
+
+    'base[INSENSITIVE] = ' + GtkBlack + LineEnding +
+    'base[PRELIGHT] = ' + GtkBlack + LineEnding +
+    'base[NORMAL] = ' + GtkBlack + LineEnding +
+    'base[SELECTED] = ' + GtkBlue + LineEnding +
+    'base[ACTIVE] = ' + GtkBlack + LineEnding +
+
+    'text[INSENSITIVE] = ' + GtkOrange + LineEnding +
+    'text[NORMAL] = ' + GtkOrange + LineEnding +
+    'text[PRELIGHT] = ' + GtkOrange + LineEnding +
+    'text[SELECTED] = ' + GtkWhite + LineEnding +
+    'text[ACTIVE] = ' + GtkOrange + LineEnding +
+
     '}' + LineEnding +
     'widget "*.your-edit" style "noengine"'));