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

cody: unit deps: all units: open package editor

Browse Source 
git-svn-id: trunk@41755 -
This commit is contained in:
mattias 2013-06-17 19:34:39 +00:00
parent d2a98069b8
commit b3f1019ad2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/ide/codyunitdepwnd.pas
View File

@ -407,6 +407,7 @@ var
TVNode: TTreeNode; TVNode: TTreeNode;
UDNode: TUDNode; UDNode: TUDNode;
UGGroup: TUGGroup; UGGroup: TUGGroup;
Pkg: TIDEPackage;
begin begin
TVNode:=AllUnitsTreeView.GetNodeAt(X,Y); TVNode:=AllUnitsTreeView.GetNodeAt(X,Y);
if TVNode=nil then exit; if TVNode=nil then exit;
@ -415,6 +416,7 @@ begin
UDNode:=TUDNode(TVNode.Data); UDNode:=TUDNode(TVNode.Data);
if (Button=mbLeft) and (ssDouble in Shift) and (UDNode<>nil) then begin if (Button=mbLeft) and (ssDouble in Shift) and (UDNode<>nil) then begin
if UDNode.Typ=udnUnit then if UDNode.Typ=udnUnit then
// open unit in source editor
LazarusIDE.DoOpenEditorFile(UDNode.Identifier,-1,-1,[ofAddToRecent]) LazarusIDE.DoOpenEditorFile(UDNode.Identifier,-1,-1,[ofAddToRecent])
else if UDNode.Typ=udnGroup then begin else if UDNode.Typ=udnGroup then begin
UGGroup:=FGroups.GetGroup(UDNode.Group,false); UGGroup:=FGroups.GetGroup(UDNode.Group,false);
@ -423,7 +425,8 @@ begin
// open project inspector // open project inspector
ExecuteIDECommand(Self,ecProjectInspector); ExecuteIDECommand(Self,ecProjectInspector);
end else begin end else begin
// open package editor
PackageEditingInterface.DoOpenPackageWithName(UGGroup.Name,[pofAddToRecent],false);
end; end;
end; end;
end; end;