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

Opkman: Improve OPM interface.

Browse Source 
git-svn-id: trunk@63965 -
This commit is contained in:
balazs 2020-10-06 18:28:09 +00:00
parent 7bf871655b
commit 0e58363f6e
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/buildintf/packagelinkintf.pas
View File

@ -124,6 +124,8 @@ type
function FindOnlineLink(const AName: String): TPackageLink; virtual; abstract; function FindOnlineLink(const AName: String): TPackageLink; virtual; abstract;
procedure AddPackageListNotification(ANotification: TNotifyEvent); virtual; abstract; procedure AddPackageListNotification(ANotification: TNotifyEvent); virtual; abstract;
procedure RemovePackageListNotification(ANotification: TNotifyEvent); virtual; abstract; procedure RemovePackageListNotification(ANotification: TNotifyEvent); virtual; abstract;
function IsPackageListLoaded: Boolean; virtual; abstract;
procedure GetPackageList; virtual; abstract;
end; end;
var var

18
components/onlinepackagemanager/opkman_intf.pas
View File

@ -77,6 +77,8 @@ type
function FindOnlineLink(const AName: String): TPackageLink; override; function FindOnlineLink(const AName: String): TPackageLink; override;
procedure AddPackageListNotification(ANotification: TNotifyEvent); override; procedure AddPackageListNotification(ANotification: TNotifyEvent); override;
procedure RemovePackageListNotification(ANotification: TNotifyEvent); override; procedure RemovePackageListNotification(ANotification: TNotifyEvent); override;
function IsPackageListLoaded: Boolean; override;
procedure GetPackageList; override;
end; end;
implementation implementation
@ -147,10 +149,7 @@ begin
if (not LazarusIDE.IDEIsClosing) then if (not LazarusIDE.IDEIsClosing) then
begin begin
if (Options.CheckForUpdates <> 5) and (not Assigned(MainFrm)) then if (Options.CheckForUpdates <> 5) and (not Assigned(MainFrm)) then
begin GetPackageList;
PackageDownloader.DownloadJSON(Options.ConTimeOut*1000, True);
LazarusIDE.AddHandlerOnIDEClose(@DoOnIDEClose);
end;
end; end;
end; end;
end; end;
@ -198,6 +197,17 @@ begin
FPackageListNotifications.Remove(TMethod(ANotification)); FPackageListNotifications.Remove(TMethod(ANotification));
end; end;
function TOPMInterfaceEx.IsPackageListLoaded: Boolean;
begin
Result := Assigned(SerializablePackages) and (SerializablePackages.Count > 0);
end;
procedure TOPMInterfaceEx.GetPackageList;
begin
PackageDownloader.DownloadJSON(Options.ConTimeOut*1000, True);
LazarusIDE.AddHandlerOnIDEClose(@DoOnIDEClose);
end;
procedure TOPMInterfaceEx.SynchronizePackages; procedure TOPMInterfaceEx.SynchronizePackages;
var var
I, J: Integer; I, J: Integer;