paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: API function for uninstalling a package. From Balázs. (Needed for OPM)

Browse Source 
git-svn-id: branches/fixes_1_8@55683 -
This commit is contained in:
mattias 2017-08-19 08:37:49 +00:00
parent 1f4f46ecdb
commit 5fe595855b
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/packageintf.pas
View File

@ -288,6 +288,9 @@ type
function InstallPackages(PkgIdList: TObjectList; function InstallPackages(PkgIdList: TObjectList;
Flags: TPkgInstallInIDEFlags = []): TModalResult; virtual; abstract; Flags: TPkgInstallInIDEFlags = []): TModalResult; virtual; abstract;
//uninstall
function UninstallPackage(APackage: TIDEPackage; ShowAbort: boolean): TModalResult; virtual; abstract;
// events // events
procedure RemoveAllHandlersOfObject(AnObject: TObject); procedure RemoveAllHandlersOfObject(AnObject: TObject);
procedure AddHandlerOnGraphChanged(const OnGraphChanged: TNotifyEvent; procedure AddHandlerOnGraphChanged(const OnGraphChanged: TNotifyEvent;

7
packager/pkgmanager.pas
View File

@ -337,6 +337,7 @@ type
): boolean; override; ): boolean; override;
function InstallPackages(PkgIdList: TObjectList; function InstallPackages(PkgIdList: TObjectList;
Flags: TPkgInstallInIDEFlags = []): TModalResult; override; Flags: TPkgInstallInIDEFlags = []): TModalResult; override;
function UninstallPackage(APackage: TIDEPackage; ShowAbort: boolean): TModalResult; override;
procedure DoTranslatePackage(APackage: TLazPackage); procedure DoTranslatePackage(APackage: TLazPackage);
function DoOpenPackageSource(APackage: TLazPackage): TModalResult; function DoOpenPackageSource(APackage: TLazPackage): TModalResult;
function DoCompileAutoInstallPackages(Flags: TPkgCompileFlags; function DoCompileAutoInstallPackages(Flags: TPkgCompileFlags;
@ -5465,6 +5466,12 @@ begin
Result:=mrOk; Result:=mrOk;
end; end;
function TPkgManager.UninstallPackage(APackage: TIDEPackage; ShowAbort: boolean): TModalResult;
begin
Assert(APackage is TLazPackage, 'TPkgManager.DoUninstallPackage: APackage is not TLazPackage');
Result := DoUninstallPackage(TLazPackage(APackage), [puifDoNotConfirm, puifDoNotBuildIDE], ShowAbort);
end;
function TPkgManager.CheckInstallPackageList(PkgIDList: TObjectList; function TPkgManager.CheckInstallPackageList(PkgIDList: TObjectList;
Flags: TPkgInstallInIDEFlags): boolean; Flags: TPkgInstallInIDEFlags): boolean;
var var