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

Packager: Extend PackageLinkIntf with ClearOnlineLinks method.

Browse Source 
git-svn-id: trunk@56631 -
This commit is contained in:
balazs 2017-12-05 10:15:19 +00:00
parent 8e565ad003
commit 811fbab23f
2 changed files with 21 additions and 0 deletions
components/ideintf
packagelinkintf.pas
packager
packagelinks.pas

1
components/ideintf/packagelinkintf.pas
View File

@ -100,6 +100,7 @@ type
function AddUserLink(const PkgFilename, PkgName: string): TPackageLink; virtual; abstract;
procedure RemoveUserLink(Link: TPackageLink); virtual; abstract;
procedure RemoveUserLinks(APackageID: TLazPackageID); virtual; abstract;
procedure ClearOnlineLinks; virtual; abstract;
end;
{ TOPMInterface }

20
packager/packagelinks.pas
View File

@ -151,6 +151,7 @@ type
function AddUserLink(const PkgFilename, PkgName: string): TPackageLink; override;
procedure RemoveUserLink(Link: TPackageLink); override;
procedure RemoveUserLinks(APackageID: TLazPackageID); override;
procedure ClearOnlineLinks; override;
public
property Modified: boolean read GetModified write SetModified;
property ChangeStamp: integer read FChangeStamp;
@ -1313,6 +1314,25 @@ begin
end;
end;
procedure TLazPackageLinks.ClearOnlineLinks;
var
Link: TPackageLink;
I: Integer;
begin
BeginUpdate;
try
for I := FOnlineLinks.Count - 1 downto 0 do
begin
Link := TPackageLink(FOnlineLinks);
Link.Release;
IncreaseChangeStamp;
end;
FOnlineLinks.Clear;
finally
EndUpdate;
end;
end;
procedure TLazPackageLinks.RemoveUserLinks(APackageID: TLazPackageID);
var
ANode: TAvlTreeNode;