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

gtk: don't crash on polygon when pen is clear, brush is not clear and winding fill mode is used (#0012759)

Browse Source 
git-svn-id: trunk@17721 -
This commit is contained in:
paul 2008-12-08 07:23:13 +00:00
parent d094e7acee
commit a3e167cc37
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7165,6 +7165,7 @@ begin
if NumPts <= 0 then Exit(True);
DCOrigin := DevCtx.Offset;
OldNumPts:=NumPts;
// create the PointsArray, which is a copy of Points moved by the DCOrigin
// only if needed
@ -7180,8 +7181,6 @@ begin
PointArray[i].y := Points[i].y + DCOrigin.Y;
end;
OldNumPts:=NumPts;
if (Points[NumPts-1].X <> Points[0].X)
or (Points[NumPts-1].Y <> Points[0].Y)
then begin