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

IDE: clean up package dependencies dialog: remove selected dependencies

Browse Source 
git-svn-id: trunk@40768 -
This commit is contained in:
mattias 2013-04-09 19:24:01 +00:00
parent b73edf7ab1
commit b59cb8dc2c
2 changed files with 55 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
packager/cleanpkgdeps.pas
View File

@ -27,14 +27,16 @@ unit CleanPkgDeps;
interface
uses
Classes, SysUtils, FileUtil, AvgLvlTree, LazLogger, LvlGraphCtrl, Forms,
Controls, Graphics, Dialogs, ButtonPanel, ComCtrls, ExtCtrls, StdCtrls,
Classes, SysUtils, contnrs, FileUtil, AvgLvlTree, LazLogger, LvlGraphCtrl,
Forms, Controls, Graphics, Dialogs, ButtonPanel, ComCtrls, ExtCtrls, StdCtrls,
LazarusIDEStrConsts, Project, PackageDefs, IDEImagesIntf;
const
CPDProjectName = '-Project-';
type
{ TCPDNodeInfo }
TCPDNodeInfo = class
public
Owner: string; // CPDProjectName or package name
@ -72,45 +74,52 @@ type
property TVNodeChecked[TVNode: TTreeNode]: boolean read GetTVNodeChecked write SetTVNodeChecked;
public
property Owners: TFPList read FOwners write SetOwners;
function FetchDeletes: TObjectList; // list of TCPDNodeInfo
end;
var
CleanPkgDepsDlg: TCleanPkgDepsDlg;
function ShowCleanPkgDepDlg(Pkg: TLazPackage): TModalResult;
function ShowCleanPkgDepDlg(AProject: TProject): TModalResult;
function ShowCleanPkgDepDlg(Owners: TFPList; FreeList: boolean): TModalResult;
function ShowCleanPkgDepDlg(Pkg: TLazPackage; out ListOfNodeInfos: TObjectList): TModalResult;
function ShowCleanPkgDepDlg(AProject: TProject; out ListOfNodeInfos: TObjectList): TModalResult;
function ShowCleanPkgDepDlg(Owners: TFPList; FreeOwners: boolean;
out ListOfNodeInfos: TObjectList): TModalResult;
implementation
function ShowCleanPkgDepDlg(Pkg: TLazPackage): TModalResult;
function ShowCleanPkgDepDlg(Pkg: TLazPackage; out ListOfNodeInfos: TObjectList): TModalResult;
var
Owners: TFPList;
begin
Owners:=TFPList.Create;
Owners.Add(Pkg);
Result:=ShowCleanPkgDepDlg(Owners,true);
Result:=ShowCleanPkgDepDlg(Owners,true,ListOfNodeInfos);
end;
function ShowCleanPkgDepDlg(AProject: TProject): TModalResult;
function ShowCleanPkgDepDlg(AProject: TProject;
out ListOfNodeInfos: TObjectList): TModalResult;
var
Owners: TFPList;
begin
Owners:=TFPList.Create;
Owners.Add(AProject);
Result:=ShowCleanPkgDepDlg(Owners,true);
Result:=ShowCleanPkgDepDlg(Owners,true,ListOfNodeInfos);
end;
function ShowCleanPkgDepDlg(Owners: TFPList; FreeList: boolean): TModalResult;
function ShowCleanPkgDepDlg(Owners: TFPList; FreeOwners: boolean;
out ListOfNodeInfos: TObjectList): TModalResult;
var
Dlg: TCleanPkgDepsDlg;
begin
ListOfNodeInfos:=nil;
Dlg:=TCleanPkgDepsDlg.Create(nil);
try
Dlg.Owners:=Owners;
Result:=Dlg.ShowModal;
if Result=mrOk then
ListOfNodeInfos:=Dlg.FetchDeletes;
finally
if FreeList then
if FreeOwners then
Owners.Free;
Dlg.Free;
end;
@ -170,8 +179,6 @@ end;
procedure TCleanPkgDepsDlg.ButtonPanel1OKButtonClick(Sender: TObject);
begin
ShowMessage('Not implemented yet');
ModalResult:=mrNone;
end;
procedure TCleanPkgDepsDlg.SetOwners(AValue: TFPList);
@ -325,5 +332,22 @@ begin
end;
end;
function TCleanPkgDepsDlg.FetchDeletes: TObjectList;
var
i: Integer;
TVNode: TTreeNode;
Info: TCPDNodeInfo;
begin
Result:=TObjectList.Create(true);
for i:=0 to TransitivityTreeView.Items.Count-1 do begin
TVNode:=TransitivityTreeView.Items[i];
if TObject(TVNode.Data) is TCPDNodeInfo then begin
Info:=TCPDNodeInfo(TVNode.Data);
TVNode.Data:=nil;
Result.Add(Info);
end;
end;
end;
end.

20
packager/packageeditor.pas
View File

@ -33,7 +33,7 @@ uses
// LCL FCL
Classes, SysUtils, Math, Forms, Controls, StdCtrls, ComCtrls, Buttons,
LResources, Graphics, LCLType, LCLProc, Menus, Dialogs, FileUtil, AVL_Tree,
Laz2_XMLCfg,
contnrs, Laz2_XMLCfg,
// IDEIntf CodeTools
IDEImagesIntf, MenuIntf, HelpIntfs, ExtCtrls, LazIDEIntf, ProjectIntf,
CodeToolsStructs, FormEditingIntf, TreeFilterEdit, PackageIntf,
@ -1209,8 +1209,24 @@ begin
end;
procedure TPackageEditorForm.CleanDependenciesMenuItemClick(Sender: TObject);
var
ListOfNodeInfos: TObjectList;
i: Integer;
Info: TCPDNodeInfo;
Dependency: TPkgDependency;
begin
ShowCleanPkgDepDlg(LazPackage);
ListOfNodeInfos:=nil;
try
if ShowCleanPkgDepDlg(LazPackage,ListOfNodeInfos)<>mrOk then exit;
for i:=0 to ListOfNodeInfos.Count-1 do begin
Info:=TCPDNodeInfo(ListOfNodeInfos[i]);
Dependency:=LazPackage.FindDependencyByName(Info.Dependency);
if Dependency<>nil then
PackageGraph.RemoveDependencyFromPackage(LazPackage,Dependency,true);
end;
finally
ListOfNodeInfos.Free;
end;
end;
procedure TPackageEditorForm.CompileAllCleanClick(Sender: TObject);