From 6fe68d12673707e899eaad9ec96ae8d3da0a841b Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sun, 4 Apr 2010 13:21:28 +0200
Subject: [PATCH] Added destructor for the paramhints.

---
 Units/Misc/v_autocompleteform.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Units/Misc/v_autocompleteform.pas b/Units/Misc/v_autocompleteform.pas
index 14b86b0..a4e49c6 100644
--- a/Units/Misc/v_autocompleteform.pas
+++ b/Units/Misc/v_autocompleteform.pas
@@ -99,6 +99,7 @@ type
     procedure DrawHints(var MaxWidth, MaxHeight: Integer; Draw: boolean);
     function PrepareParamString(out Str : string; out MustHide : boolean) : integer;
   public
+    destructor Destroy; override;
     constructor Create(TheOwner: TComponent); override;
     procedure CalculateBounds;
     procedure UpdateHint;
@@ -706,6 +707,12 @@ begin
   Parser.Free;
 end;
 
+destructor TParamHint.Destroy;
+begin
+  Application.RemoveOnIdleHandler(@ApplicationIdle);
+  inherited Destroy;
+end;
+
 
 constructor TParamHint.Create(TheOwner: TComponent);
 begin