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

Opkman:Implemented the uninstall feature.

Browse Source 
git-svn-id: trunk@54933 -
This commit is contained in:
balazs 2017-05-14 19:51:24 +00:00
parent be04a6d474
commit 6bf8e034b5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -148,7 +148,7 @@ type
procedure DoOnJSONDownloadCompleted(Sender: TObject; AJSON: TJSONStringType; AErrTyp: TErrorType; const AErrMsg: String = '');
procedure DoOnProcessJSON(Sender: TObject);
procedure DoOnUpdate(Sender: TObject);
function IsSomethingChecked(const AIsUpdate: Boolean = False): Boolean;
function IsSomethingChecked(const AResolveDependencies: Boolean = True): Boolean;
function Download(const ADstDir: String; var ADoExtract: Boolean): TModalResult;
function Extract(const ASrcDir, ADstDir: String; var ADoOpen: Boolean; const AIsUpdate: Boolean = False): TModalResult;
function Install(var AInstallStatus: TInstallStatus; var ANeedToRebuild: Boolean): TModalResult;
@ -253,12 +253,12 @@ begin
PackageDownloader.DownloadJSON(10000);
end;
function TMainFrm.IsSomethingChecked(const AIsUpdate: Boolean = False): Boolean;
function TMainFrm.IsSomethingChecked(const AResolveDependencies: Boolean = True): Boolean;
begin
Result := VisualTree.VST.CheckedCount > 0;
if Result then
begin
if not AIsUpdate then
if AResolveDependencies then
if VisualTree.ResolveDependencies = mrCancel then
Exit;
VisualTree.GetPackageList;
@ -627,7 +627,7 @@ var
DoExtract: Boolean;
DoOpen: Boolean;
begin
if not IsSomethingChecked then
if not IsSomethingChecked(False) then
Exit;
SDD.InitialDir := Options.LastDownloadDir;
@ -686,7 +686,7 @@ var
InstallStatus: TInstallStatus;
NeedToRebuild: Boolean;
begin
if not IsSomethingChecked(True) then
if not IsSomethingChecked(False) then
Exit;
CanGo := True;
NeedToRebuild := False;
@ -803,7 +803,7 @@ var
FileName: String;
NeedToRebuild: Boolean;
begin
if not IsSomethingChecked then
if not IsSomethingChecked(False) then
Exit;
if IsAtLeastOnePackageInstalled then