erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-10-06 14:07:32 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 11

chore(windows): cleanup

Browse source
This commit is contained in:
Marc Durdin 2020-08-26 11:45:57 +10:00
parent 97a16e8535
commit 09fff26c1f
3 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
windows/src/desktop/kmshell/install/Keyman.Configuration.UI.InstallFile.pas
View file

@ -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

BIN
windows/src/desktop/kmshell/kmshell.res
View file

Binary file not shown.

3
windows/src/global/delphi/general/utiltsf.pas
View file

@ -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