From 46870b7b8e4bd409d98088599a5c0c6b1b229dfd Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Tue, 12 Sep 2023 10:20:39 +0300
Subject: [PATCH] In Install/Uninstall package dlg, do not enable "Save and
 rebuild" and "Save and exit" buttons when filtering.

(cherry picked from commit debaca47293d43dc363c7ddd093065d80cd24907)
---
 packager/installpkgsetdlg.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packager/installpkgsetdlg.pas b/packager/installpkgsetdlg.pas
index d9d96fabb6..b420557082 100644
--- a/packager/installpkgsetdlg.pas
+++ b/packager/installpkgsetdlg.pas
@@ -759,6 +759,7 @@ var
   Dependency: TPkgDependency;
   s: String;
   ListChanged: Boolean;
+  FilteredBranch: TTreeFilterBranch;
 begin
   UninstallButton.Enabled:=InstallTreeView.Selected<>nil;
   AddToInstallButton.Enabled:=AvailableTreeView.Selected<>nil;
@@ -775,7 +776,8 @@ begin
     Dependency:=Dependency.NextRequiresDependency;
     inc(Cnt);
   end;
-  if InstalledFilterEdit.GetExistingBranch(nil).Items.Count<>Cnt then
+  FilteredBranch:=InstalledFilterEdit.GetExistingBranch(nil);
+  if Assigned(FilteredBranch) and (FilteredBranch.Items.Count<>Cnt) then
     ListChanged:=true;
   SaveAndExitButton.Enabled:=ListChanged;
   SaveAndRebuildButton.Enabled:=ListChanged;