From ccad703c827593b2ebebd2dacd1525e271765b4d Mon Sep 17 00:00:00 2001 From: Marc Durdin Date: Thu, 9 Jul 2020 10:21:42 +1000 Subject: [PATCH] chore: cleanup --- .../src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas | 2 +- windows/src/desktop/kmshell/main/UfrmMain.pas | 2 +- .../kmshell/web/Keyman.Configuration.System.HttpServer.App.pas | 1 - 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas b/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas index a68112ba63..11dc743168 100644 --- a/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas +++ b/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas @@ -211,7 +211,7 @@ begin cef.ShouldOpenRemoteUrlsInBrowser := False; FRenderPage := 'downloadkeyboard'; - Content_Render(False); + Content_Render; inherited; end; diff --git a/windows/src/desktop/kmshell/main/UfrmMain.pas b/windows/src/desktop/kmshell/main/UfrmMain.pas index 061a90d138..e7e1b05b63 100644 --- a/windows/src/desktop/kmshell/main/UfrmMain.pas +++ b/windows/src/desktop/kmshell/main/UfrmMain.pas @@ -276,7 +276,7 @@ procedure TfrmMain.Do_Content_Render(FRefreshKeyman: Boolean); var sharedDataIntf: IConfigMainSharedData; sharedData: TConfigMainSharedData; - DefaultServersTag, s: string; + s: string; begin if FPageTag > 0 then begin diff --git a/windows/src/desktop/kmshell/web/Keyman.Configuration.System.HttpServer.App.pas b/windows/src/desktop/kmshell/web/Keyman.Configuration.System.HttpServer.App.pas index 99fb496de8..e48b2dc578 100644 --- a/windows/src/desktop/kmshell/web/Keyman.Configuration.System.HttpServer.App.pas +++ b/windows/src/desktop/kmshell/web/Keyman.Configuration.System.HttpServer.App.pas @@ -238,7 +238,6 @@ procedure TAppHttpResponder.ProcessXMLPage(const s: string); var FXML: string; PageTag: string; - DefaultServersTag: string; begin PageTag := RequestInfo.Params.Values['tag']; if PageTag <> '' then