paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 05:18:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: finish menu change on show menu images option change in gtk2 theme

Browse Source 
git-svn-id: trunk@20202 -
This commit is contained in:
paul 2009-05-25 12:03:58 +00:00
parent 2f572b341b
commit 823051d231
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -1268,6 +1268,7 @@ type
procedure IntfAppMinimize;
procedure IntfAppRestore;
procedure IntfDropFiles(const FileNames: Array of String);
procedure IntfThemeOptionChange(AThemeServices: TThemeServices; AOption: TThemeOption);
public
procedure DoArrowKey(AControl: TWinControl; var Key: Word;
Shift: TShiftState);

13
lcl/include/application.inc
View File

@ -1752,6 +1752,19 @@ begin
TDropFilesEvent(FApplicationHandlers[ahtDropFiles][i])(Self,Filenames);
end;
procedure TApplication.IntfThemeOptionChange(AThemeServices: TThemeServices;
AOption: TThemeOption);
begin
case AOption of
toShowButtonImages:
if ShowButtonGlyphs = sbgSystem then
NotifyCustomForms(CM_APPSHOWBTNGLYPHCHANGED);
toShowMenuImages:
if ShowMenuGlyphs = sbgSystem then
NotifyCustomForms(CM_APPSHOWMENUGLYPHCHANGED);
end;
end;
procedure TApplication.DoArrowKey(AControl: TWinControl; var Key: Word;
Shift: TShiftState);
begin

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

@ -213,9 +213,10 @@ begin
Result := True;
end;
procedure MenuImagesChange(ASettings: PGtkSettings; Services: TGtk2ThemeServices); cdecl;
procedure MenuImagesChange(ASettings: PGtkSettings; pspec: PGParamSpec; Services: TGtk2ThemeServices); cdecl;
begin
//Services.IntfDoOnThemeChange;
Application.IntfThemeOptionChange(Services, toShowMenuImages);
Services.IntfDoOnThemeChange;
end;
function TGtk2ThemeServices.GetOption(AOption: TThemeOption): Integer;