From 67081e51b3e56cee6d951810cad3ca674d8ebb49 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 13 Aug 2011 12:31:37 +0000
Subject: [PATCH] LCL: Implement procedure TMenuItem.Add(const AItems: array of
 TMenuItem), Issue #19889

git-svn-id: trunk@31975 -
---
 lcl/include/menuitem.inc | 8 ++++++++
 lcl/menus.pp             | 1 +
 2 files changed, 9 insertions(+)

diff --git a/lcl/include/menuitem.inc b/lcl/include/menuitem.inc
index 04db784abb..c0c2a0dbbd 100644
--- a/lcl/include/menuitem.inc
+++ b/lcl/include/menuitem.inc
@@ -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;
  ------------------------------------------------------------------------------}
diff --git a/lcl/menus.pp b/lcl/menus.pp
index c4ad1c6373..d6cb78e6a7 100644
--- a/lcl/menus.pp
+++ b/lcl/menus.pp
@@ -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);