pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

Fixed build issue in XE2

Browse Source
This commit is contained in:
Salvador Díaz Fau 2024-08-03 17:05:35 +02:00
parent 78f7858115
commit ad5a33911a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/uCEFLinuxFunctions.pas
View File

@ -32,10 +32,10 @@ procedure GdkEventKeyToCEFKeyEvent(GdkEvent: PGdkEventKey; var aCEFKeyEvent : TC
function KeyboardCodeFromXKeysym(keysym : uint32) : integer; function KeyboardCodeFromXKeysym(keysym : uint32) : integer;
{$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2) or (DEFINED(LCLGTK3) and (LCL_FULLVERSION<3000000))} {$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2) or (DEFINED(LCLGTK3) and (LCL_FULLVERSION<3000000))}
function GetCefStateModifiers(state : uint32) : integer; function GetCefStateModifiers(state : uint32) : integer;
{$ENDIF} {$IFEND}
{$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)} {$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)}
function GetCefStateModifiers(state : TGdkModifierType) : integer; function GetCefStateModifiers(state : TGdkModifierType) : integer;
{$ENDIF} {$IFEND}
function GdkEventToWindowsKeyCode(Event: PGdkEventKey) : integer; function GdkEventToWindowsKeyCode(Event: PGdkEventKey) : integer;
function GetWindowsKeyCodeWithoutLocation(key_code : integer) : integer; function GetWindowsKeyCodeWithoutLocation(key_code : integer) : integer;
function GetControlCharacter(windows_key_code : integer; shift : boolean) : integer; function GetControlCharacter(windows_key_code : integer; shift : boolean) : integer;
@ -485,7 +485,7 @@ begin
if ((state and GDK_BUTTON3_MASK) <> 0) then if ((state and GDK_BUTTON3_MASK) <> 0) then
Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON; Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON;
end; end;
{$ENDIF} {$IFEND}
{$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)} {$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)}
function GetCefStateModifiers(state : TGdkModifierType) : integer; function GetCefStateModifiers(state : TGdkModifierType) : integer;
begin begin
@ -512,7 +512,7 @@ begin
if (GDK_BUTTON3_MASK in state) then if (GDK_BUTTON3_MASK in state) then
Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON; Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON;
end; end;
{$ENDIF} {$IFEND}
function GdkEventToWindowsKeyCode(event: PGdkEventKey) : integer; function GdkEventToWindowsKeyCode(event: PGdkEventKey) : integer;
var var

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 634, "InternalVersion" : 635,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "127.1.5" "Version" : "127.1.5"
} }