paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 19:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: backup: do not store default extension and maxcounter

Browse Source 
git-svn-id: trunk@51705 -
This commit is contained in:
mattias 2016-02-26 12:48:13 +00:00
parent 30b99221c8
commit ed8900d395
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/environmentopts.pp
View File

@ -100,7 +100,9 @@ type
const
DefaultBackupTypeProject = bakSameName;
DefaultBackupTypeOther = bakUserDefinedAddExt;
DefaultBackupAddExt = 'bak';
DefaultBackupMaxCounter = 9;
{ Debugging }
type
@ -1386,14 +1388,14 @@ begin
// backup
with FBackupInfoProjectFiles do begin
BackupType:=DefaultBackupTypeProject;
AdditionalExtension:='bak'; // for bakUserDefinedAddExt
MaxCounter:=3; // for bakCounter
AdditionalExtension:=DefaultBackupAddExt; // for bakUserDefinedAddExt
MaxCounter:=DefaultBackupMaxCounter; // for bakCounter
SubDirectory:='';
end;
with FBackupInfoOtherFiles do begin
BackupType:=DefaultBackupTypeOther;
AdditionalExtension:='bak'; // for bakUserDefinedAddExt
MaxCounter:=3; // for bakCounter
AdditionalExtension:=DefaultBackupAddExt; // for bakUserDefinedAddExt
MaxCounter:=DefaultBackupMaxCounter; // for bakCounter
SubDirectory:='';
end;
@ -1553,8 +1555,8 @@ procedure TEnvironmentOptions.LoadNonDesktop(Path: String);
BackupType:=bakUserDefinedAddExt;
end;
end;
AdditionalExtension:=FXMLCfg.GetValue(Path+'AdditionalExtension','bak');
MaxCounter:=FXMLCfg.GetValue(Path+'MaxCounter',9);
AdditionalExtension:=FXMLCfg.GetValue(Path+'AdditionalExtension',DefaultBackupAddExt);
MaxCounter:=FXMLCfg.GetValue(Path+'MaxCounter',DefaultBackupMaxCounter);
if FFileVersion<101 then
SubDirectory:=''
else
@ -1909,8 +1911,8 @@ procedure TEnvironmentOptions.SaveNonDesktop(Path: String);
begin
with BackupInfo do begin
FXMLCfg.SetDeleteValue(Path+'Type',BackupTypeToName(BackupType),BackupTypeToName(DefaultBackupType));
FXMLCfg.SetDeleteValue(Path+'AdditionalExtension',AdditionalExtension,'.bak');
FXMLCfg.SetDeleteValue(Path+'MaxCounter',MaxCounter,10);
FXMLCfg.SetDeleteValue(Path+'AdditionalExtension',AdditionalExtension,DefaultBackupAddExt);
FXMLCfg.SetDeleteValue(Path+'MaxCounter',MaxCounter,DefaultBackupMaxCounter);
FXMLCfg.SetDeleteValue(Path+'SubDirectory',SubDirectory,'backup');
end;
end;