paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 17:00:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL gtk2: clean up

Browse Source 
git-svn-id: trunk@48088 -
This commit is contained in:
mattias 2015-03-01 15:59:28 +00:00
parent a473d78540
commit 6c7790212c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2wsdialogs.pp
View File

@ -1163,11 +1163,12 @@ begin
// show palette
gtk_color_selection_set_has_palette(colorSel, True);
// replace palette. it is stored in 'gtk-color-palette' settings
// replace palette. it is stored in 'gtk-color-palette' settings.
// 1. get original palette => we will know colors and replace only part of it
settings := gtk_widget_get_settings(PGtkWidget(colorSel));
new_palette := nil;
g_object_get(settings, PaletteSetting, [@new_palette, nil]);
colors:=nil;
gtk_color_selection_palette_from_string(new_palette, colors, @colors_len);
g_free(new_palette);