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

fix widget list in application header

This commit is contained in:
Basile Burg 2014-08-11 02:01:08 +02:00
parent e342cb843b
commit cdc792f601
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_main.pas
View File

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