paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:00:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

project groups: dbl click open project, package, file

Browse Source 
git-svn-id: trunk@50447 -
This commit is contained in:
mattias 2015-11-20 15:16:13 +00:00
parent e20508a446
commit 4769045cee
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/projectgroups/projectgroupeditor.pas
View File

@ -541,15 +541,23 @@ begin
ntProjectGroup,
ntTarget:
begin
// activate target
ND.Target.Activate;
PG:=ND.Target.GetOwnerProjectGroup;
if PG=nil then exit;
case ND.Target.TargetType of
ttProject,
ttPackage,
ttPascalFile:
PG.Perform(ND.Target,taOpen)
end;
end;
ntRemovedTarget:
begin
PG:=ND.Target.Parent.ProjectGroup;
PG:=ND.Target.GetOwnerProjectGroup;
if PG=nil then exit;
case ND.Target.TargetType of
ttProject,ttPackage,ttPascalFile:
ttProject,
ttPackage,
ttPascalFile:
PG.Perform(ND.Target,taOpen);
end;
end;
@ -752,10 +760,7 @@ Var
begin
ND:=SelectedNodeData;
if (ND=nil) or (ND.Target=nil) then exit;
if ND.Target.ProjectGroup<>nil then
ND.Target.ProjectGroup.Perform(ND.Target,ATargetAction)
else if ND.Target.Parent.ProjectGroup<>nil then
ND.Target.Parent.ProjectGroup.Perform(ND.Target,ATargetAction);
ND.Target.GetOwnerProjectGroup.Perform(ND.Target,ATargetAction)
end;
procedure TProjectGroupEditorForm.ATargetCompileExecute(Sender: TObject);