paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 13:20:13 +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 else
LazPackage.Modified:=false; // clear modified flag, so that it will be closed LazPackage.Modified:=false; // clear modified flag, so that it will be closed
end; end;
if (Result=mrOK) and not MainIDE.IDEIsClosing then if not MainIDE.IDEIsClosing then
begin begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
if FCompiling then begin if FCompiling then begin
DebugLn(['TPackageEditorForm.CanCloseEditor: ', Caption, ' compiling, do not close.']); DebugLn(['TPackageEditorForm.CanCloseEditor: ', Caption, ' compiling, do not close.']);
Result:=mrCancel; Result:=mrCancel;
end; end;
if Result=mrOK then
begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
end;
end; end;
end; end;
//debugln(['TPackageEditorForm.CanCloseEditor Result=',dbgs(Result),' ',Caption]); //debugln(['TPackageEditorForm.CanCloseEditor Result=',dbgs(Result),' ',Caption]);