paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 20:44:03 +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; function TQtWidgetSet.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
var
QtRegion: TQtRegion;
begin begin
QtRegion := TQtRegion.Create(True, X1, Y1, X2, Y2); Result := HRGN(TQtRegion.Create(True, X1, Y1, X2, Y2));
Result := HRGN(QtRegion);
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
WriteLn('Trace: [WinAPI CreateRectRgn] Result: ', dbghex(Result), WriteLn('Trace: [WinAPI CreateRectRgn] Result: ', dbghex(Result),
' QRegionH: ', dbghex(PtrInt(QtRegion.Widget))); ' QRegionH: ', dbghex(PtrUInt(TQtRegion(Result).Widget)));
{$endif} {$endif}
end; end;
@ -789,6 +786,7 @@ begin
if not IsValidDC(hDC) then exit; if not IsValidDC(hDC) then exit;
TQtDeviceContext(hDC).Free; TQtDeviceContext(hDC).Free;
Result := True;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------