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

Opkman: Quick statistics about repository/lazarus packages.

Browse Source 
git-svn-id: trunk@55631 -
This commit is contained in:
balazs 2017-08-02 19:04:05 +00:00
parent 635d630025
commit f8eace024e
3 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/onlinepackagemanager/opkman_const.pas
View File

@ -63,7 +63,7 @@ resourcestring
rsLazarusPackageManager = 'Online Package Manager'; rsLazarusPackageManager = 'Online Package Manager';
//main form //main form
rsPackagesFound = '(%s packages found)'; rsPackagesFound = '(%s repository packages found, containing %s lpk files, total size %s)';
rsMainFrm_VSTHeaderColumn_PackageName = 'Packages'; rsMainFrm_VSTHeaderColumn_PackageName = 'Packages';
rsMainFrm_VSTHeaderColumn_LazarusPackage = 'Lazarus Package (.lpk)'; rsMainFrm_VSTHeaderColumn_LazarusPackage = 'Lazarus Package (.lpk)';
rsMainFrm_VSTHeaderColumn_Repository = 'Repository'; rsMainFrm_VSTHeaderColumn_Repository = 'Repository';

3
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -365,8 +365,7 @@ begin
SetupMessage; SetupMessage;
mJSON.Text := AJSON; mJSON.Text := AJSON;
cbAll.Checked := False; cbAll.Checked := False;
Caption := rsLazarusPackageManager + ' ' + Format(rsPackagesFound, [ Caption := rsLazarusPackageManager + ' ' + SerializablePackages.QuickStatistics;
IntToStr(SerializablePackages.Count)]);
if Assigned(Updates) then if Assigned(Updates) then
Updates.StartUpdate; Updates.StartUpdate;
end; end;

18
components/onlinepackagemanager/opkman_serializablepackages.pas
View File

@ -289,6 +289,7 @@ type
function GetPackageInstallState(const AMetaPackage: TMetaPackage): Integer; overload; function GetPackageInstallState(const AMetaPackage: TMetaPackage): Integer; overload;
procedure DeleteDownloadedZipFiles; procedure DeleteDownloadedZipFiles;
procedure Sort(const ASortType: TSortType; const ASortOrder: TSortOrder); procedure Sort(const ASortType: TSortType; const ASortOrder: TSortOrder);
function QuickStatistics: String;
public public
property Count: Integer read GetCount; property Count: Integer read GetCount;
property DownloadCount: Integer read GetDownloadCount; property DownloadCount: Integer read GetDownloadCount;
@ -1437,6 +1438,23 @@ begin
end; end;
end; end;
function TSerializablePackages.QuickStatistics: String;
var
I, J: Integer;
LazPackCnt: Integer;
TotSize: Int64;
begin
LazPackCnt := 0;
TotSize := 0;
for I := 0 to Count - 1 do
begin
TotSize := TotSize + Items[I].RepositoryFileSize;
for J := 0 to Items[I].FLazarusPackages.Count - 1 do
Inc(LazPackCnt);
end;
Result := Format(rsPackagesFound, [IntToStr(SerializablePackages.Count), IntToStr(LazPackCnt), FormatSize(TotSize)]);
end;
function TSerializablePackages.IsDependencyOk(PackageDependency: TPackageDependency; function TSerializablePackages.IsDependencyOk(PackageDependency: TPackageDependency;
DependencyPackage: TLazarusPackage): Boolean; DependencyPackage: TLazarusPackage): Boolean;
var var