paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-04 18:10:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use HRESULT for delphi compatibility

Browse Source
This commit is contained in:
michael 2020-08-11 11:26:53 +00:00
parent 3ed3dc7f1c
commit bc1f5ab533
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/classes.pas
View File

@ -219,7 +219,7 @@ type
function _AddRef: Integer; function _AddRef: Integer;
function _Release: Integer; function _Release: Integer;
public public
function QueryInterface(const IID: TGUID; out Obj): integer; virtual; function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
procedure AfterConstruction; override; procedure AfterConstruction; override;
end; end;
@ -599,7 +599,7 @@ type
procedure BeforeDestruction; override; procedure BeforeDestruction; override;
procedure DestroyComponents; procedure DestroyComponents;
procedure Destroying; 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; procedure WriteState(Writer: TWriter); virtual;
// function ExecuteAction(Action: TBasicAction): Boolean; virtual; // function ExecuteAction(Action: TBasicAction): Boolean; virtual;
function FindComponent(const AName: string): TComponent; function FindComponent(const AName: string): TComponent;

2
packages/rtl/types.pas
View File

@ -44,6 +44,8 @@ type
TRect = record TRect = record
Left, Top, Right, Bottom: Integer; Left, Top, Right, Bottom: Integer;
end; end;
HRESULT = Integer;
function EqualRect(const r1,r2 : TRect) : Boolean; function EqualRect(const r1,r2 : TRect) : Boolean;
function Rect(Left, Top, Right, Bottom : Integer) : TRect; function Rect(Left, Top, Right, Bottom : Integer) : TRect;