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

MG: improved theme support from Andrew

Browse Source 
git-svn-id: trunk@1936 -
This commit is contained in:
lazarus 2002-08-17 23:40:18 +00:00
parent 35dae0ba32
commit 72068ba7c7
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -2107,6 +2107,20 @@ begin
Result:=1;
end;
{-------------------------------------------------------------------------------
Procedure GTKStyleChanged(Widget: PGtkWidget; previous_style : PGTKStyle;
Data: Pointer); cdecl;
Handler for style changes. For example the user changes the the theme.
-------------------------------------------------------------------------------}
Procedure GTKStyleChanged(Widget: PGtkWidget; previous_style : PGTKStyle;
Data: Pointer); cdecl;
begin
EventTrace('style-set', nil);
if Data<>nil then
if TObject(Data) is TButton then
ReleaseStyle('button');
end;
{$I gtkDragCallback.inc}
{$I gtkListViewCallback.inc}
@ -2121,6 +2135,9 @@ end;
{ =============================================================================
$Log$
Revision 1.106 2002/08/22 16:43:35 lazarus
MG: improved theme support from Andrew
Revision 1.105 2002/08/22 13:45:58 lazarus
MG: fixed non AutoCheck menuitems and editor bookmark popupmenu