From b61e6c6f47bdd39a37d7eee7b25c237fbe024055 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 5 Jun 2014 21:20:00 +0000
Subject: [PATCH] IDE: messages: do not use popupclose event for clear

git-svn-id: trunk@45362 -
---
 ide/etmessageframe.lfm | 1 -
 ide/etmessageframe.pas | 6 ------
 ide/etquickfixes.pas   | 4 ++--
 3 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/ide/etmessageframe.lfm b/ide/etmessageframe.lfm
index 8abd834836..049f9dd946 100644
--- a/ide/etmessageframe.lfm
+++ b/ide/etmessageframe.lfm
@@ -83,7 +83,6 @@ object MessagesFrame: TMessagesFrame
   end
   object MsgCtrlPopupMenu: TPopupMenu
     OnPopup = MsgCtrlPopupMenuPopup
-    OnClose = MsgCtrlPopupMenuClose
     left = 240
     top = 25
   end
diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index 1b7f80f6e3..72de944b79 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -325,7 +325,6 @@ type
     procedure FilterMsgOfTypeMenuItemClick(Sender: TObject);
     procedure FilterUrgencyMenuItemClick(Sender: TObject);
     procedure HideSearchSpeedButtonClick(Sender: TObject);
-    procedure MsgCtrlPopupMenuClose(Sender: TObject);
     procedure MsgCtrlPopupMenuPopup(Sender: TObject);
     procedure OnSelectFilterClick(Sender: TObject);
     procedure OpenToolsOptionsMenuItemClick(Sender: TObject);
@@ -3020,11 +3019,6 @@ begin
   SearchEdit.Text:=GetDefaultSearchText;
 end;
 
-procedure TMessagesFrame.MsgCtrlPopupMenuClose(Sender: TObject);
-begin
-  IDEQuickFixes.ClearLines;
-end;
-
 procedure TMessagesFrame.CopyFilenameMenuItemClick(Sender: TObject);
 begin
   CopyMsgToClipboard(true);
diff --git a/ide/etquickfixes.pas b/ide/etquickfixes.pas
index c9c6d68616..7793a16157 100644
--- a/ide/etquickfixes.pas
+++ b/ide/etquickfixes.pas
@@ -125,10 +125,10 @@ type
   public
     constructor Create(aOwner: TComponent); override;
     destructor Destroy; override;
-    procedure OnPopupMenu(aParentMenuItem: TIDEMenuSection);
+    procedure ClearLines;
     procedure SetMsgLines(aMsg: TMessageLine);
     procedure AddMsgLine(aMsg: TMessageLine);
-    procedure ClearLines;
+    procedure OnPopupMenu(aParentMenuItem: TIDEMenuSection);
     function AddMenuItem(Fix: TMsgQuickFix; Msg: TMessageLine; aCaption: string;
       aTag: PtrInt=0): TIDEMenuCommand; override;
     function OpenMsg(Msg: TMessageLine): boolean;