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

Fixed Linux build issue

Browse Source
This commit is contained in:
Salvador Díaz Fau 2024-05-14 21:57:18 +02:00
parent 09a986830e
commit 5a99727c87
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
source/uCEFLinuxFunctions.pas
View File

@ -24,10 +24,10 @@ uses
{$IFDEF LINUX} {$IFDEF LINUX}
procedure GdkEventKeyToCEFKeyEvent(GdkEvent: PGdkEventKey; var aCEFKeyEvent : TCEFKeyEvent); procedure GdkEventKeyToCEFKeyEvent(GdkEvent: PGdkEventKey; var aCEFKeyEvent : TCEFKeyEvent);
function KeyboardCodeFromXKeysym(keysym : uint32) : integer; function KeyboardCodeFromXKeysym(keysym : uint32) : integer;
{$IFDEF LINUXFMX or LCLGTK2 or (LCLGTK3 and (LCL_FULLVERSION<3000000))} {$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2)}
function GetCefStateModifiers(state : uint32) : integer; function GetCefStateModifiers(state : uint32) : integer;
{$ENDIF} {$ENDIF}
{$IFDEF LCLGTK3 and (LCL_FULLVERSION>3000000)} {$IF DEFINED(LCLGTK3)}
function GetCefStateModifiers(state : TGdkModifierType) : integer; function GetCefStateModifiers(state : TGdkModifierType) : integer;
{$ENDIF} {$ENDIF}
function GdkEventToWindowsKeyCode(Event: PGdkEventKey) : integer; function GdkEventToWindowsKeyCode(Event: PGdkEventKey) : integer;
@ -453,7 +453,7 @@ begin
end; end;
end; end;
{$IFDEF LINUXFMX or LCLGTK2 or (LCLGTK3 and (LCL_FULLVERSION<3000000))} {$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2)}
function GetCefStateModifiers(state : uint32) : integer; function GetCefStateModifiers(state : uint32) : integer;
begin begin
Result := EVENTFLAG_NONE; Result := EVENTFLAG_NONE;
@ -480,7 +480,7 @@ begin
Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON; Result := Result or EVENTFLAG_RIGHT_MOUSE_BUTTON;
end; end;
{$ENDIF} {$ENDIF}
{$IFDEF LCLGTK3 and (LCL_FULLVERSION>3000000)} {$IF DEFINED(LCLGTK3)}
function GetCefStateModifiers(state : TGdkModifierType) : integer; function GetCefStateModifiers(state : TGdkModifierType) : integer;
begin begin
Result := EVENTFLAG_NONE; Result := EVENTFLAG_NONE;
@ -508,8 +508,6 @@ begin
end; end;
{$ENDIF} {$ENDIF}
function GdkEventToWindowsKeyCode(event: PGdkEventKey) : integer; function GdkEventToWindowsKeyCode(event: PGdkEventKey) : integer;
var var
windows_key_code, keyval : integer; windows_key_code, keyval : integer;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 596, "InternalVersion" : 597,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "124.3.7" "Version" : "124.3.7"
} }