paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:20:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: TQtWidgetSet.CreateRectRgn() create region with X=0 and Y=0 and then translate by offset X1 and Y1

Browse Source 
git-svn-id: trunk@30607 -
This commit is contained in:
zeljko 2011-05-07 19:27:55 +00:00
parent b531c7e6c8
commit 6a9535a69a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -757,7 +757,7 @@ function TQtWidgetSet.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
var
QtRegion: TQtRegion;
begin
QtRegion := TQtRegion.Create(True, X1, Y1, X2, Y2);
QtRegion := TQtRegion.Create(True, 0, 0, X2, Y2);
if (X1 <> 0) or (Y1 <> 0) then
QtRegion.translate(X1, Y1);
Result := HRGN(QtRegion);