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

fix for fpc 1.0.7

Browse Source 
git-svn-id: trunk@3727 -
This commit is contained in:
mattias 2002-12-23 10:23:45 +00:00
parent 4e54229b87
commit 1ad598c9a6
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -209,7 +209,11 @@ begin
gtk_style_set_background (Widget^.theStyle, Widget^.Window, GTK_STATE_NORMAL); gtk_style_set_background (Widget^.theStyle, Widget^.Window, GTK_STATE_NORMAL);
// gdk_window_set_background(Widget^.Window, @PGTKStyle(Widget^.theStyle)^.Base[gtk_widget_state(Widget)]); // gdk_window_set_background(Widget^.Window, @PGTKStyle(Widget^.theStyle)^.Base[gtk_widget_state(Widget)]);
// gdk_window_set_background (Client^.OtherWindow, @PGTKStyle(Widget^.theStyle)^.Base[gtk_widget_state(Widget)]); // gdk_window_set_background (Client^.OtherWindow, @PGTKStyle(Widget^.theStyle)^.Base[gtk_widget_state(Widget)]);
{$IFDEF VER1_0}
gdk_window_set_back_pixmap(Widget^.Window,nil,0);
{$ELSE}
gdk_window_set_back_pixmap(Widget^.Window,nil,false); gdk_window_set_back_pixmap(Widget^.Window,nil,false);
{$ENDIF}
end; end;
procedure GTKAPIWidgetClient_UnRealize(Widget: PGTKWidget); cdecl; procedure GTKAPIWidgetClient_UnRealize(Widget: PGTKWidget); cdecl;
@ -777,6 +781,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.41 2002/12/23 10:23:45 mattias
fix for fpc 1.0.7
Revision 1.40 2002/12/23 10:12:40 mattias Revision 1.40 2002/12/23 10:12:40 mattias
added symlink test and unit types added symlink test and unit types