diff --git a/windows/src/desktop/setup/SetupStrings.pas b/windows/src/desktop/setup/SetupStrings.pas
index 503a1147d3..e75122ab75 100644
--- a/windows/src/desktop/setup/SetupStrings.pas
+++ b/windows/src/desktop/setup/SetupStrings.pas
@@ -85,6 +85,8 @@ type
ssOptionsPackageLanguageAssociation,
ssOptionsDefaultLanguage,
+ ssInstallerVersion,
+
{ Download dialog }
ssDownloadingTitle,
diff --git a/windows/src/desktop/setup/UfrmInstallOptions.dfm b/windows/src/desktop/setup/UfrmInstallOptions.dfm
index b30731d206..776a467991 100644
--- a/windows/src/desktop/setup/UfrmInstallOptions.dfm
+++ b/windows/src/desktop/setup/UfrmInstallOptions.dfm
@@ -74,6 +74,13 @@ object frmInstallOptions: TfrmInstallOptions
Font.Style = [fsBold]
ParentFont = False
end
+ object lblInstallerVersion: TLabel
+ Left = 8
+ Top = 358
+ Width = 102
+ Height = 16
+ Caption = 'lblInstallerVersion'
+ end
object chkStartWithWindows: TCheckBox
Left = 8
Top = 100
diff --git a/windows/src/desktop/setup/UfrmInstallOptions.pas b/windows/src/desktop/setup/UfrmInstallOptions.pas
index 46f130c4a6..a9ebe80d35 100644
--- a/windows/src/desktop/setup/UfrmInstallOptions.pas
+++ b/windows/src/desktop/setup/UfrmInstallOptions.pas
@@ -48,6 +48,7 @@ type
lblDefaultKeymanSettings: TLabel;
lblSelectModulesToInstall: TLabel;
lblAssociatedKeyboardLanguage: TLabel;
+ lblInstallerVersion: TLabel;
procedure FormCreate(Sender: TObject);
procedure cmdOKClick(Sender: TObject);
private
@@ -97,6 +98,7 @@ implementation
uses
bootstrapmain,
+ KeymanVersion,
SetupStrings;
{ TfrmInstallOptions }
@@ -125,6 +127,8 @@ begin
chkCheckForUpdates.Visible := FAllowOptions;
chkStartWithWindows.Visible := FAllowOptions;
+ lblInstallerVersion.Caption := FInstallInfo.Text(ssInstallerVersion, [KeymanVersion.CKeymanVersionInfo.VersionWithTag]);
+
SetupDynamicOptions;
end;
diff --git a/windows/src/desktop/setup/locale/en/strings.xml b/windows/src/desktop/setup/locale/en/strings.xml
index b2a7de5765..4859c96b16 100644
--- a/windows/src/desktop/setup/locale/en/strings.xml
+++ b/windows/src/desktop/setup/locale/en/strings.xml
@@ -55,6 +55,9 @@ Restart now?
Upgrade keyboards installed with older versions to version $VERSION
Share anonymous usage statistics with keyman.com
+
+ Setup version: %0:s
+
Install $APPNAME %0:s
diff --git a/windows/src/global/delphi/general/Keyman.System.UpdateCheckResponse.pas b/windows/src/global/delphi/general/Keyman.System.UpdateCheckResponse.pas
index f90d04324e..ffa876b04b 100644
--- a/windows/src/global/delphi/general/Keyman.System.UpdateCheckResponse.pas
+++ b/windows/src/global/delphi/general/Keyman.System.UpdateCheckResponse.pas
@@ -89,8 +89,17 @@ begin
FNewVersion := node.Values['version'].Value;
FFileName := node.Values['file'].Value;
FInstallURL := node.Values['url'].Value;
- FInstallSize := (node.Values['size'] as TJSONNumber).AsInt64;
- FStatus := ucrsUpdateReady;
+ if node.Values['size'] is TJSONNumber then
+ begin
+ FInstallSize := (node.Values['size'] as TJSONNumber).AsInt64;
+ FStatus := ucrsUpdateReady;
+ end
+ else
+ begin
+ FInstallSize := 0;
+ FStatus := ucrsNoUpdate;
+ FErrorMessage := 'No valid updates found.';
+ end;
end
else
begin