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

added docking options persistence

This commit is contained in:
Basile Burg 2014-08-13 22:36:07 +02:00
parent 9866d5fd49
commit e592b047e0
1 changed files with 44 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
src/ce_main.pas
View File

@ -580,6 +580,14 @@ begin
finally
xcfg.Free;
end;
//
xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml',false);
try
DockMaster.SaveSettingsToConfig(xcfg);
xcfg.WriteToDisk;
finally
xcfg.Free;
end;
end;
procedure TCEMainForm.LoadDocking;
@ -587,24 +595,45 @@ var
xcfg: TXMLConfigStorage;
str: TMemoryStream;
begin
if not fileExists(getDocPath + 'docking.xml') then
exit;
xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
try
if fileExists(getDocPath + 'docking.xml') then
begin
xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
try
DockMaster.LoadLayoutFromConfig(xcfg, false);
except
exit;
end;
str := TMemoryStream.Create;
try
xcfg.SaveToStream(str);
str.saveToFile(getDocPath + 'docking.bak')
try
DockMaster.LoadLayoutFromConfig(xcfg, false);
except
exit;
end;
str := TMemoryStream.Create;
try
xcfg.SaveToStream(str);
str.saveToFile(getDocPath + 'docking.bak')
finally
str.Free;
end;
finally
str.Free;
xcfg.Free;
end;
end;
if fileExists(getDocPath + 'dockingopts.xml') then
begin
xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml', true);
try
try
DockMaster.LoadSettingsFromConfig(xcfg);
except
exit;
end;
str := TMemoryStream.Create;
try
xcfg.SaveToStream(str);
str.saveToFile(getDocPath + 'dockingopts.bak')
finally
str.Free;
end;
finally
xcfg.Free;
end;
finally
xcfg.Free;
end;
end;
@ -1525,8 +1554,6 @@ begin
win.Show;
win.BringToFront;
end;
{$ENDREGION}
{$REGION project ---------------------------------------------------------------}