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

project groups: fixed remove target

Browse Source 
git-svn-id: trunk@50400 -
This commit is contained in:
mattias 2015-11-18 16:36:05 +00:00
parent 816c9bb459
commit a33c0dd6d6
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/projectgroups/projectgroup.pp
View File

@ -638,7 +638,10 @@ var
Target: TPGCompileTarget;
begin
Target:=Targets[Index];
Target.DeActivate;
FTargets.OwnsObjects:=false;
FTargets.Delete(Index);
FTargets.OwnsObjects:=true;
FRemovedTargets.Add(Target);
Target.Removed:=true;
if Assigned(FOnTargetDeleted) then

6
components/projectgroups/projectgroupeditor.pas
View File

@ -702,8 +702,8 @@ Var
T: TPGCompileTarget;
begin
T:=SelectedTarget;
if T=nil then exit;
FProjectGroup.RemoveTarget(T);
if (T=nil) or (T.Parent=nil) then exit;
T.Parent.ProjectGroup.RemoveTarget(T);
end;
procedure TProjectGroupEditorForm.AProjectGroupDeleteUpdate(Sender: TObject);
@ -711,7 +711,7 @@ Var
T: TPGCompileTarget;
begin
T:=SelectedTarget;
(Sender as TAction).Enabled:=(T<>Nil) and (T<>ProjectGroup.CompileTarget) and Not T.Removed;
(Sender as TAction).Enabled:=(T<>nil) and (T<>ProjectGroup.CompileTarget) and Not T.Removed;
UpdateIDEMenuCommandFromAction(Sender,cmdTargetRemove);
end;

2
components/projectgroups/projectgroupintf.pp
View File

@ -454,8 +454,6 @@ procedure TPGCompileTarget.SetRemoved(const AValue: boolean);
begin
if Removed=AValue then exit;
FRemoved:=AValue;
if FRemoved then
Deactivate;
end;
procedure TPGCompileTarget.Activate;