From 2132d8a81f5c59960bb12b55b56df57d5188237a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 3 Mar 2008 22:21:09 +0000
Subject: [PATCH] IDE: messages windows: added docking popup menu item

git-svn-id: trunk@14399 -
---
 ide/lazarusidestrconsts.pas |  1 +
 ide/msgview.pp              | 17 +++++++++++++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 38e4573f7f..fe2cb994ed 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -268,6 +268,7 @@ resourcestring
   lisCopyAllAndHiddenMessagesToClipboard = 'Copy all and hidden messages '
                                            +'to clipboard';
   lisSaveAllMessagesToFile = 'Save all messages to file';
+  lisMVDocking = 'Docking';
   lisMenuViewSearchResults = 'Search Results';
   lisSearchAgain = 'Search again';
   lisSRClosePage = 'Close page';
diff --git a/ide/msgview.pp b/ide/msgview.pp
index 04399b3dd1..81378ffd61 100644
--- a/ide/msgview.pp
+++ b/ide/msgview.pp
@@ -72,6 +72,7 @@ type
     procedure CopyAllMenuItemClick(Sender: TObject);
     procedure CopyAllAndHiddenMenuItemClick(Sender: TObject);
     procedure CopyMenuItemClick(Sender: TObject);
+    procedure DockMenuItemClick(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
     procedure HelpMenuItemClick(Sender: TObject);
     procedure ClearMenuItemClick(Sender: TObject);
@@ -155,13 +156,14 @@ type
 
 var
   MessagesView: TMessagesView = nil;
+  MsgQuickFixIDEMenuSection: TIDEMenuSection;
   MsgClearIDEMenuCommand: TIDEMenuCommand;
   MsgCopyIDEMenuCommand: TIDEMenuCommand;
   MsgCopyAllIDEMenuCommand: TIDEMenuCommand;
   MsgCopyAllAndHiddenIDEMenuCommand: TIDEMenuCommand;
   MsgHelpIDEMenuCommand: TIDEMenuCommand;
   MsgSaveAllToFileIDEMenuCommand: TIDEMenuCommand;
-  MsgQuickFixIDEMenuSection: TIDEMenuSection;
+  MsgDockIDEMenuCommand: TIDEMenuCommand;
 
 const
   MessagesMenuRootName = 'Messages';
@@ -226,6 +228,7 @@ var
 begin
   MessagesMenuRoot := RegisterIDEMenuRoot(MessagesMenuRootName);
   Path := MessagesMenuRoot.Name;
+  MsgQuickFixIDEMenuSection := RegisterIDEMenuSection(Path, 'Quick Fix');
   MsgClearIDEMenuCommand :=
     RegisterIDEMenuCommand(Path, 'Clear', srVK_CLEAR);
   MsgCopyIDEMenuCommand := RegisterIDEMenuCommand(Path, 'Copy selected',
@@ -240,7 +243,8 @@ begin
   MsgSaveAllToFileIDEMenuCommand :=
     RegisterIDEMenuCommand(Path, 'Copy selected',
     lisSaveAllMessagesToFile);
-  MsgQuickFixIDEMenuSection := RegisterIDEMenuSection(Path, 'Quick Fix');
+  MsgDockIDEMenuCommand :=
+    RegisterIDEMenuCommand(Path, 'Docking', lisMVDocking);
 end;
 
 function MessageLinesAsText(ListOfTLazMessageLine: TFPList): string;
@@ -301,6 +305,10 @@ begin
   MsgCopyAllIDEMenuCommand.OnClick := @CopyAllMenuItemClick;
   MsgCopyAllAndHiddenIDEMenuCommand.OnClick := @CopyAllAndHiddenMenuItemClick;
   MsgSaveAllToFileIDEMenuCommand.OnClick := @SaveAllToFileMenuItemClick;
+  MsgDockIDEMenuCommand.OnClick :=@DockMenuItemClick;
+  {$IFNDEF EnableIDEDocking}
+  MsgDockIDEMenuCommand.Visible:=false;
+  {$ENDIF}
 
   EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
   ControlDocker:=TLazControlDocker.Create(Self);
@@ -856,6 +864,11 @@ begin
   Clipboard.AsText := GetSelectedMessagesAsText;
 end;
 
+procedure TMessagesView.DockMenuItemClick(Sender: TObject);
+begin
+  ControlDocker.ShowDockingEditor;
+end;
+
 procedure TMessagesView.FormDeactivate(Sender: TObject);
 begin
   FLastSelectedIndex:=-1;