paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:16:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: simplified code

Browse Source 
git-svn-id: trunk@62899 -
This commit is contained in:
zeljko 2020-04-06 12:39:09 +00:00
parent 6ae0f6b158
commit f49d5ee891
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -747,14 +747,11 @@ end;
------------------------------------------------------------------------------}
function TQtWidgetSet.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
var
QtRegion: TQtRegion;
begin
QtRegion := TQtRegion.Create(True, X1, Y1, X2, Y2);
Result := HRGN(QtRegion);
Result := HRGN(TQtRegion.Create(True, X1, Y1, X2, Y2));
{$ifdef VerboseQtWinAPI}
WriteLn('Trace: [WinAPI CreateRectRgn] Result: ', dbghex(Result),
' QRegionH: ', dbghex(PtrInt(QtRegion.Widget)));
' QRegionH: ', dbghex(PtrUInt(TQtRegion(Result).Widget)));
{$endif}
end;
@ -789,6 +786,7 @@ begin
if not IsValidDC(hDC) then exit;
TQtDeviceContext(hDC).Free;
Result := True;
end;
{------------------------------------------------------------------------------