paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 09:42:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: show button images depend on system options

Browse Source 
git-svn-id: trunk@22613 -
This commit is contained in:
paul 2009-11-16 04:41:44 +00:00
parent 728cb5d8f6
commit 5dd027e518
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -213,6 +213,12 @@ begin
Result := True;
end;
procedure ButtonImagesChange(ASettings: PGtkSettings; pspec: PGParamSpec; Services: TGtk2ThemeServices); cdecl;
begin
Application.IntfThemeOptionChange(Services, toShowButtonImages);
Services.IntfDoOnThemeChange;
end;
procedure MenuImagesChange(ASettings: PGtkSettings; pspec: PGParamSpec; Services: TGtk2ThemeServices); cdecl;
begin
Application.IntfThemeOptionChange(Services, toShowMenuImages);
@ -226,7 +232,20 @@ var
Widget: PGtkWidget;
Signal: guint;
begin
case AOPtion of
case AOption of
toShowButtonImages:
begin
Widget := GetStyleWidget(lgsButton);
ASettings := gtk_widget_get_settings(Widget);
BoolSetting := True; // default
g_object_get(ASettings, 'gtk-button-images', @BoolSetting, nil);
Result := Ord(BoolSetting = True);
if g_object_get_data(PGObject(Widget), 'lcl-images-change-callback') = nil then
begin
Signal := g_signal_connect(ASettings, 'notify::gtk-button-images', TGCallback(@ButtonImagesChange), Self);
g_object_set_data(PGObject(Widget), 'lcl-images-change-callback', Pointer(Signal))
end;
end;
toShowMenuImages:
begin
Widget := GetStyleWidget(lgsMenuitem);