paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 11:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: FScrollX & FScrollY should be applied to painting context only.

Browse Source 
git-svn-id: trunk@17227 -
This commit is contained in:
zeljko 2008-11-04 23:07:09 +00:00
parent 4424f0ec6c
commit 6353e4b2da
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2391,7 +2391,7 @@ begin
Msg.DC := Msg.DC;
with getClientOffset do
SetWindowOrgEx(Msg.DC, -X, -Y, nil);
SetWindowOrgEx(Msg.DC, -(X + FScrollX), -(Y + FScrollY), nil);
// send paint message
try
@ -2542,8 +2542,8 @@ procedure TQtWidget.OffsetMousePos(APoint: PQtPoint);
begin
with getClientOffset do
begin
dec(APoint^.x, x - FScrollX);
dec(APoint^.y, y - FScrollY);
dec(APoint^.x, x);
dec(APoint^.y, y);
end;
end;
@ -2796,7 +2796,7 @@ begin
else
P := QtPoint(0, 0);
R := getClientBounds;
Result := Point(P.x + R.Left + FScrollX, P.y + R.Top + FScrollY);
Result := Point(P.x + R.Left, P.y + R.Top);
end;
procedure TQtWidget.grabMouse;
@ -8309,7 +8309,7 @@ end;
function TQtAbstractScrollArea.getClientOffset: TPoint;
begin
with getClientBounds do
Result := Point(Left + FScrollX, Top + FScrollY);
Result := Point(Left, Top);
end;
function TQtAbstractScrollArea.getClientBounds: TRect;
@ -9180,7 +9180,7 @@ begin
with getClientOffset do
SetWindowOrgEx(Msg.DC, -X, -Y, nil);
SetWindowOrgEx(Msg.DC, -(X + FScrollX), -(Y + FScrollY), nil);
// send paint message
try