From f49d5ee8913ea2f15efa779f7e87c35222ac6a0e Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 6 Apr 2020 12:39:09 +0000
Subject: [PATCH] Qt5: simplified code

git-svn-id: trunk@62899 -
---
 lcl/interfaces/qt5/qtwinapi.inc | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/qt5/qtwinapi.inc b/lcl/interfaces/qt5/qtwinapi.inc
index 15c23e7630..0770f26c84 100644
--- a/lcl/interfaces/qt5/qtwinapi.inc
+++ b/lcl/interfaces/qt5/qtwinapi.inc
@@ -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;
 
 {------------------------------------------------------------------------------