From 90db8b6652f73ddc335922d3a7c593878d83c45e Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Sat, 4 Jan 2025 20:41:26 +0100
Subject: Basic ListView CSS styling

---
 libgtk_kylix/GTKDialogs.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'libgtk_kylix/GTKDialogs.pas')

diff --git a/libgtk_kylix/GTKDialogs.pas b/libgtk_kylix/GTKDialogs.pas
index dfbe1b2..ff8a0b0 100644
--- a/libgtk_kylix/GTKDialogs.pas
+++ b/libgtk_kylix/GTKDialogs.pas
@@ -135,7 +135,7 @@ end;
 function TGTKColorButton.GetColor: string;
 var c: TGdkRGBA;
 begin
-  FillChar(c, sizeof(TGdkRGBA), 0);
+  Initialize(c);
   gtk_color_chooser_get_rgba(PGtkColorChooser(FWidget), @c);
   Result := string(gdk_rgba_to_string(@c));
 end;
@@ -149,7 +149,8 @@ end;
 
 procedure TGTKColorButton.SetDefaultColor;
 begin
-  gtk_color_chooser_set_rgba(PGtkColorChooser(FWidget), nil);
+  //  No way to reset the widget to an empty state, just set grey
+  SetColor('#EEEEEE');
 end;
 
 (********************************************************************************************************************************)
-- 
cgit v1.2.3