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

LCL: added THelpDatabase.UnregisterAllItems

Browse Source 
git-svn-id: trunk@24467 -
This commit is contained in:
mattias 2010-04-06 12:36:09 +00:00
parent cd0c7d799e
commit f0d942c1da
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/lazhelpintf.pas
View File

@ -346,6 +346,7 @@ type
procedure RegisterItemWithNode(Node: THelpNode);
procedure RegisterFileItemWithNode(const Filename: string; Node: THelpNode);
procedure UnregisterItem(AnItem: THelpDBItem);
procedure UnregisterAllItems;
function RegisteredItemCount: integer;
function GetRegisteredItem(Index: integer): THelpDBItem;
procedure Load(Storage: TConfigStorage); virtual;
@ -1126,6 +1127,16 @@ begin
FSearchItems.Remove(AnItem);
end;
procedure THelpDatabase.UnregisterAllItems;
var
i: Integer;
begin
if FSearchItems=nil then exit;
for i:=0 to FSearchItems.Count-1 do
TObject(FSearchItems[i]).Free;
FSearchItems.Clear;
end;
function THelpDatabase.RegisteredItemCount: integer;
begin
if FSearchItems=nil then