Fixed backwards compatibility issue in Delphi 7

This commit is contained in:
salvadordf 2023-08-10 18:08:50 +02:00
parent 94bbdfc942
commit 8dad4688fa
2 changed files with 5 additions and 5 deletions

View File

@ -3877,8 +3877,8 @@ begin
FQuicAllowed := True;
FJavascriptEnabled := True;
FLoadImagesAutomatically := True;
FBatterySaverModeState := TCefBatterySaverModeState.bsmsDefault;
FHighEfficiencyModeState := TCefHighEfficiencyModeState.kDefault;
FBatterySaverModeState := bsmsDefault;
FHighEfficiencyModeState := kDefault;
FCanFocus := False;
FEnableFocusDelayMs := CEF_DEFAULT_ENABLEFOCUSDELAY;
{$IFDEF LINUX}
@ -6687,10 +6687,10 @@ begin
UpdatePreference(aBrowser, 'webkit.webprefs.javascript_enabled', FJavascriptEnabled);
UpdatePreference(aBrowser, 'webkit.webprefs.loads_images_automatically', FLoadImagesAutomatically);
if (FHighEfficiencyModeState <> TCefHighEfficiencyModeState.kDefault) then
if (FHighEfficiencyModeState <> kDefault) then
UpdatePreference(aBrowser, 'performance_tuning.high_efficiency_mode.state', integer(FHighEfficiencyModeState));
if (FBatterySaverModeState <> TCefBatterySaverModeState.bsmsDefault) then
if (FBatterySaverModeState <> bsmsDefault) then
UpdatePreference(aBrowser, 'performance_tuning.battery_saver_mode.state', integer(FBatterySaverModeState));
if assigned(FOnPrefsUpdated) then

View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 503,
"InternalVersion" : 504,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "115.3.13"
}