Merged revision(s) 4575-4590 from tags/version-4.10.0:

This updates the trunk with changes made in release 4.10.0.

Author: delphidabbler

Docs/ChangeLogs/ChangeLog-v4.txt

@@ -11,13 +11,18 @@
 ; Change Log for CodeSnip Release 4
 ; ------------------------------------------------------------------------------
 
+Release v4.10.0 of 12 September 2014
++ Added support for test compilation with, and detection of, Delphi XE7 compiler.
++ Updated documentation re changes.
++ Updated help file re changes.
+
 Release v4.9.0 of 30 April 2014
 + Added support for test compilation with, and detection of, Delphi XE6 compiler.
 + Updated documentation re changes.
 + Updated help file re changes.
 
 Release v4.8.7 of 06 March 2014
-+ Changed so that automatic bug checker now correctly records last update date. This fixes bug #93 (http://bit.ly/NmSQUt).
++ Fixed automatic update checker so that it correctly records last update date. This fixes bug #93 (http://bit.ly/NmSQUt).
 + Updated to use v2 of the DelphiDabbler CodeSnip update web service when checking for availability of program updates.
 + Minor corrections to help file.
 

Docs/Design/FileFormats/config.html

@@ -285,6 +285,9 @@ <h4>
   <li>
     <em>DXE6</em> &ndash; Delphi XE6
   </li>
+  <li>
+    <em>DXE7</em> &ndash; Delphi XE7
+  </li>
   <li>
     <em>FPC</em> &ndash; Free Pascal
   </li>
@@ -567,6 +570,12 @@ <h4>
   <dd>
     Indicates whether Delphi XE6 was included in search.
   </dd>
+  <dt>
+    <strong>DXE7</strong> (Boolean)
+  </dt>
+  <dd>
+    Indicates whether Delphi XE7 was included in search.
+  </dd>
   <dt>
     <strong>FPC</strong> (Boolean)
   </dt>

Docs/Design/FileFormats/export.html

@@ -509,6 +509,9 @@ <h2>
           <li>
             <em>dXE6</em> &ndash; Delphi XE6 compiler
           </li>
+          <li>
+            <em>dXE7</em> &ndash; Delphi XE7 compiler
+          </li>
           <li>
             <em>fpc</em> &ndash; Free Pascal compiler
           </li>

Docs/Design/FileFormats/main-db.html

@@ -154,6 +154,7 @@ <h3>
 DelphiXE4=&lt;Y|N|Q|W&gt;
 DelphiXE5=&lt;Y|N|Q|W&gt;
 DelphiXE6=&lt;Y|N|Q|W&gt;
+DelphiXE7=&lt;Y|N|Q|W&gt;
 FPC=&lt;Y|N|Q|W&gt;
 Extra=&lt;extra-info-REML&gt;
 StandardFormat=&lt;0|1&gt;
@@ -320,6 +321,9 @@ <h3>
       <li>
         <em>DelphiXE6</em> &ndash; Delphi XE6 compiler
       </li>
+      <li>
+        <em>DelphiXE7</em> &ndash; Delphi XE7 compiler
+      </li>
       <li>
         <em>FPC</em> &ndash; Free Pascal compiler
       </li>

Docs/Design/FileFormats/user-db.html

@@ -559,6 +559,9 @@ <h3>
           <li>
             <em>dXE6</em> &ndash; Delphi XE6 compiler
           </li>
+          <li>
+            <em>dXE7</em> &ndash; Delphi XE7 compiler
+          </li>
           <li>
             <em>fpc</em> &ndash; Free Pascal compiler
           </li>

Docs/ReadMe.txt

@@ -14,7 +14,7 @@ online DelphiDabbler Code Snippets database as well as maintain a database of
 user-defined snippets.
 
 It displays details of each snippet in the database and can test-compile them
-with each installed Win32 version of Delphi from v2 to XE6 along with Free
+with each installed Win32 version of Delphi from v2 to XE7 along with Free
 Pascal.
 
 Compilable Pascal units can be created that contain selected snippets.
@@ -225,7 +225,7 @@ dialogue" in the help file index).
 
 Each user can configure compilers differently.
 
-Delphi XE2 to XE6 may need to be configured to search for required units in the
+Delphi XE2 to XE7 may need to be configured to search for required units in the
 correct namespaces. This is explained in the Add/Edit Snippet Dialogue Box help
 topic and in the FAQ at http://delphidabbler.com/url/codesnip-and-xe2.
 

Src/Compilers.UBDS.pas

@@ -139,7 +139,10 @@ function TBDSCompiler.GetIDString: string;
       Result := 'DXE5';
     ciDXE6:
       Result := 'DXE6';
-    else raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
+    ciDXE7:
+      Result := 'DXE7';
+    else
+      raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
   end;
 end;
 
@@ -152,6 +155,7 @@ function TBDSCompiler.GetName: string;
   sDelphiXE4 = 'Delphi XE4';    // name of Delphi XE4 compiler
   sDelphiXE5 = 'Delphi XE5';    // name of Delphi XE5 compiler
   sDelphiXE6 = 'Delphi XE6';    // name of Delphi XE6 compiler
+  sDelphiXE7 = 'Delphi XE7';    // name of Delphi XE7 compiler
 begin
   case GetID of
     ciDXE:
@@ -166,6 +170,8 @@ function TBDSCompiler.GetName: string;
       Result := sDelphiXE5;
     ciDXE6:
       Result := sDelphiXE6;
+    ciDXE7:
+      Result := sDelphiXE7;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -192,6 +198,7 @@ function TBDSCompiler.InstallationRegKey: string;
     ciDXE4    : Result := '\Software\Embarcadero\BDS\11.0';
     ciDXE5    : Result := '\Software\Embarcadero\BDS\12.0';
     ciDXE6    : Result := '\Software\Embarcadero\BDS\14.0';
+    ciDXE7    : Result := '\Software\Embarcadero\BDS\15.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

@@ -39,6 +39,7 @@ interface
     ciDXE4,                             // Delphi XE4
     ciDXE5,                             // Delphi XE5
     ciDXE6,                             // Delphi XE6
+    ciDXE7,                             // Delphi XE7
     ciFPC                               // Free Pascal
   );
 
@@ -51,7 +52,7 @@ interface
   ///  compilers.</summary>
   cBDSCompilers = [
     ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
-    ciDXE3, ciDXE4, ciDXE5, ciDXE6
+    ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7
   ];
 
 const

Src/DBIO.UIniDataReader.pas

@@ -237,7 +237,7 @@ implementation
     'Delphi2', 'Delphi3', 'Delphi4', 'Delphi5', 'Delphi6', 'Delphi7',
     'Delphi2005Win32', 'Delphi2006Win32', 'Delphi2007', 'Delphi2009Win32',
     'Delphi2010', 'DelphiXE', 'DelphiXE2', 'DelphiXE3', 'DelphiXE4',
-    'DelphiXE5', 'DelphiXE6', 'FPC'
+    'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'FPC'
   );
 
 { TIniDataReader }

Src/FirstRun.UConfigFile.pas

@@ -480,6 +480,7 @@ procedure TUserConfigFileUpdater.UpdateNamespaces;
   UpdateForCompiler('DXE4');
   UpdateForCompiler('DXE5');
   UpdateForCompiler('DXE6');
+  UpdateForCompiler('DXE7');
 end;
 
 { TCommonConfigFileUpdater }