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

Fixed UpdateStringListPref and spell checker dictionaries in TFMXChromium

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-08-15 14:36:11 +02:00
parent eaca9d8b65
commit 7ba82bd5ed
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/uFMXChromium.pas
View File

@ -2077,6 +2077,8 @@ begin
UpdatePreference(aBrowser, 'plugins.run_all_flash_in_allow_mode', FRunAllFlashInAllowMode); UpdatePreference(aBrowser, 'plugins.run_all_flash_in_allow_mode', FRunAllFlashInAllowMode);
UpdatePreference(aBrowser, 'plugins.allow_outdated', FAllowOutdatedPlugins); UpdatePreference(aBrowser, 'plugins.allow_outdated', FAllowOutdatedPlugins);
UpdatePreference(aBrowser, 'plugins.always_authorize', FAlwaysAuthorizePlugins); UpdatePreference(aBrowser, 'plugins.always_authorize', FAlwaysAuthorizePlugins);
UpdatePreference(aBrowser, 'browser.enable_spellchecking', FSpellChecking);
UpdateStringListPref(aBrowser, 'spellcheck.dictionaries', FSpellCheckerDicts);
if FRunAllFlashInAllowMode then if FRunAllFlashInAllowMode then
UpdatePreference(aBrowser, 'profile.default_content_setting_values.plugins', 1); UpdatePreference(aBrowser, 'profile.default_content_setting_values.plugins', 1);
@ -2331,7 +2333,7 @@ begin
TempSL := nil; TempSL := nil;
try try
if (length(name) > 0) and (length(aValue) > 0) then if (length(aName) > 0) and (length(aValue) > 0) then
begin begin
TempSL := TStringList.Create; TempSL := TStringList.Create;
TempSL.CommaText := aValue; TempSL.CommaText := aValue;