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

Fixed TChromium.DownloadBubble issue

Browse Source 
Define LCL_FULLVERSION  in Delphi to avoid compiler warnings
This commit is contained in:
Salvador Díaz Fau
2024-06-12 10:45:27 +02:00
parent 110fefdfb5
commit 0ada3d1ba9
3 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/uCEFChromiumCore.pas
View File

@ -7054,7 +7054,10 @@ begin
UpdatePreference(aBrowser, 'performance_tuning.battery_saver_mode.state', integer(FBatterySaverModeState)); UpdatePreference(aBrowser, 'performance_tuning.battery_saver_mode.state', integer(FBatterySaverModeState));
if (FDownloadBubble <> STATE_DEFAULT) then if (FDownloadBubble <> STATE_DEFAULT) then
UpdatePreference(aBrowser, 'download_bubble_enabled', (FDownloadBubble = STATE_ENABLED)); begin
UpdatePreference(aBrowser, 'download_bubble.partial_view_enabled', (FDownloadBubble = STATE_ENABLED));
UpdatePreference(aBrowser, 'download_bubble_enabled', (FDownloadBubble = STATE_ENABLED));
end;
if assigned(FOnPrefsUpdated) then if assigned(FOnPrefsUpdated) then
FOnPrefsUpdated(self); FOnPrefsUpdated(self);

6
source/uCEFLinuxFunctions.pas
View File

@ -21,6 +21,12 @@ uses
{$ENDIF} {$ENDIF}
uCEFLinuxTypes, uCEFTypes; uCEFLinuxTypes, uCEFTypes;
{$IFNDEF FPC}
const
// We define this constant only to avoid warnings in Delphi
LCL_FULLVERSION = 3000001;
{$ENDIF}
{$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;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 611, "InternalVersion" : 612,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "125.0.22" "Version" : "125.0.22"
} }