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

Qt: fixed bug with QPainter translation in TQtWidgetSet.GetClipBox(). fixes #17670

Browse Source 
git-svn-id: trunk@27769 -
This commit is contained in:
zeljko 2010-10-20 06:38:47 +00:00
parent e914afd958
commit 084fed8f6c
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/qt/qtwinapi.inc
View File

@ -2041,11 +2041,11 @@ begin
if not IsValidDC(DC) then
Result := ERROR;
if Result <> ERROR
then with TQtDeviceContext(DC) do
if Result <> ERROR then
with TQtDeviceContext(DC) do
begin
{$ifdef VerboseQtWinAPI}
Write('TQtWidgetSet.GetClipBox FastClip=',
Writeln('TQtWidgetSet.GetClipBox FastClip=',
((vClipRect <> nil) and not vClipRectDirty) );
{$endif}
@ -2064,10 +2064,9 @@ begin
try
QPainter_clipRegion(Widget, ARegion);
GetWindowOrgEx(DC, @Pt);
QRegion_translate(ARegion, -Pt.X, -Pt.Y);
if (Pt.X <> 0) or (Pt.Y <> 0) then
SetWindowOrgEx(DC, Pt.X, Pt.Y, @Pt);
QRegion_boundingRect(ARegion, lpRect);
dec(lpRect^.Right, -Pt.X);
dec(lpRect^.Bottom, -Pt.Y);
finally
QRegion_destroy(ARegion);
end;
@ -2076,7 +2075,7 @@ begin
if vImage <> nil then
lpRect^ := Rect(0, 0, vImage.width, vImage.height);
{$ifdef VerboseQtWinAPI}
WriteLn(' Rect=', dbgs(lprect^));
WriteLn('TQtWidgetSet.GetClipBox Rect=', dbgs(lprect^));
{$endif}
end;
end;
@ -4008,7 +4007,7 @@ var
IntersectRgn, Rgn: QRegionH;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI TQtWidgetSet.IntersectClipRect] ');
WriteLn('[WinAPI TQtWidgetSet.IntersectClipRect] L ',Left,' T ',Top,' R ',Right,' B ',Bottom);
{$endif}
Result := ERROR;
if not IsValidDC(DC) then exit;