From a9259a27cd9c01eb8f3ac1a675d545620425cbac Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 15 Jun 2014 11:54:40 +0000
Subject: [PATCH] IDE: environment options: use constants

git-svn-id: trunk@45529 -
---
 ide/environmentopts.pp | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp
index 9ffc331d4e..72a99e809a 100644
--- a/ide/environmentopts.pp
+++ b/ide/environmentopts.pp
@@ -66,6 +66,9 @@ const
   {$ENDIF}
 
   RestoreProjectClosed = '-';
+  DefaultMaxRecentOpenFiles = 10;
+  DefaultMaxRecentProjectFiles = 5;
+  DefaultMaxRecentPackageFiles = 10;
 
   //----------------------------------------------------------------------------
   
@@ -1023,11 +1026,11 @@ begin
 
   // recent files and directories
   FRecentOpenFiles:=TStringList.Create;
-  FMaxRecentOpenFiles:=10;
+  FMaxRecentOpenFiles:=DefaultMaxRecentOpenFiles;
   FRecentProjectFiles:=TStringList.Create;
-  FMaxRecentProjectFiles:=5;
+  FMaxRecentProjectFiles:=DefaultMaxRecentProjectFiles;
   FRecentPackageFiles:=TStringList.Create;
-  FMaxRecentPackageFiles:=10;
+  FMaxRecentPackageFiles:=DefaultMaxRecentPackageFiles;
   FOpenLastProjectAtStart:=true;
 
   // backup
@@ -1470,15 +1473,15 @@ begin
 
       // recent files and directories
       FMaxRecentOpenFiles:=XMLConfig.GetValue(
-        Path+'Recent/OpenFiles/Max',FMaxRecentOpenFiles);
+        Path+'Recent/OpenFiles/Max',DefaultMaxRecentOpenFiles);
       LoadRecentList(XMLConfig,FRecentOpenFiles,
         Path+'Recent/OpenFiles/',rltFile);
       FMaxRecentProjectFiles:=XMLConfig.GetValue(
-        Path+'Recent/ProjectFiles/Max',FMaxRecentProjectFiles);
+        Path+'Recent/ProjectFiles/Max',DefaultMaxRecentProjectFiles);
       LoadRecentList(XMLConfig,FRecentProjectFiles,
         Path+'Recent/ProjectFiles/',rltFile);
       FMaxRecentPackageFiles:=XMLConfig.GetValue(
-        Path+'Recent/PackageFiles/Max',FMaxRecentOpenFiles);
+        Path+'Recent/PackageFiles/Max',DefaultMaxRecentPackageFiles);
       LoadRecentList(XMLConfig,FRecentPackageFiles,
         Path+'Recent/PackageFiles/',rltFile);
 
@@ -1855,20 +1858,20 @@ begin
         Ord(FShowMenuGlyphs), Ord(sbgSystem));
 
       // recent files and directories
-      XMLConfig.SetValue(
-        Path+'Recent/OpenFiles/Max',FMaxRecentOpenFiles);
+      XMLConfig.SetDeleteValue(
+        Path+'Recent/OpenFiles/Max',FMaxRecentOpenFiles,DefaultMaxRecentOpenFiles);
       SaveRecentList(XMLConfig,FRecentOpenFiles,
         Path+'Recent/OpenFiles/');
-      XMLConfig.SetValue(
-        Path+'Recent/ProjectFiles/Max',FMaxRecentProjectFiles);
+      XMLConfig.SetDeleteValue(
+        Path+'Recent/ProjectFiles/Max',FMaxRecentProjectFiles,DefaultMaxRecentProjectFiles);
       SaveRecentList(XMLConfig,FRecentProjectFiles,
         Path+'Recent/ProjectFiles/');
-      XMLConfig.SetValue(
-        Path+'Recent/PackageFiles/Max',FMaxRecentPackageFiles);
+      XMLConfig.SetDeleteValue(
+        Path+'Recent/PackageFiles/Max',FMaxRecentPackageFiles,DefaultMaxRecentPackageFiles);
       SaveRecentList(XMLConfig,FRecentPackageFiles,
         Path+'Recent/PackageFiles/');
 
-      XMLConfig.SetValue(Path+'Recent/AlreadyPopulated', FAlreadyPopulatedRecentFiles);
+      XMLConfig.SetDeleteValue(Path+'Recent/AlreadyPopulated', FAlreadyPopulatedRecentFiles, false);
 
       // external tools
       {$IFNDEF EnableOldExtTools}