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

Packager: One more improvement for not closing package editor while compiling.

Browse Source 
git-svn-id: trunk@62948 -
This commit is contained in:
juha 2020-04-11 16:27:17 +00:00
parent c6a922e9c2
commit f1add4d1d5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packageeditor.pas
View File

@ -3401,14 +3401,17 @@ begin
else
LazPackage.Modified:=false; // clear modified flag, so that it will be closed
end;
if (Result=mrOK) and not MainIDE.IDEIsClosing then
if not MainIDE.IDEIsClosing then
begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
if FCompiling then begin
DebugLn(['TPackageEditorForm.CanCloseEditor: ', Caption, ' compiling, do not close.']);
Result:=mrCancel;
end;
if Result=mrOK then
begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
end;
end;
end;
//debugln(['TPackageEditorForm.CanCloseEditor Result=',dbgs(Result),' ',Caption]);