From b0df4cc0b79524b89e4248a87e6e713ea49cdb71 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 7 Mar 2006 12:02:55 +0000
Subject: [PATCH] added msg view clear menun item

git-svn-id: trunk@8880 -
---
 ide/msgview.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ide/msgview.pp b/ide/msgview.pp
index c5104f15e7..9e1b3712f7 100644
--- a/ide/msgview.pp
+++ b/ide/msgview.pp
@@ -87,6 +87,7 @@ type
     procedure CopyMenuItemClick(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
     procedure HelpMenuItemClick(Sender: TObject);
+    procedure ClearMenuItemClick(Sender: TObject);
     procedure MainPopupMenuPopup(Sender: TObject);
     procedure MessageViewDblClicked(Sender: TObject);
     procedure MessageViewClicked(Sender: TObject);
@@ -160,6 +161,7 @@ type
 
 var
   MessagesView: TMessagesView;
+  MsgClearIDEMenuCommand: TIDEMenuCommand;
   MsgCopyIDEMenuCommand: TIDEMenuCommand;
   MsgCopyAllIDEMenuCommand: TIDEMenuCommand;
   MsgCopyAllAndHiddenIDEMenuCommand: TIDEMenuCommand;
@@ -230,6 +232,8 @@ var
 begin
   MessagesMenuRoot := RegisterIDEMenuRoot(MessagesMenuRootName);
   Path := MessagesMenuRoot.Name;
+  MsgClearIDEMenuCommand :=
+    RegisterIDEMenuCommand(Path, 'Clear', srVK_CLEAR);
   MsgCopyIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy selected',
     lisCopySelectedMessagesToClipboard);
   MsgCopyAllIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy all',
@@ -298,6 +302,7 @@ begin
   //MainPopupMenu.Items.WriteDebugReport('TMessagesView.Create ');
 
   MsgHelpIDEMenuCommand.OnClick    := @HelpMenuItemClick;
+  MsgClearIDEMenuCommand.OnClick   := @ClearMenuItemClick;
   MsgCopyIDEMenuCommand.OnClick    := @CopyMenuItemClick;
   MsgCopyAllIDEMenuCommand.OnClick := @CopyAllMenuItemClick;
   MsgCopyAllAndHiddenIDEMenuCommand.OnClick := @CopyAllAndHiddenMenuItemClick;
@@ -752,6 +757,11 @@ begin
   ExecuteIDECommand(Self, ecContextHelp);
 end;
 
+procedure TMessagesView.ClearMenuItemClick(Sender: TObject);
+begin
+  Clear;
+end;
+
 procedure TMessagesView.MainPopupMenuPopup(Sender: TObject);
 var
   i: LongInt;