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

Packager/InstallPkgSetDialog: Fixed enabling "Uninstall" button with multi-selection

Browse Source
This commit is contained in:
n7800 2025-07-10 04:24:51 +05:00 committed by Juha Manninen
parent 9acd48b10e
commit 0fea155263
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packager/installpkgsetdlg.pas
View File

@ -878,11 +878,37 @@ procedure TInstallPkgSetDialog.UpdateButtonStates;
result := assigned(FilteredBranch) and (FilteredBranch.Items.Count <> Cnt);
end;
//
function CanUninstall: boolean;
var
lPackageID: TLazPackageID;
lNode: TTreeNode;
i: integer;
begin
if InstallTreeView.Items.SelectionCount <= 0 then
exit(false);
lPackageID := TLazPackageID.Create;
try
for i := 0 to InstallTreeView.Items.TopLvlCount - 1 do
begin
lNode := InstallTreeView.Items.TopLvlItems[i];
if not lNode.MultiSelected then
continue;
if not lPackageID.StringToID(lNode.Text) then
continue;
if IsBasePkg(lPackageID) then
continue;
exit(true);
end;
finally
lPackageID.Free;
end;
result := false;
end;
//
begin
SaveAndRebuildButton.Enabled := ChangesFound;
SaveAndExitButton .Enabled := SaveAndRebuildButton.Enabled;
UninstallButton .Enabled := (InstallTreeView.Selected <> nil) and
not IsBasePkg(InstallTreeView.Selected.Text);
UninstallButton .Enabled := CanUninstall;
AddToInstallButton .Enabled := AvailableTreeView.Selected <> nil;
end;