paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-20 07:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

started package graph explorer

Browse Source 
git-svn-id: trunk@4035 -
This commit is contained in:
mattias 2003-04-10 12:33:53 +00:00
parent a34871ef8e
commit f2c5eb5c99
6 changed files with 46 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/keymapping.pp
View File

@ -195,8 +195,9 @@ const
// components menu
ecConfigCustomComps = ecUserFirst + 900;
ecOpenInstalledPkg = ecUserFirst + 901;
ecEditPackage = ecUserFirst + 901;
ecOpenPackageFile = ecUserFirst + 902;
ecPackageGraph = ecUserFirst + 903;
// help menu
ecAboutLazarus = ecUserFirst + 1000;
@ -628,8 +629,9 @@ begin
// components menu
ecConfigCustomComps : Result:= lisMenuConfigCustomComps;
ecOpenInstalledPkg : Result:= lisMenuOpenInstalledPkg;
ecEditPackage : Result:= lisMenuEditPackage;
ecOpenPackageFile : Result:= lisMenuOpenPackageFile;
ecPackageGraph : Result:= lisMenuPackageGraph;
// tools menu
ecExtToolSettings : Result:= srkmecExtToolSettings;
@ -1465,8 +1467,9 @@ begin
// components menu
C:=Categories[AddCategory('Components',srkmCatComponentsMenu,caAll)];
Add(C,'Configure custom components',ecConfigCustomComps,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Open installed package',ecOpenInstalledPkg,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Edit package',ecEditPackage,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Open package file',ecOpenPackageFile,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Package graph',ecPackageGraph,VK_UNKNOWN,[],VK_UNKNOWN,[]);
// tools menu
C:=Categories[AddCategory(KeyCategoryToolMenuName,srkmCatToolMenu,caAll)];

5
ide/lazarusidestrconsts.pas
View File

@ -206,9 +206,10 @@ resourcestring
lisMenuRunParameters = 'Run Parameters ...';
lisMenuConfigCustomComps = 'Configure custom components';
lisMenuOpenInstalledPkg = 'Open installed package';
lisMenuEditPackage = 'Edit package';
lisMenuOpenRecentPkg = 'Open recent package';
lisMenuOpenPackageFile = 'Open package file';
lisMenuPackageGraph = 'Package Graph';
lisMenuSettings = 'Configure custom tools ...';
lisMenuQuickSyntaxCheck = 'Quick syntax check';
@ -456,7 +457,7 @@ resourcestring
dlgScrollByOneLess = 'Scroll By One Less';
dlgScrollPastEndFile = 'Scroll Past End of File';
dlgScrollPastEndLine = 'Scroll Past End of Line';
dlgCloseButtonsNotebook = 'Close buttons in notebook';
dlgCloseButtonsNotebook = 'Show Close Buttons in notebook';
dlgShowScrollHint = 'Show Scroll Hint';
dlgMouseLinks = 'Mouse links';
dlgSmartTabs = 'Smart Tabs';

26
ide/mainbar.pas
View File

@ -281,9 +281,10 @@ type
// components menu
itmCompsConfigCustomComps: TMenuItem;
itmPkgOpenInstalled: TMenuItem;
itmPkgEditPackage: TMenuItem;
itmPkgOpenPackageFile: TMenuItem;
itmPkgOpenRecent: TMenuItem;
itmPkgPkgGraph: TMenuItem;
// tools menu
itmToolConfigure: TMenuItem;
@ -863,6 +864,7 @@ begin
itmViewCodeExplorer := TMenuItem.Create(Self);
itmViewCodeExplorer.Name:='itmViewCodeExplorer';
itmViewCodeExplorer.Caption := lisMenuViewCodeExplorer;
itmViewCodeExplorer.Enabled := false;
mnuView.Add(itmViewCodeExplorer);
mnuView.Add(CreateMenuSeparator);
@ -1082,11 +1084,11 @@ begin
mnuComponents.Add(CreateMenuSeparator);
{$ENDIF}
itmPkgOpenInstalled := TMenuItem.Create(Self);
itmPkgOpenInstalled.Name:='itmPkgOpenInstalled';
itmPkgOpenInstalled.Caption := lisMenuOpenInstalledPkg;
itmPkgEditPackage := TMenuItem.Create(Self);
itmPkgEditPackage.Name:='itmPkgEditPackage';
itmPkgEditPackage.Caption := lisMenuEditPackage;
{$IFDEF EnablePkgs}
mnuComponents.Add(itmPkgOpenInstalled);
mnuComponents.Add(itmPkgEditPackage);
{$ENDIF}
itmPkgOpenPackageFile := TMenuItem.Create(Self);
@ -1102,6 +1104,17 @@ begin
{$IFDEF EnablePkgs}
mnuComponents.Add(itmPkgOpenRecent);
{$ENDIF}
{$IFDEF EnablePkgs}
mnuComponents.Add(CreateMenuSeparator);
{$ENDIF}
itmPkgPkgGraph := TMenuItem.Create(Self);
itmPkgPkgGraph.Name:='itmPkgPkgGraph';
itmPkgPkgGraph.Caption := lisMenuPackageGraph;
{$IFDEF EnablePkgs}
mnuComponents.Add(itmPkgPkgGraph);
{$ENDIF}
end;
procedure TMainIDEBar.SetupToolsMenu;
@ -1305,8 +1318,9 @@ begin
// components menu
itmCompsConfigCustomComps.ShortCut:=CommandToShortCut(ecConfigCustomComps);
itmPkgOpenInstalled.ShortCut:=CommandToShortCut(ecOpenInstalledPkg);
itmPkgEditPackage.ShortCut:=CommandToShortCut(ecEditPackage);
itmPkgOpenPackageFile.ShortCut:=CommandToShortCut(ecOpenPackageFile);
itmPkgPkgGraph.ShortCut:=CommandToShortCut(ecPackageGraph);
// tools menu
itmToolConfigure.ShortCut:=CommandToShortCut(ecExtToolSettings);

