From 08414d0f69313fd72c8e5f8f07bc4a55429e7e4d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 30 May 2012 08:05:25 +0000
Subject: [PATCH] IDE: when docked keep IDE caption

git-svn-id: trunk@37463 -
---
 ide/mainbar.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index 247377754f..75fa47ff02 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -379,6 +379,7 @@ type
     procedure UnhideIDE;
     procedure CreatePopupMenus(TheOwner: TComponent);
     property OnActive: TNotifyEvent read FOnActive write FOnActive;
+    procedure UpdateDockCaption(Exclude: TControl); override;
   end;
 
 var
@@ -467,6 +468,11 @@ begin
     DoActive;
 end;
 
+procedure TMainIDEBar.UpdateDockCaption(Exclude: TControl);
+begin
+  // keep IDE caption
+end;
+
 constructor TMainIDEBar.Create(TheOwner: TComponent);
 begin
   // This form has no resource => must be constructed using CreateNew