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

MG: from Andrew: style list fixes, autosize for radio/checkbtns

Browse Source 
git-svn-id: trunk@1940 -
This commit is contained in:
lazarus 2002-08-17 23:40:19 +00:00
parent 65c40892a9
commit 98df6bbea2
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2113,13 +2113,17 @@ end;
Handler for style changes. For example the user changes the the theme. Handler for style changes. For example the user changes the the theme.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
Procedure GTKStyleChanged(Widget: PGtkWidget; previous_style : PGTKStyle; Procedure GTKStyleChanged(Widget: PGtkWidget; previous_style : PGTKStyle; Data: Pointer); cdecl;
Data: Pointer); cdecl;
begin begin
EventTrace('style-set', nil); EventTrace('style-set', nil);
if Data<>nil then if Data<>nil then begin
if TObject(Data) is TButton then if TObject(Data) is TButton then
ReleaseStyle('button'); ReleaseStyle('button')
else
ReleaseStyle('default');
end
else
ReleaseStyle('default');
end; end;
{$I gtkDragCallback.inc} {$I gtkDragCallback.inc}
@ -2135,6 +2139,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.107 2002/08/24 06:51:22 lazarus
MG: from Andrew: style list fixes, autosize for radio/checkbtns
Revision 1.106 2002/08/22 16:43:35 lazarus Revision 1.106 2002/08/22 16:43:35 lazarus
MG: improved theme support from Andrew MG: improved theme support from Andrew