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

More bugfix.

Browse Source 
git-svn-id: trunk@53641 -
This commit is contained in:
balazs 2016-12-11 19:07:44 +00:00
parent 4713fdef72
commit 61466674a4
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/onlinepackagemanager/opkman_updates.pas
View File

@ -83,7 +83,6 @@ type
procedure DoOnUpdate;
procedure Load;
procedure Save;
procedure SetPaused(const AValue: Boolean);
procedure AssignPackageData(APackage: TPackage);
procedure ResetPackageData(APackage: TPackage);
procedure CheckForOpenSSL;
@ -282,7 +281,8 @@ var
Package: TPackage;
PackageFile: TPackageFile;
begin
FNeedToBreak := True;
if SerializablePackages.Count = 0 then
Exit;
FXML.Clear;
FXML.SetDeleteValue('Version/Value', OpkVersion, 0);
FXML.SetDeleteValue('Count/Value', SerializablePackages.Count, 0);
@ -308,16 +308,6 @@ begin
FXML.Flush;
end;
procedure TUpdates.SetPaused(const AValue: Boolean);
begin
if FPaused <> AValue then
begin
FPaused := AValue;
if FPaused then
Save;
end;
end;
procedure TUpdates.AssignPackageData(APackage: TPackage);
var
I: Integer;