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

added GlobalDesignHook GetSelectedComponents

Browse Source 
git-svn-id: trunk@2603 -
This commit is contained in:
mattias 2002-08-17 23:41:31 +00:00
parent 78cb32fe74
commit 0f82e5de95
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/lclproc.pas
View File

@ -47,6 +47,8 @@ type
procedure Add(AMethod: TMethod);
procedure Insert(Index: integer; AMethod: TMethod);
procedure Move(OldIndex, NewIndex: integer);
procedure RemoveAllMethodsOfObject(AnObject: TObject);
public
property Items[Index: integer]: TMethod read GetItems write SetItems; default;
end;
@ -356,6 +358,17 @@ begin
FItems[NewIndex]:=MovingMethod;
end;
procedure TMethodList.RemoveAllMethodsOfObject(AnObject: TObject);
var
i: Integer;
begin
i:=FCount-1;
while i>=0 do begin
if TObject(FItems[i].Data)=AnObject then Delete(i);
dec(i);
end;
end;
{------------------------------------------------------------------------------
procedure RaiseGDBException(const Msg: string);