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

Gtk3: fixed moveTo() when handling pen with width > 1. issue #41405

Browse Source
This commit is contained in:
zeljan1 2025-02-04 13:55:21 +01:00
parent 548f2b0657
commit 1a2bdc04d9
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -2741,9 +2741,16 @@ begin
OldPoint^.X := Round(dx); OldPoint^.X := Round(dx);
OldPoint^.Y := Round(dy); OldPoint^.Y := Round(dy);
end; end;
cairo_move_to(pcr, X, Y); dx := X;
FLastPenX := X; dy := Y;
FLastPenY := Y; if CurrentPen.Width > 1 then
begin
dx := X + PixelOffset;
dy := Y + PixelOffset;
end;
cairo_move_to(pcr, dx, dy);
FLastPenX := dx;
FLastPenY := dy;
//TODO: check if we need here cairo_get_current_point or we can assign it like above //TODO: check if we need here cairo_get_current_point or we can assign it like above
//cairo_get_current_point(pcr,@FLastPenX,@FLastPenY); //cairo_get_current_point(pcr,@FLastPenX,@FLastPenY);
Result := True; Result := True;