paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-10 13:06:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: reintroduced INVALID_HANDLE_VALUE constant to LCLType, issue #41631

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-05-14 15:45:00 +03:00
parent c5b2f69010
commit 95c0189acd
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lcltype.pp
View File

@ -155,6 +155,16 @@ type
PHKEY = ^HKEY;
const
{$IF FPC_FULLVERSION > 30202}
INVALID_HANDLE_VALUE = SysUtils.INVALID_HANDLE_VALUE;
{$ELSE}
{$IFDEF WINDOWS}
INVALID_HANDLE_VALUE = Windows.INVALID_HANDLE_VALUE;
{$ELSE}
INVALID_HANDLE_VALUE = DWORD(-1);
{$ENDIF}
{$ENDIF}
MAXBYTE = Byte($FF);
MAXWORD = Word($FFFF);
MAXDWORD = DWord($FFFFFFFF);