From 638395d2fc9ae75a5a344b530bc83669d66ee344 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:40:45 +0000
Subject: [PATCH] changes for fpc 1.1

git-svn-id: trunk@2041 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 44725f1484..fd9a45aee0 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -5185,7 +5185,7 @@ begin
         if Winding then begin
           Tmp := CreateRectRGN(0,0,0,0);
           GetClipRGN(DC, Tmp);
-          RGN := CreatePolygonRgn(Points, OldNumPts, True);
+          RGN := CreatePolygonRgn(Points, OldNumPts, LCLType.Winding);
           ExtSelectClipRGN(DC, RGN, RGN_AND);
           DeleteObject(RGN);
           GetClipBox(DC, @ClipRect);
@@ -7570,6 +7570,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.197  2002/12/27 08:46:32  mattias
+  changes for fpc 1.1
+
   Revision 1.196  2002/12/26 11:00:15  mattias
   added included by to unitinfo and a few win32 functions