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

Packager/InstallPkgSetDialog: Skip uninstalling base packages. Merge request !532.

Browse Source
This commit is contained in:
n7800 2025-07-16 03:11:33 +05:00 committed by Juha
parent df04887b85
commit 77c2bdcb4f
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -3666,6 +3666,8 @@ resourcestring
lisUninstallImpossible = 'Uninstall impossible';
lisThePackageCanNotBeUninstalledBecauseItIsNeededByTh = 'The package %s can '
+'not be uninstalled because it is needed by the IDE itself.';
lisUninstBasePackagesSkipped =
'Some packages were not uninstalled because they are needed by the IDE itself.';
lisCodeToolsDefsNodeIsReadonly = 'Node is readonly';
lisCodeToolsDefsAutoGeneratedNodesCanNotBeEdited = 'Auto generated nodes '
+'cannot be edited.';

14
packager/installpkgsetdlg.pas
View File

@ -1315,6 +1315,7 @@ var
TVNode: TTreeNode;
PkgName: String;
FilteredBranch: TTreeFilterBranch;
lSomePackagesSkipped: boolean = false;
begin
NewSelectedIndex:=-1;
LastNonSelectedIndex:=-1;
@ -1337,14 +1338,11 @@ begin
continue;
end;
if IsBasePkg(DelPackageID) then begin
MessageDlg(
lisUninstallImpossible,
Format(lisThePackageCanNotBeUninstalledBecauseItIsNeededByTh, [PkgName]),
mtError,
[mbCancel],
0
);
exit;
if not lSomePackagesSkipped then begin
lSomePackagesSkipped := true;
MessageDlg(lisUninstallImpossible, lisUninstBasePackagesSkipped, mtInformation, [mbOK], 0);
end;
continue;
end;
// ok => add to deletions
Deletions.Add(DelPackageID);