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

add action to reset the layout programmatically, close #191

This commit is contained in:
Basile Burg 2017-10-25 05:58:38 +02:00
parent 23652be83b
commit 0978c99c7d
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 67 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
src/ce_main.pas
View File

@ -109,6 +109,7 @@ type
actFileMetricsHalstead: TAction;
actFileCloseAllOthers: TAction;
actFileCloseAll: TAction;
actLayoutReset: TAction;
actProjDscan: TAction;
actProjGroupCompileCustomSync: TAction;
actProjGroupClose: TAction;
@ -275,6 +276,7 @@ type
procedure actFileRunExecute(Sender: TObject);
procedure actFileRunOutExecute(Sender: TObject);
procedure actFileSaveCopyAsExecute(Sender: TObject);
procedure actLayoutResetExecute(Sender: TObject);
procedure actNewGroupExecute(Sender: TObject);
procedure actProjAddToGroupExecute(Sender: TObject);
procedure actProjDscanExecute(Sender: TObject);
@ -430,7 +432,8 @@ type
procedure getCMdParams;
procedure InitMRUs;
procedure InitWidgets;
procedure InitDocking;
procedure InitDocking(reset: boolean = false);
procedure DefaultDocking;
procedure InitOptionsMenu;
procedure LoadSettings;
procedure SaveSettings;
@ -1405,36 +1408,69 @@ begin
setSplitterWheelEvent;
end;
procedure TCEMainForm.InitDocking;
procedure TCEMainForm.InitDocking(reset: boolean = false);
var
i: Integer;
widg: TCEWidget;
topsite : TControl;
topsplt : TAnchorDockSplitter;
begin
DockMaster.MakeDockSite(Self, [akBottom], admrpChild);
DockMaster.OnShowOptions := @ShowAnchorDockOptions;
DockMaster.HeaderStyle := adhsPoints;
DockMaster.HideHeaderCaptionFloatingControl := true;
// makes widget dockable
for i := 0 to fWidgList.Count-1 do
if not reset then
begin
widg := fWidgList.widget[i];
if not widg.isDockable then continue;
DockMaster.MakeDockable(widg, true);
DockMaster.GetAnchorSite(widg).Header.HeaderPosition := adlhpTop;
widg.onDockingChanged:= @widgetDockingChanged;
DockMaster.MakeDockSite(Self, [akBottom], admrpChild);
DockMaster.OnShowOptions := @ShowAnchorDockOptions;
DockMaster.HeaderStyle := adhsPoints;
DockMaster.HideHeaderCaptionFloatingControl := true;
// makes widget dockable
for i := 0 to fWidgList.Count-1 do
begin
widg := fWidgList.widget[i];
if not widg.isDockable then continue;
DockMaster.MakeDockable(widg, true);
DockMaster.GetAnchorSite(widg).Header.HeaderPosition := adlhpTop;
widg.onDockingChanged:= @widgetDockingChanged;
end;
end;
// load existing or default docking
if FileExists(getCoeditDocPath + 'docking.xml') and LoadDocking() then
if not reset and FileExists(getCoeditDocPath + 'docking.xml') and LoadDocking() then
begin end
else
begin
Height := 0;
if reset then
begin
for i := 0 to fWidgList.Count-1 do
begin
widg := fWidgList.widget[i];
if not widg.isDockable then
continue;
if not widg.Visible then
continue;
if widg = fEditWidg then
continue;
if DockMaster.GetAnchorSite(widg).isNotNil then
DockMaster.GetAnchorSite(widg).ManualFloat(widg.ClientRect, false);
end;
end;
if not reset then
begin
Height := 0;
end
else
begin
if WindowState = wsMaximized then
WindowState:= wsNormal;
Height := 600;
Width := 800;
end;
// center
DockMaster.ManualDock(DockMaster.GetAnchorSite(fEditWidg), DockMaster.GetSite(Self), alBottom);
if not reset then
DockMaster.ManualDock(DockMaster.GetAnchorSite(fEditWidg), DockMaster.GetSite(Self), alBottom);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fMesgWidg), DockMaster.GetSite(fEditWidg), alBottom);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fLibMWidg), DockMaster.GetSite(fMesgWidg), alClient, fMesgWidg);
DockMaster.ManualDock(DockMaster.GetAnchorSite(fTodolWidg), DockMaster.GetSite(fMesgWidg), alClient, fMesgWidg);
@ -1488,6 +1524,11 @@ begin
end;
end;
procedure TCEMainForm.DefaultDocking;
begin
end;
procedure TCEMainForm.LoadSettings;
var
fname: string;
@ -2412,6 +2453,12 @@ begin
free;
end;
end;
procedure TCEMainForm.actLayoutResetExecute(Sender: TObject);
begin
InitDocking(true);
end;
{$ENDREGION}
{$REGION edit ------------------------------------------------------------------}
@ -3205,6 +3252,10 @@ var
itm: TMenuItem;
i: integer;
begin
itm := TMenuItem.Create(self);
itm.Action := actLayoutReset;
mnuLayout.Add(itm);
itm := TMenuItem.Create(self);
itm.Action := actLayoutSave;
mnuLayout.Add(itm);