2
packager/openinstalledpkgdlg.pas
View File

@ -219,7 +219,7 @@ constructor TOpenInstalledPackagesDlg.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
Name:='OpenInstalledPackagesDlg';
Caption:='Open installed package';
Caption:='Open loaded package';
SetupComponents;
OnResize:=@OpenInstalledPackagesDlgResize;
Position:=poScreenCenter;

1
packager/packagedefs.pas
View File

@ -1074,7 +1074,6 @@ begin
FDirectory:=FFilename
else
FDirectory:=ExtractFilePath(FFilename);
writeln('TLazPackage.SetFilename A "',FFilename,'" "',FDirectory,'" HasDirectory=',HasDirectory);
Modified:=true;
end;

19
packager/pkgmanager.pas
View File

@ -54,6 +54,7 @@ uses
type
TPkgManager = class(TBasePkgManager)
procedure MainIDEitmPkgOpenPackageFileClick(Sender: TObject);
procedure MainIDEitmPkgPkgGraphClick(Sender: TObject);
function OnPackageEditorCreateFile(Sender: TObject;
const Params: TAddToPkgResult): TModalResult;
procedure OnPackageEditorGetUnitRegisterInfo(Sender: TObject;
@ -63,7 +64,7 @@ type
): TModalResult;
procedure OnPackageEditorSavePackage(Sender: TObject);
procedure mnuConfigCustomCompsClicked(Sender: TObject);
procedure mnuOpenInstalledPckClicked(Sender: TObject);
procedure mnuPkgEditPackageClicked(Sender: TObject);
procedure mnuOpenRecentPackageClicked(Sender: TObject);
private
function DoShowSavePackageAsDialog(APackage: TLazPackage): TModalResult;
@ -88,6 +89,7 @@ type
Flags: TPkgOpenFlags): TModalResult; override;
function DoSavePackage(APackage: TLazPackage;
Flags: TPkgSaveFlags): TModalResult; override;
function DoShowPackageGraph: TModalResult;
end;
implementation
@ -122,6 +124,11 @@ begin
end;
end;
procedure TPkgManager.MainIDEitmPkgPkgGraphClick(Sender: TObject);
begin
DoShowPackageGraph;
end;
function TPkgManager.OnPackageEditorCreateFile(Sender: TObject;
const Params: TAddToPkgResult): TModalResult;
var
@ -210,7 +217,7 @@ begin
ShowConfigureCustomComponents;
end;
procedure TPkgManager.mnuOpenInstalledPckClicked(Sender: TObject);
procedure TPkgManager.mnuPkgEditPackageClicked(Sender: TObject);
begin
DoShowOpenInstalledPckDlg;
end;
@ -430,8 +437,9 @@ procedure TPkgManager.ConnectMainBarEvents;
begin
with MainIDE do begin
itmCompsConfigCustomComps.OnClick :=@mnuConfigCustomCompsClicked;
itmPkgOpenInstalled.OnClick :=@mnuOpenInstalledPckClicked;
itmPkgEditPackage.OnClick :=@mnuPkgEditPackageClicked;
itmPkgOpenPackageFile.OnClick:=@MainIDEitmPkgOpenPackageFileClick;
itmPkgPkgGraph.OnClick:=@MainIDEitmPkgPkgGraphClick;
end;
SetRecentPackagesMenu;
@ -661,5 +669,10 @@ begin
Result:=mrOk;
end;
function TPkgManager.DoShowPackageGraph: TModalResult;
begin
Result:=mrCancel;
end;
end.