[Jcl-checkins-diff] SF.net SVN: jcl:[3026] trunk/jcl/source

[<ou...@us...>]

Revision: 3026
          http://jcl.svn.sourceforge.net/jcl/?rev=3026&view=rev
Author:   outchy
Date:     2009-09-29 20:00:11 +0000 (Tue, 29 Sep 2009)

Log Message:
-----------
reported in JVCL discussion forums at SF: wrong parameters for CreatePolygonRgn and CreatePolyPolygonRgn.

Modified Paths:
--------------
    trunk/jcl/source/prototypes/_Graphics.pas
    trunk/jcl/source/vcl/JclGraphics.pas

Modified: trunk/jcl/source/prototypes/_Graphics.pas
===================================================================
--- trunk/jcl/source/prototypes/_Graphics.pas	2009-09-27 00:41:54 UTC (rev 3025)
+++ trunk/jcl/source/prototypes/_Graphics.pas	2009-09-29 20:00:11 UTC (rev 3026)
@@ -2308,9 +2308,9 @@
 begin
   case FillMode of
     fmAlternate:
-      Create(CreatePolygonRgn(Points, Count, ALTERNATE), True);
+      Create(CreatePolygonRgn(Points[0], Count, ALTERNATE), True);
     fmWinding:
-      Create(CreatePolygonRgn(Points, Count, WINDING), True);
+      Create(CreatePolygonRgn(Points[0], Count, WINDING), True);
   end;
 end;
 
@@ -2319,9 +2319,9 @@
 begin
   case FillMode of
     fmAlternate:
-      Create(CreatePolyPolygonRgn(Points, Vertex, Count, ALTERNATE), True);
+      Create(CreatePolyPolygonRgn(Points[0], Vertex[0], Count, ALTERNATE), True);
     fmWinding:
-      Create(CreatePolyPolygonRgn(Points, Vertex, Count, WINDING), True);
+      Create(CreatePolyPolygonRgn(Points[0], Vertex[0], Count, WINDING), True);
   end;
 end;
 

Modified: trunk/jcl/source/vcl/JclGraphics.pas
===================================================================
--- trunk/jcl/source/vcl/JclGraphics.pas	2009-09-27 00:41:54 UTC (rev 3025)
+++ trunk/jcl/source/vcl/JclGraphics.pas	2009-09-29 20:00:11 UTC (rev 3026)
@@ -2306,9 +2306,9 @@
 begin
   case FillMode of
     fmAlternate:
-      Create(CreatePolygonRgn(Points, Count, ALTERNATE), True);
+      Create(CreatePolygonRgn(Points[0], Count, ALTERNATE), True);
     fmWinding:
-      Create(CreatePolygonRgn(Points, Count, WINDING), True);
+      Create(CreatePolygonRgn(Points[0], Count, WINDING), True);
   end;
 end;
 
@@ -2317,9 +2317,9 @@
 begin
   case FillMode of
     fmAlternate:
-      Create(CreatePolyPolygonRgn(Points, Vertex, Count, ALTERNATE), True);
+      Create(CreatePolyPolygonRgn(Points[0], Vertex[0], Count, ALTERNATE), True);
     fmWinding:
-      Create(CreatePolyPolygonRgn(Points, Vertex, Count, WINDING), True);
+      Create(CreatePolyPolygonRgn(Points[0], Vertex[0], Count, WINDING), True);
   end;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.