From 09fff26c1fc557135eae627fddecbad5b93d636e Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Wed, 26 Aug 2020 11:45:57 +1000
Subject: [PATCH] chore(windows): cleanup

---
 .../Keyman.Configuration.UI.InstallFile.pas   |   4 ++--
 windows/src/desktop/kmshell/kmshell.res       | Bin 7036 -> 7036 bytes
 windows/src/global/delphi/general/utiltsf.pas |   3 +--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/windows/src/desktop/kmshell/install/Keyman.Configuration.UI.InstallFile.pas b/windows/src/desktop/kmshell/install/Keyman.Configuration.UI.InstallFile.pas
index 06c7e9c29a..ec6684b2a1 100644
--- a/windows/src/desktop/kmshell/install/Keyman.Configuration.UI.InstallFile.pas
+++ b/windows/src/desktop/kmshell/install/Keyman.Configuration.UI.InstallFile.pas
@@ -167,12 +167,12 @@ begin
       begin
         if IsPackage then
         begin
-          FPackage := (kmcom.Packages as IKeymanPackagesInstalled2).Install2(FileName, True, False);
+          FPackage := (kmcom.Packages as IKeymanPackagesInstalled2).Install2(FileName, True);
           InstallKeyboardPackageLanguage(FPackage, FilenameBCP47[2]);
         end
         else
         begin
-          FKeyboard := (kmcom.Keyboards as IKeymanKeyboardsInstalled2).Install2(FileName, True, False);
+          FKeyboard := (kmcom.Keyboards as IKeymanKeyboardsInstalled2).Install2(FileName, True);
           FKeyboard.Languages.Install(FilenameBCP47[2]);
         end;
       end
diff --git a/windows/src/desktop/kmshell/kmshell.res b/windows/src/desktop/kmshell/kmshell.res
index 4c42e0a34e5aa56223ea1b573d6fa7f5c3191be4..686457081a38fc1a7d95481e9725210fd24cb2d2 100644
GIT binary patch
delta 14
Vcmexk_Qz~O3G;^~<r~Xcr2#pM2EPCR

delta 14
Vcmexk_Qz~O3G>DB<c;O5(f~I=244UG

diff --git a/windows/src/global/delphi/general/utiltsf.pas b/windows/src/global/delphi/general/utiltsf.pas
index e10c1a4896..90607be66a 100644
--- a/windows/src/global/delphi/general/utiltsf.pas
+++ b/windows/src/global/delphi/general/utiltsf.pas
@@ -64,9 +64,8 @@ end;
 
 function IsTIPInstalledForCurrentUser(BCP47Tag: string; LangID: Integer; guidProfile: TGUID): Boolean;
 var
-  tag, FLayoutInstallString: string;
+  FLayoutInstallString: string;
   reg: TRegistryErrorControlled;
-  tags: TStringList;
 begin
   if BCP47Tag <> '' then
   begin