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

started package graph explorer

Browse Source 
git-svn-id: trunk@2510 -
This commit is contained in:
mattias 2002-08-17 23:41:26 +00:00
parent 32eb52d99f
commit d99d6b8668
3 changed files with 69 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -652,6 +652,7 @@ lcl/toolwin.pp svneol=native#text/pascal
lcl/utrace.pp svneol=native#text/pascal
lcl/vclglobals.pp svneol=native#text/pascal
packager/lazaruspackageintf.pas svneol=native#text/pascal
packager/pkggraphexporer.pas svneol=native#text/pascal
tools/apiwizz/apiwizard.pp svneol=native#text/pascal
tools/apiwizz/apiwizz.pp svneol=native#text/pascal
tools/install/create_fpcsrc-1.1_rpm.sh -text svneol=native#application/x-sh

1
designer/designermenu.pp
View File

@ -85,7 +85,6 @@ constructor TDesignerMainMenu.CreateWithMenu(TheOwner: TComponent;
begin
inherited Create(TheOwner);
new(Root);
Root:=nil;
AppMenu:=AMenu;
temp_level:=1;
end;

68
packager/pkggraphexporer.pas Normal file
View File

@ -0,0 +1,68 @@
{ $Id$ }
{
/***************************************************************************
pkgmanager.pas
--------------
***************************************************************************/
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Author: Mattias Gaertner
Abstract:
TPkgGraphExplorer is the IDE window showing the whole package graph.
}
unit PkgGraphExporer;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Buttons, ComCtrls, StdCtrls,
ExtCtrls, Menus, LazarusIDEStrConsts, IDEProcs, PackageDefs, PackageSystem;
type
TPkgGraphExplorer = class(TForm)
PkgTreeView: TTreeView;
PkgListBox: TListBox;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy;
end;
implementation
{ TPkgGraphExplorer }
constructor TPkgGraphExplorer.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
end;
destructor TPkgGraphExplorer.Destroy;
begin
end;
end.