From cdc792f60106939a466064b0f6a0915ebd7279a1 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 11 Aug 2014 02:01:08 +0200
Subject: [PATCH] fix widget list in application header

---
 src/ce_main.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 1f35922a..6ead130f 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -273,6 +273,7 @@ type
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
+    procedure UpdateDockCaption(Exclude: TControl = nil); override;
     //
     procedure openFile(const aFilename: string);
     procedure docChangeNotify(Sender: TObject; const aIndex: Integer);
@@ -439,6 +440,8 @@ begin
   DockMaster.MakeDockSite(Self, [akBottom], admrpChild);
   DockMaster.OnShowOptions := @ShowAnchorDockOptions;
   DockMaster.HeaderStyle := adhsPoints;
+  DockMaster.HideHeaderCaptionFloatingControl := true;
+  DockMaster.ShowHeaderCaption := false;
 
   if DockManager is TAnchorDockManager then begin
     aManager:=TAnchorDockManager(DockManager);
@@ -465,7 +468,6 @@ begin
 
   DockMaster.GetAnchorSite(fExplWidg).Close;
   DockMaster.GetAnchorSite(fLibMWidg).Close;
-
   LoadDocking;
 end;
 
@@ -595,6 +597,12 @@ begin
   inherited;
 end;
 
+procedure TCEMainForm.UpdateDockCaption(Exclude: TControl = nil);
+begin
+  // otherwise dockmaster puts the widget list.
+  Caption := 'Coedit';
+end;
+
 procedure TCEMainForm.ApplicationProperties1Exception(Sender: TObject;E: Exception);
 begin
   if fMesgWidg = nil then