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

IDE: package graph: double click on project open project inspector, dbl click on IDE open editor install packages

Browse Source 
git-svn-id: trunk@40614 -
This commit is contained in:
mattias 2013-03-21 23:04:42 +00:00
parent 63cfb5f3e5
commit faeff278b9
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packager/pkggraphexplorer.pas
View File

@ -1,4 +1,3 @@
{ $Id$ }
{
/***************************************************************************
pkggraphexplorer.pas
@ -41,7 +40,7 @@ uses
Classes, SysUtils, Math, LCLProc, Forms, Controls, Buttons, ComCtrls,
StdCtrls, Menus, Dialogs, Graphics, FileCtrl, LCLType, ExtCtrls,
AVL_Tree,
IDECommands, PackageIntf, IDEImagesIntf,
IDECommands, PackageIntf, IDEImagesIntf, LazIDEIntf,
LvlGraphCtrl,
LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts,
Project, PackageDefs, PackageSystem, PackageEditor;
@ -127,7 +126,19 @@ end;
procedure TPkgGraphExplorerDlg.LvlGraphControl1DblClick(Sender: TObject);
var
Pkg: TLazPackage;
LGNode: TLvlGraphNode;
begin
LGNode:=LvlGraphControl1.SelectedNode;
if LGNode=nil then exit;
if LGNode.Caption=GroupPrefixProject then begin
if Assigned(OnOpenProject) and (Project1<>nil) then
OnOpenProject(Self,Project1);
exit;
end;
if LGNode.Caption=GroupPrefixIDE then begin
ExecuteIDECommand(Self,ecEditInstallPkgs);
exit;
end;
Pkg:=GetSelectedPackage;
if Pkg<>nil then begin
if Assigned(OnOpenPackage) then