pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-07-12 22:30:17 +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
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} {$IFDEF MSWINDOWS}
if GetDLLHeaderMachine(LibCefPath, TempMachine) then if GetDLLHeaderMachine(LibCefPath, TempMachine) then
case TempMachine of case TempMachine of
IMAGE_FILE_MACHINE_I386 : CEF_IMAGE_FILE_MACHINE_I386 :
if Is32BitProcess then if Is32BitProcess then
Result := True Result := True
else else
@ -910,7 +910,7 @@ begin
ShowErrorMessageDlg(TempString); ShowErrorMessageDlg(TempString);
end; end;
IMAGE_FILE_MACHINE_AMD64 : CEF_IMAGE_FILE_MACHINE_AMD64 :
if not(Is32BitProcess) then if not(Is32BitProcess) then
Result := True Result := True
else else

6
source/uCEFConstants.pas
View File

@ -400,6 +400,12 @@ const
CEF4DELPHI_URL = 'https://github.com/salvadordf/CEF4Delphi'; CEF4DELPHI_URL = 'https://github.com/salvadordf/CEF4Delphi';
CRLF = #13 + #10; 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 implementation
end. end.