From 7ba82bd5edb5b4c6fec65c4eeea0125d359e6c7e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= <briskbard@briskbard.com>
Date: Wed, 15 Aug 2018 14:36:11 +0200
Subject: [PATCH] Fixed UpdateStringListPref and spell checker dictionaries in
 TFMXChromium

---
 source/uFMXChromium.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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