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

* Fix AV when doing "new project group" and there is already a PG open

Browse Source 
git-svn-id: trunk@61587 -
This commit is contained in:
michael 2019-07-13 09:19:43 +00:00
parent 00e999485d
commit 7925f988ef
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/projectgroups/projectgroup.pp
View File

@ -104,6 +104,8 @@ type
procedure SetTargetType(AValue: TPGTargetType); override;
public
constructor Create(aOwner: TProjectGroup);
Destructor Destroy; override;
end;
TTargetEvent = procedure(Sender: TObject; Target: TPGCompileTarget) of object;
@ -1055,6 +1057,12 @@ begin
Filename:=ProjectGroup.FileName;
end;
destructor TRootProjectGroupTarget.Destroy;
begin
FProjectGroup:=Nil;
inherited Destroy;
end;
{ TIDEProjectGroup }
procedure TIDEProjectGroup.SetFileName(AValue: String);