pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +02:00
Code Issues Actions Releases Activity

Fixed issue #277

Browse Source
This commit is contained in:
Salvador Díaz Fau 2020-05-05 19:20:23 +02:00
parent 318318c85c
commit 5c2204b207
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
source/uCEFConstants.pas
View File

@ -610,10 +610,14 @@ const
CEF_BEFORECLOSE = {$IFDEF MSWINDOWS}WM_APP +{$ENDIF} $A0C;
// Lazarus and some old Delphi versions don't have these message contants
{$IF NOT DECLARED(WM_TOUCH)}
WM_TOUCH = $0240;
{$IFEND}
{$IF NOT DECLARED(WM_POINTERUPDATE)}
WM_POINTERUPDATE = $0245;
WM_POINTERDOWN = $0246;
WM_POINTERUP = $0247;
{$IFEND}
CEF_TIMER_MINIMUM = $0000000A;
CEF_TIMER_MAXIMUM = $7FFFFFFF;
@ -630,7 +634,9 @@ const
CEF_IMAGE_FILE_MACHINE_I386 = $014C;
CEF_IMAGE_FILE_MACHINE_AMD64 = $8664;
{$IF NOT DECLARED(USER_DEFAULT_SCREEN_DPI)}
USER_DEFAULT_SCREEN_DPI = 96;
{$IFEND}
implementation

4
source/uCEFMiscFunctions.pas
View File

@ -170,7 +170,7 @@ function PathIsUNCAnsi(pszPath: LPCSTR): BOOL; stdcall; external SHLWAPIDLL name
function PathIsUNCUnicode(pszPath: LPCWSTR): BOOL; stdcall; external SHLWAPIDLL name 'PathIsUNCW';
function PathIsURLAnsi(pszPath: LPCSTR): BOOL; stdcall; external SHLWAPIDLL name 'PathIsURLA';
function PathIsURLUnicode(pszPath: LPCWSTR): BOOL; stdcall; external SHLWAPIDLL name 'PathIsURLW';
function RtlGetVersion(var lpVersionInformation : TOSVersionInfoEx): LongInt; stdcall; external NTDLL;
function CustomRtlGetVersion(var lpVersionInformation : TOSVersionInfoEx): LongInt; stdcall; external NTDLL name 'RtlGetVersion';
{$IFNDEF DELPHI12_UP}
const
@ -2138,7 +2138,7 @@ begin
ZeroMemory(@TempInfo, SizeOf(TOSVersionInfoEx));
if (RtlGetVersion(TempInfo) = 0) then
if (CustomRtlGetVersion(TempInfo) = 0) then
begin
Result := True;
wMajorVersion := TempInfo.dwMajorVersion;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 130,
"InternalVersion" : 131,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "81.3.1.0"
}