mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 01:39:25 +02:00
LCL: Implement procedure TMenuItem.Add(const AItems: array of TMenuItem), Issue #19889
git-svn-id: trunk@31975 -
This commit is contained in:
parent
278845f007
commit
67081e51b3
@ -30,6 +30,14 @@ begin
|
|||||||
Insert(GetCount, Item);
|
Insert(GetCount, Item);
|
||||||
end;
|
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;
|
procedure TMenuItem.AddSeparator;
|
||||||
------------------------------------------------------------------------------}
|
------------------------------------------------------------------------------}
|
||||||
|
@ -229,6 +229,7 @@ type
|
|||||||
function IndexOfCaption(const ACaption: string): Integer; virtual;
|
function IndexOfCaption(const ACaption: string): Integer; virtual;
|
||||||
function VisibleIndexOf(Item: TMenuItem): Integer;
|
function VisibleIndexOf(Item: TMenuItem): Integer;
|
||||||
procedure Add(Item: TMenuItem);
|
procedure Add(Item: TMenuItem);
|
||||||
|
procedure Add(const AItems: array of TMenuItem);
|
||||||
procedure AddSeparator;
|
procedure AddSeparator;
|
||||||
procedure Click; virtual;
|
procedure Click; virtual;
|
||||||
procedure Delete(Index: Integer);
|
procedure Delete(Index: Integer);
|
||||||
|
Loading…
Reference in New Issue
Block a user