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

(Qt): Small fix in CreatePolygonRgn()

Browse Source 
git-svn-id: trunk@12138 -
This commit is contained in:
zeljko 2007-09-22 18:26:16 +00:00
parent 589219fcdc
commit 4a83d24899
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtwinapi.inc
View File

@ -654,7 +654,11 @@ begin
end; end;
Poly := QPolygon_create(NumPts, @pts[0]); Poly := QPolygon_create(NumPts, @pts[0]);
try try
QtRegion := TQtRegion.Create(True, Poly, QtWindingFill); {fillmode can be ALTERNATE or WINDING as msdn says}
if FillMode = ALTERNATE then
QtRegion := TQtRegion.Create(True, Poly, QtOddEvenFill)
else
QtRegion := TQtRegion.Create(True, Poly, QtWindingFill);
Result := HRGN(QtRegion); Result := HRGN(QtRegion);
finally finally
QPolygon_destroy(Poly); QPolygon_destroy(Poly);