From bc1f5ab533df893d0ea72f678cdedbab47363370 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 11 Aug 2020 11:26:53 +0000
Subject: [PATCH] Use HRESULT for delphi compatibility

---
 packages/rtl/classes.pas | 4 ++--
 packages/rtl/types.pas   | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index e99337d..d1dd67d 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -219,7 +219,7 @@ type
     function _AddRef: Integer;
     function _Release: Integer;
   public
-    function QueryInterface(const IID: TGUID; out Obj): integer; virtual;
+    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
     procedure AfterConstruction; override;
   end;
 
@@ -599,7 +599,7 @@ type
     procedure BeforeDestruction; override;
     procedure DestroyComponents;
     procedure Destroying;
-    function QueryInterface(const IID: TGUID; out Obj): integer; virtual;
+    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
     procedure WriteState(Writer: TWriter); virtual;
 //    function ExecuteAction(Action: TBasicAction): Boolean; virtual;
     function FindComponent(const AName: string): TComponent;
diff --git a/packages/rtl/types.pas b/packages/rtl/types.pas
index bc20f09..ceabf18 100644
--- a/packages/rtl/types.pas
+++ b/packages/rtl/types.pas
@@ -44,6 +44,8 @@ type
   TRect  = record
     Left, Top, Right, Bottom: Integer;
   end;
+  
+  HRESULT = Integer;
 
 function EqualRect(const r1,r2 : TRect) : Boolean;
 function Rect(Left, Top, Right, Bottom : Integer) : TRect;