From 911aee8a212645610e64e77d044f929e14fd3664 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 11 Aug 2014 17:09:41 +0200
Subject: [PATCH] fix header widget always hidden

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

diff --git a/src/ce_main.pas b/src/ce_main.pas
index db013f0c..19068877 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -278,6 +278,7 @@ type
     procedure openFile(const aFilename: string);
     procedure docChangeNotify(Sender: TObject; const aIndex: Integer);
     procedure docFocusedNotify(Sender: TObject; const aIndex: Integer);
+    function expandSymbolicString(const symString: string): string;
     //
     property WidgetList: TCEWidgetList read fWidgList;
     property MessageWidget: TCEMessagesWidget read fMesgWidg;
@@ -441,7 +442,6 @@ begin
   DockMaster.OnShowOptions := @ShowAnchorDockOptions;
   DockMaster.HeaderStyle := adhsPoints;
   DockMaster.HideHeaderCaptionFloatingControl := true;
-  DockMaster.ShowHeaderCaption := false;
 
   if DockManager is TAnchorDockManager then begin
     aManager:=TAnchorDockManager(DockManager);
@@ -1746,6 +1746,12 @@ begin
 end;
 {$ENDREGION}
 
+function TCEMainForm.expandSymbolicString(const symString: string): string;
+begin
+  // expands some symbolic constant, e.g: project path, current file name, etc.
+  result := '';
+end;
+
 procedure PlugDispatchToHost(aPlugin: TCEPlugin; opCode: LongWord; data0: Integer; data1, data2: Pointer); cdecl;
 var
   ctxt: NativeUint;