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

* Move HRESULT to system unit

Browse Source
This commit is contained in:
michael 2020-08-14 10:21:22 +00:00
parent a5a55469e9
commit 2248f6abe2
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/rtl/system.pas
View File

@ -50,6 +50,7 @@ const
Base types Base types
*****************************************************************************} *****************************************************************************}
type type
HRESULT = Integer; // For Delphi compatibility
Int8 = ShortInt; Int8 = ShortInt;
UInt8 = Byte; UInt8 = Byte;
Int16 = SmallInt; Int16 = SmallInt;

2
packages/rtl/types.pas
View File

@ -47,8 +47,6 @@ type
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;
function Bounds(ALeft, ATop, AWidth, AHeight : Integer) : TRect; function Bounds(ALeft, ATop, AWidth, AHeight : Integer) : TRect;