paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +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^.Y := Round(dy);
end;
cairo_move_to(pcr, X, Y);
FLastPenX := X;
FLastPenY := Y;
dx := X;
dy := 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
//cairo_get_current_point(pcr,@FLastPenX,@FLastPenY);
Result := True;