paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 23:58:14 +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;
UDNode: TUDNode;
UGGroup: TUGGroup;
Pkg: TIDEPackage;
begin
TVNode:=AllUnitsTreeView.GetNodeAt(X,Y);
if TVNode=nil then exit;
@ -415,6 +416,7 @@ begin
UDNode:=TUDNode(TVNode.Data);
if (Button=mbLeft) and (ssDouble in Shift) and (UDNode<>nil) then begin
if UDNode.Typ=udnUnit then
// open unit in source editor
LazarusIDE.DoOpenEditorFile(UDNode.Identifier,-1,-1,[ofAddToRecent])
else if UDNode.Typ=udnGroup then begin
UGGroup:=FGroups.GetGroup(UDNode.Group,false);
@ -423,7 +425,8 @@ begin
// open project inspector
ExecuteIDECommand(Self,ecProjectInspector);
end else begin
// open package editor
PackageEditingInterface.DoOpenPackageWithName(UGGroup.Name,[pofAddToRecent],false);
end;
end;
end;