paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 03:58:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/onlinepackagemanager/opkman_const.pas
View File

@ -194,7 +194,7 @@ resourcestring
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_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_rsMessageParsingJSON = 'Parsing JSON. Please wait...';
rsMainFrm_rsMessageDownload = 'Downloading package list. Please wait...';

4
components/onlinepackagemanager/opkman_packagelistfrm.pas
View File

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

2
components/onlinepackagemanager/opkman_visualtree.pas
View File

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