From be2b8c751e5e5e126f0672314b8b23c92d83fce8 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 6 Mar 2008 06:42:48 +0000
Subject: [PATCH] fixed memory leak

git-svn-id: trunk@14441 -
---
 ideintf/menuintf.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ideintf/menuintf.pas b/ideintf/menuintf.pas
index 4ed416df3f..86f2c92811 100644
--- a/ideintf/menuintf.pas
+++ b/ideintf/menuintf.pas
@@ -1160,9 +1160,14 @@ begin
 end;
 
 destructor TIDEMenuSection.Destroy;
+var
+  AHandlerType: TIDEMenuSectionHandlerType;
 begin
   Clear;
   FItems.Free;
+  for AHandlerType := Low(TIDEMenuSectionHandlerType) to High(TIDEMenuSectionHandlerType) do
+    if FSectionHandlers[AHandlerType] <> nil then
+      FreeAndNil(FSectionHandlers[AHandlerType]);
   inherited Destroy;
 end;