forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix header widget always hidden

This commit is contained in:
Basile Burg 2014-08-11 17:09:41 +02:00
parent ae884aec4e
commit 911aee8a21
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_main.pas
View File

@ -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;