pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Fixed issue #110 : Correct NativeInt and NativeUInt declaration in FPC

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-05-14 16:12:21 +02:00
parent 1353ccb7af
commit dae14bed08
5 changed files with 30 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
source/uCEFTypes.pas
View File

@ -234,23 +234,28 @@ type
TCefSSLContentStatus = Cardinal; // /include/internal/cef_types.h (cef_ssl_content_status_t)
TCefLogSeverity = Cardinal; // /include/internal/cef_types.h (cef_log_severity_t)
{$IFNDEF DELPHI12_UP}
NativeUInt = Cardinal;
{$IFDEF FPC}
NativeInt = PtrInt;
NativeUInt = PtrUInt;
PNativeInt = ^NativeInt;
PNativeUInt = ^NativeUInt;
NativeInt = Integer;
uint16 = Word;
{$IFDEF FPC}
ustring = type UnicodeString;
{$ELSE}
ustring = type WideString;
{$ENDIF}
rbstring = type AnsiString;
{$ELSE}
ustring = type string;
rbstring = type RawByteString;
{$IFNDEF DELPHI15_UP}
NativeUInt = Cardinal;
PNativeUInt = ^NativeUInt;
{$IFNDEF DELPHI12_UP}
NativeUInt = Cardinal;
PNativeUInt = ^NativeUInt;
NativeInt = Integer;
uint16 = Word;
ustring = type WideString;
rbstring = type AnsiString;
{$ELSE}
ustring = type string;
rbstring = type RawByteString;
{$IFNDEF DELPHI15_UP}
NativeUInt = Cardinal;
PNativeUInt = ^NativeUInt;
{$ENDIF}
{$ENDIF}
{$ENDIF}