From 63bd92b3631bdcdf9bbfe77f903f151406729f24 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 3 Mar 2008 10:14:23 +0000
Subject: [PATCH] don't change uniteditor height to fit messageview into
 visible area if messageview is docked into another window

git-svn-id: trunk@14380 -
---
 ide/main.pp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index b8b1b6aa5c..dd122fd9b4 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -10403,13 +10403,15 @@ procedure TMainIDE.DoArrangeSourceEditorAndMessageView(PutOnTop: boolean);
 begin
   DoShowMessagesView;
 
-  if (iwpDefault=EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(
+  if (iwpDefault = EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(
                                         nmiwSourceNoteBookName).WindowPlacement)
-  and ((SourceNotebook.Top+SourceNotebook.Height) > MessagesView.Top) then
+  and ((SourceNotebook.Top + SourceNotebook.Height) > MessagesView.Top) and (MessagesView.Parent = nil) then
     SourceNotebook.Height := Max(50,Min(SourceNotebook.Height,
        MessagesView.Top-SourceNotebook.Top));
-  if PutOnTop then begin
-    MessagesView.ShowOnTop;
+  if PutOnTop then 
+  begin
+    if MessagesView.Parent = nil then
+      MessagesView.ShowOnTop;
     SourceNotebook.ShowOnTop;
   end;
 end;