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

In Install/Uninstall package dlg, do not enable "Save and rebuild" and "Save and exit" buttons when filtering.

Browse Source 
(cherry picked from commit debaca4729)
This commit is contained in:
Juha 2023-09-12 10:20:39 +03:00 committed by Maxim Ganetsky
parent 370d32b588
commit 46870b7b8e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/installpkgsetdlg.pas
View File

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