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

Packager: Show PackageEditor as modified after changing "Register Unit" or "Use Unit". Issue #37208.

Browse Source 
git-svn-id: trunk@64729 -
This commit is contained in:
juha 2021-03-03 10:21:50 +00:00
parent 93ff7806b5
commit d374ec2bf1
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packager/packageeditor.pas
View File

@ -1521,7 +1521,7 @@ begin
OtherFile.AddToUsesPkgSection:=false; OtherFile.AddToUsesPkgSection:=false;
end; end;
end; end;
LazPackage.ModifySilently; LazPackage.Modified:=True;
end; end;
end; end;
@ -1564,7 +1564,7 @@ begin
continue; continue;
CurFile.HasRegisterProc:=FPropGui.CallRegisterProcCheckBox.Checked; CurFile.HasRegisterProc:=FPropGui.CallRegisterProcCheckBox.Checked;
if not NodeData.Removed then if not NodeData.Removed then
LazPackage.ModifySilently; LazPackage.Modified:=True;
end; end;
end; end;
@ -1593,7 +1593,7 @@ begin
continue; continue;
CurFile.FileType:=CurPFT; CurFile.FileType:=CurPFT;
if not NodeData.Removed then if not NodeData.Removed then
LazPackage.ModifySilently; LazPackage.Modified:=True;
end; end;
exit; exit;
end; end;
@ -3005,7 +3005,6 @@ begin
else else
Moved := LazPackage.MoveRequiredDependencyDown(Dependency); Moved := LazPackage.MoveRequiredDependencyDown(Dependency);
if not Moved then exit; if not Moved then exit;
LazPackage.ModifySilently;
RequiredBranch:=FilterEdit.GetExistingBranch(FRequiredPackagesNode); RequiredBranch:=FilterEdit.GetExistingBranch(FRequiredPackagesNode);
OldIndex:=RequiredBranch.Items.IndexOf(Dependency.AsString(False,True)+OPNote(Dependency)); OldIndex:=RequiredBranch.Items.IndexOf(Dependency.AsString(False,True)+OPNote(Dependency));
NewIndex:=OldIndex+Offset; NewIndex:=OldIndex+Offset;