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

AJ:Minor fixes for Win32 GTK compiling

Browse Source 
git-svn-id: trunk@1942 -
This commit is contained in:
lazarus 2002-08-17 23:40:19 +00:00
parent c0dce55dbc
commit 47b78dc348
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -2150,9 +2150,11 @@ var
Result := True; Result := True;
end end
else begin else begin
{$IfNDef Win32}
gtk_draw_check(Style,aDC.Drawable, State, gtk_draw_check(Style,aDC.Drawable, State,
Shadow, Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y, Shadow, Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
Rect.Right-Rect.Left, Rect.Bottom-Rect.Top); Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
{$EndIf}
Result := True; Result := True;
end; end;
end; end;
@ -4629,17 +4631,19 @@ begin
Widget:=GetFixedWidget(PGtkWidget(aHandle)); Widget:=GetFixedWidget(PGtkWidget(aHandle));
if Widget=nil then Widget:=PgtkWidget(aHandle); if Widget=nil then Widget:=PgtkWidget(aHandle);
{$IfNDef Win32}
if bErase then if bErase then
gtk_widget_queue_clear_area(Widget, gtk_widget_queue_clear_area(Widget,
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height); gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
gtk_widget_queue_draw_area(Widget, gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height); gtk_widget_queue_draw_area(Widget, gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
{$Else}
{ if bErase then if bErase then
gdk_window_clear_area(GetControlWindow(Widget), gdk_window_clear_area(GetControlWindow(Widget),
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height); gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
gtk_widget_draw(Widget, @gdkRect);} gtk_widget_draw(Widget, @gdkRect);
{$EndIf}
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -7467,6 +7471,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.171 2002/10/26 12:32:29 lazarus
AJ:Minor fixes for Win32 GTK compiling
Revision 1.170 2002/10/24 20:59:35 lazarus Revision 1.170 2002/10/24 20:59:35 lazarus
AJ: fixed typo causing gdk cmap error AJ: fixed typo causing gdk cmap error