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

AJ: ignore offset in Polygon Winding, Region/FillRect should take care of it

Browse Source 
git-svn-id: trunk@1993 -
This commit is contained in:
lazarus 2002-08-17 23:40:33 +00:00
parent 6a8d07fed4
commit 33c0df6f93
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5091,8 +5091,12 @@ begin
GetMem(PointArray,SizeOf(TGdkPoint)*(NumPts+1)); // +1 for return line
for i:=0 to NumPts-1 do begin
PointArray[i].x:=Points[i].x+DCOrigin.X;
PointArray[i].y:=Points[i].y+DCOrigin.Y;
PointArray[i].x:=Points[i].x;
PointArray[i].y:=Points[i].y;
If Not Winding then begin
Inc(PointArray[i].x, DCOrigin.X);
Inc(PointArray[i].y, DCOrigin.Y);
end;
end;
OldNumPts:=NumPts;
@ -7533,6 +7537,9 @@ end;
{ =============================================================================
$Log$
Revision 1.185 2002/11/01 17:55:35 lazarus
AJ: ignore offset in Polygon Winding, Region/FillRect should take care of it
Revision 1.184 2002/11/01 17:26:45 lazarus
MG: fixed GetClipBox