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

Qt5,Qt6: proper transform before draw grid at design time. issue #41513

Browse Source
This commit is contained in:
zeljan1 2025-03-26 15:06:44 +01:00
parent 56f5a508e6
commit 5150173131
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt5/qtlclintf.inc
View File

@ -291,20 +291,22 @@ var
X, Y: Integer;
W, H: Integer;
P: TPoint;
R1: TRect;
begin
if not IsValidDC(DC) then
exit;
QtDC.save;
try
R1 := R;
P := Point(0, 0);
SetWindowOrgEx(DC, 0, 0, @P);
W := (R.Right - R.Left - 1) div DX;
H := (R.Bottom - R.Top - 1) div DY;
OffsetRect(R1, -R1.Left, -R1.Top);
W := (R1.Right - R1.Left - 1) div DX;
H := (R1.Bottom - R1.Top - 1) div DY;
for Y := 0 to H do
for X := 0 to W do
QtDC.drawPoint(R.Left + X * DX, R.Top + Y * DY + 1);
QtDC.drawPoint(R1.Left + X * DX, R1.Top + Y * DY + 1);
finally
QtDC.restore;
end;

10
lcl/interfaces/qt6/qtlclintf.inc
View File

@ -291,20 +291,22 @@ var
X, Y: Integer;
W, H: Integer;
P: TPoint;
R1: TRect;
begin
if not IsValidDC(DC) then
exit;
QtDC.save;
try
R1 := R;
P := Point(0, 0);
SetWindowOrgEx(DC, 0, 0, @P);
W := (R.Right - R.Left - 1) div DX;
H := (R.Bottom - R.Top - 1) div DY;
OffsetRect(R1, -R1.Left, -R1.Top);
W := (R1.Right - R1.Left - 1) div DX;
H := (R1.Bottom - R1.Top - 1) div DY;
for Y := 0 to H do
for X := 0 to W do
QtDC.drawPoint(R.Left + X * DX, R.Top + Y * DY + 1);
QtDC.drawPoint(R1.Left + X * DX, R1.Top + Y * DY + 1);
finally
QtDC.restore;
end;