Opkman: Improve error message when third party packages are not available(suggestion by a forum user).

git-svn-id: trunk@62677 -
This commit is contained in:
balazs 2020-02-27 08:39:53 +00:00
parent 93a98d499b
commit 9875a0b309
3 changed files with 4 additions and 4 deletions

View File

@ -194,7 +194,7 @@ resourcestring
rsMainFrm_PackageAlreadyDownloaded = 'The following repository packages already exist in the target folder. Continue?'; rsMainFrm_PackageAlreadyDownloaded = 'The following repository packages already exist in the target folder. Continue?';
rsMainFrm_PackageUpdateWarning = 'Installing packages from external link is not without a risk!' + sLineBreak + 'Only install if you trust the package maintainer. Continue?'; rsMainFrm_PackageUpdateWarning = 'Installing packages from external link is not without a risk!' + sLineBreak + 'Only install if you trust the package maintainer. Continue?';
rsMainFrm_PackageUpdate0 = 'The following repository packages are not available externally. The packages will be skipped. Continue?'; rsMainFrm_PackageUpdate0 = 'The following repository packages are not available externally. The packages will be skipped. Continue?';
rsMainFrm_PackageUpdate1 = 'None of the checked repository packages are available externally.'; rsMainFrm_PackageUpdate1 = 'None of the checked repository packages are available externally. Please make sure that package updates are enabled by default:' + sLineBreak + 'Options->General->Check for package updates.';
rsMainFrm_rsMessageNoPackage = 'No packages to show.'; rsMainFrm_rsMessageNoPackage = 'No packages to show.';
rsMainFrm_rsMessageParsingJSON = 'Parsing JSON. Please wait...'; rsMainFrm_rsMessageParsingJSON = 'Parsing JSON. Please wait...';
rsMainFrm_rsMessageDownload = 'Downloading package list. Please wait...'; rsMainFrm_rsMessageDownload = 'Downloading package list. Please wait...';

View File

@ -203,8 +203,8 @@ begin
begin begin
Inc(ChkCnt); Inc(ChkCnt);
if (Trim(SerializablePackages.Items[I].DownloadURL) = '') or if (Trim(SerializablePackages.Items[I].DownloadURL) = '') or
(Trim(SerializablePackages.Items[I].DownloadZipURL) = '') or (Trim(SerializablePackages.Items[I].DownloadZipURL) = '') then {or
(SerializablePackages.GetPackageInstallState(SerializablePackages.Items[I]) = 0) then (SerializablePackages.GetPackageInstallState(SerializablePackages.Items[I]) = 0) then}
begin begin
Inc(InvCnt); Inc(InvCnt);
Node := FVST.AddChild(nil); Node := FVST.AddChild(nil);

View File

@ -1514,7 +1514,7 @@ begin
1: if Data^.HasUpdate then 1: if Data^.HasUpdate then
CellText := 'NEW'; CellText := 'NEW';
2: begin 2: begin
if (Data^.InstalledVersion <> '') and (Data^.UpdateVersion <> '') then if (Data^.UpdateVersion <> '') then
CellText := Data^.UpdateVersion CellText := Data^.UpdateVersion
else else
CellText := '-'; CellText := '-';