mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Feature [0001289] Store tabs in a separate config file

Browse source 
(cherry picked from commit 2d581148ee)
This commit is contained in:
Alexander Koblov 2023-10-19 18:13:49 +03:00
commit b38dc095a7
1 changed files with 25 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/fmain.pas
View file

@ -6088,9 +6088,21 @@ begin
end;
procedure TfrmMain.LoadTabs;
var
AConfig: TXmlConfig;
begin
LoadTabsXml(gConfig,'Tabs/OpenedTabs/Left', nbLeft);
LoadTabsXml(gConfig,'Tabs/OpenedTabs/Right', nbRight);
if gConfig.FindNode(gConfig.RootNode, 'Tabs/OpenedTabs') <> nil then
AConfig:= gConfig
else begin
AConfig:= TXmlConfig.Create(gpCfgDir + 'tabs.xml', True);
end;
try
LoadTabsXml(AConfig, 'Tabs/OpenedTabs/Left', nbLeft);
LoadTabsXml(AConfig, 'Tabs/OpenedTabs/Right', nbRight);
finally
if (AConfig <> gConfig) then AConfig.Free;
end;
if not CommandLineParams.ActivePanelSpecified then
begin
@ -6306,6 +6318,8 @@ begin
end;
procedure TfrmMain.ConfigSaveSettings(bForce: Boolean);
var
AConfig: TXmlConfig;
begin
try
DebugLn('Saving configuration');
@ -6316,8 +6330,15 @@ begin
(* Save all tabs *)
if gSaveFolderTabs or bForce then
begin
SaveTabsXml(gConfig, 'Tabs/OpenedTabs/', nbLeft, gSaveDirHistory);
SaveTabsXml(gConfig, 'Tabs/OpenedTabs/', nbRight, gSaveDirHistory);
AConfig:= TXmlConfig.Create(gpCfgDir + 'tabs.xml');
try
SaveTabsXml(AConfig, 'Tabs/OpenedTabs/', nbLeft, gSaveDirHistory);
SaveTabsXml(AConfig, 'Tabs/OpenedTabs/', nbRight, gSaveDirHistory);
AConfig.Save;
finally
AConfig.Free;
end;
gConfig.DeleteNode(gConfig.RootNode, 'Tabs/OpenedTabs');
end;
if gSaveWindowState then SaveWindowState;