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

LCL: Implement procedure TMenuItem.Add(const AItems: array of TMenuItem), Issue #19889

Browse Source 
git-svn-id: trunk@31975 -
This commit is contained in:
juha 2011-08-13 12:31:37 +00:00
parent 278845f007
commit 67081e51b3
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/menuitem.inc
View File

@ -30,6 +30,14 @@ begin
Insert(GetCount, Item);
end;
procedure TMenuItem.Add(const AItems: array of TMenuItem);
var
i: Integer;
begin
for i := Low(AItems) to High(AItems) do
Add(AItems[i]);
end;
{------------------------------------------------------------------------------
procedure TMenuItem.AddSeparator;
------------------------------------------------------------------------------}

1
lcl/menus.pp
View File

@ -229,6 +229,7 @@ type
function IndexOfCaption(const ACaption: string): Integer; virtual;
function VisibleIndexOf(Item: TMenuItem): Integer;
procedure Add(Item: TMenuItem);
procedure Add(const AItems: array of TMenuItem);
procedure AddSeparator;
procedure Click; virtual;
procedure Delete(Index: Integer);