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

Added renamed constants for backwards compatibility

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-12-13 13:24:38 +01:00
parent f788f87646
commit c8e354b8e5
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFApplication.pas
View File

@ -897,7 +897,7 @@ begin
{$IFDEF MSWINDOWS}
if GetDLLHeaderMachine(LibCefPath, TempMachine) then
case TempMachine of
IMAGE_FILE_MACHINE_I386 :
CEF_IMAGE_FILE_MACHINE_I386 :
if Is32BitProcess then
Result := True
else
@ -910,7 +910,7 @@ begin
ShowErrorMessageDlg(TempString);
end;
IMAGE_FILE_MACHINE_AMD64 :
CEF_IMAGE_FILE_MACHINE_AMD64 :
if not(Is32BitProcess) then
Result := True
else

6
source/uCEFConstants.pas
View File

@ -400,6 +400,12 @@ const
CEF4DELPHI_URL = 'https://github.com/salvadordf/CEF4Delphi';
CRLF = #13 + #10;
// These contants are declared in the "Windows" unit but
// some old Delphi versions don't have them.
// We have to add "CEF_" to be compatible with C++ Builder.
CEF_IMAGE_FILE_MACHINE_I386 = $014C;
CEF_IMAGE_FILE_MACHINE_AMD64 = $8664;
implementation
end.