paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: copy file name for removed targets, disable actions for removed targets

Browse Source 
git-svn-id: trunk@50401 -
This commit is contained in:
mattias 2015-11-18 16:42:33 +00:00
parent a33c0dd6d6
commit 30000af935
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/projectgroups/projectgroupeditor.pas
View File

@ -669,7 +669,7 @@ Var
T: TPGCompileTarget; T: TPGCompileTarget;
begin begin
T:=SelectedTarget; T:=SelectedTarget;
Result:=Assigned(T) and (ATargetAction in T.AllowedActions); Result:=Assigned(T) and (not T.Removed) and (ATargetAction in T.AllowedActions);
If Assigned(AAction) then If Assigned(AAction) then
AAction.Enabled:=Result; AAction.Enabled:=Result;
end; end;
@ -736,7 +736,8 @@ var
ND: TNodeData; ND: TNodeData;
begin begin
ND:=SelectedNodeData; ND:=SelectedNodeData;
(Sender as TAction).Enabled:=(ND<>nil) and (ND.NodeType in [ntTarget,ntProjectGroup,ntFile]); (Sender as TAction).Enabled:=(ND<>nil)
and ((ND.Target<>nil) or (ND.NodeType in [ntFile]));
UpdateIDEMenuCommandFromAction(Sender,cmdTargetCopyFilename); UpdateIDEMenuCommandFromAction(Sender,cmdTargetCopyFilename);
end; end;