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

Fixed old Lazarus build issue

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-06-09 11:33:57 +02:00
parent d120f5c3fb
commit 75dbef00a7
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
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;
{$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2)} {$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2) or (LCL_FULLVERSION<3000000)}
function GetCefStateModifiers(state : uint32) : integer; function GetCefStateModifiers(state : uint32) : integer;
{$ENDIF} {$ENDIF}
{$IF DEFINED(LCLGTK3)} {$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)}
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;
{$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2)} {$IF DEFINED(LINUXFMX) or DEFINED(LCLGTK2) or (LCL_FULLVERSION<3000000)}
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}
{$IF DEFINED(LCLGTK3)} {$IF DEFINED(LCLGTK3) and (LCL_FULLVERSION>3000000)}
function GetCefStateModifiers(state : TGdkModifierType) : integer; function GetCefStateModifiers(state : TGdkModifierType) : integer;
begin begin
Result := EVENTFLAG_NONE; Result := EVENTFLAG_NONE;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 609, "InternalVersion" : 610,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "125.0.21" "Version" : "125.0.21"
} }