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

LCL-GTK2: Don't change parameters of method TGtk2WidgetSet.Polyline. Use a temp variable. Issue #31205, patch from C Western.

Browse Source 
git-svn-id: trunk@53908 -
This commit is contained in:
juha 2017-01-10 10:31:09 +00:00
parent 783241539d
commit c993ba74ff
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6866,7 +6866,7 @@ var
i: integer;
PointArray: PGDKPoint;
DCOrigin: TPoint;
DCOrigin, P: TPoint;
begin
if not IsValidDC(DC) then Exit(False);
@ -6879,9 +6879,11 @@ begin
for i:=0 to NumPts-1 do
begin
if DevCtx.HasTransf then
Points[I] := DevCtx.TransfPointIndirect(Points[I]);
PointArray[i].x := Points[i].x + DCOrigin.X;
PointArray[i].y := Points[i].y + DCOrigin.Y;
P := DevCtx.TransfPointIndirect(Points[I])
else
P := Points[i];
PointArray[i].x := P.x + DCOrigin.X;
PointArray[i].y := P.y + DCOrigin.Y;
end;
// draw line