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

IDE: clean up, removed TPkgManager.AddProjectRegCompDependency

Browse Source 
git-svn-id: trunk@53602 -
This commit is contained in:
mattias 2016-12-08 13:06:04 +00:00
parent 159e326548
commit 6160f4e419
2 changed files with 1 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/basepkgmanager.pas
View File

@ -46,7 +46,7 @@ uses
TypInfo, Classes, SysUtils, Forms, LazFileUtils, LCLProc, ComCtrls,
LazIDEIntf, PackageIntf, MenuIntf,
LazarusIDEStrConsts, EnvironmentOpts,
CompilerOptions, PackageDefs, PackageSystem, ComponentReg, Project;
CompilerOptions, PackageDefs, PackageSystem, Project;
type
{ TBasePkgManager }
@ -87,8 +87,6 @@ type
OnlyTestIfPossible: boolean = false): TModalResult; virtual; abstract;
function AddProjectDependency(AProject: TProject;
ADependency: TPkgDependency): TModalResult; virtual; abstract;
procedure AddProjectRegCompDependency(AProject: TProject;
ARegisteredComponent: TRegisteredComponent); virtual; abstract;
function AddProjectDependencies(AProject: TProject; const Packages: string;
OnlyTestIfPossible: boolean = false): TModalResult; virtual; abstract;
function CheckProjectHasInstalledPackages(AProject: TProject; Interactive: boolean): TModalResult; virtual; abstract;

19
packager/pkgmanager.pas
View File

@ -275,8 +275,6 @@ type
OnlyTestIfPossible: boolean = false): TModalResult; override;
function AddProjectDependency(AProject: TProject;
ADependency: TPkgDependency): TModalResult; override;
procedure AddProjectRegCompDependency(AProject: TProject;
ARegisteredComponent: TRegisteredComponent); override;
function AddProjectDependencies(AProject: TProject; const Packages: string;
OnlyTestIfPossible: boolean = false): TModalResult; override;
function OnProjectInspectorAddDependency(Sender: TObject;
@ -3378,23 +3376,6 @@ begin
end;
end;
procedure TPkgManager.AddProjectRegCompDependency(AProject: TProject;
ARegisteredComponent: TRegisteredComponent);
var
PkgFile: TPkgFile;
APackage: TLazPackage;
begin
if not (ARegisteredComponent is TPkgComponent) then exit;
PkgFile:=TPkgComponent(ARegisteredComponent).PkgFile;
if (PkgFile=nil) then exit;
APackage:=PkgFile.LazPackage;
APackage:=TLazPackage(RedirectPackageDependency(APackage));
AddProjectDependency(AProject,APackage);
end;
function TPkgManager.AddProjectDependencies(AProject: TProject;
const Packages: string; OnlyTestIfPossible: boolean): TModalResult;
var