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

Gtk2: completely fixed LineTo() and MoveToEx() regressions from r39034 #d433d82e1c

Browse Source 
git-svn-id: trunk@39037 -
This commit is contained in:
zeljko 2012-10-10 13:53:37 +00:00
parent 12653c735d
commit 9383f190f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6462,7 +6462,7 @@ begin
if DevCtx.IsNullPen then Exit(True);
FromPt := DevCtx.PenPos;
FromPt := Point(DevCtx.PenPos.X + DevCtx.Offset.X, DevCtx.PenPos.Y + DevCtx.Offset.Y);
LPtoDP(DC, FromPt, 1);
ToPt := Point(X+DevCtx.Offset.X, Y+DevCtx.Offset.Y);
LPToDP(DC, ToPt, 1);
@ -6638,7 +6638,7 @@ begin
begin
if Assigned(OldPoint) then
OldPoint^ := PenPos;
PenPos := Point(X+DevCtx.Offset.X, Y+DevCtx.Offset.Y)
PenPos := Point(X, Y)
end;
end;