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