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

Packager: Fix a crash on closing package editor. Issue #36432.

Browse Source 
git-svn-id: branches/fixes_2_0@62942 -
This commit is contained in:
juha 2020-04-11 12:42:05 +00:00
parent 07af721275
commit 09b3daa082
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packager/packageeditor.pas
View File

@ -307,6 +307,8 @@ type
procedure ViewPkgTodosClick(Sender: TObject);
private
FIdleConnected: boolean;
FCompiling: boolean;
FCompileDesignTimePkg: boolean;
FLazPackage: TLazPackage;
FNextSelectedPart: TPENodeData;// select this file/dependency on next update
FFilesNode: TTreeNode;
@ -351,7 +353,6 @@ type
function CanBeAddedToProject: boolean;
protected
fFlags: TPEFlags;
FCompileDesignTimePkg: boolean;
procedure SetLazPackage(const AValue: TLazPackage); override;
property IdleConnected: boolean read FIdleConnected write SetIdleConnected;
public
@ -1243,8 +1244,14 @@ begin
end;
if CanClose and not MainIDE.IDEIsClosing then
begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
if FCompiling then begin
DebugLn(['TPackageEditorForm.CanCloseEditor: ', Caption, ' compiling, do not close.']);
CanClose:=false;
end
else begin
EnvironmentOptions.LastOpenPackages.Remove(LazPackage.Filename);
MainIDE.SaveEnvironment;
end;
end;
end;
//debugln(['TPackageEditorForm.PackageEditorFormCloseQuery CanClose=',CanClose,' ',Caption]);
@ -3201,7 +3208,9 @@ begin
end;
end;
CompileBitBtn.Enabled:=False;
FCompiling:=True;
PackageEditors.CompilePackage(LazPackage,CompileClean,CompileRequired);
FCompiling:=False;
UpdateTitle;
UpdateButtons;
UpdateStatusBar;