diff options
Diffstat (limited to 'libgtk_kylix/GTKDialogs.pas')
| -rw-r--r-- | libgtk_kylix/GTKDialogs.pas | 5 |
1 files changed, 3 insertions, 2 deletions
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; (********************************************************************************************************************************) |