From dbdc54dc58737d224da24a876c2770ea851ab12b Mon Sep 17 00:00:00 2001
From: delphidabbler <delphidabbler@eed78412-d13c-44e9-9ac7-ca5071eb296d>
Date: Sat, 11 Jan 2014 02:36:28 +0000
Subject: [PATCH] projects: * Fixed Delphi XE5 compilation error in use of
 $IFEND compiler directive by including suitable $LEGACYIFEND directives for
 compilers that support it. This fix applies to all main project units along
 with some demo project files and units.

git-svn-id: https://svn.code.sf.net/p/ddablib/code/trunk@1515 eed78412-d13c-44e9-9ac7-ca5071eb296d
---
 PJStringPE.pas | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/PJStringPE.pas b/PJStringPE.pas
index 87bce1b..bb937c0 100644
--- a/PJStringPE.pas
+++ b/PJStringPE.pas
@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2004-2013, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2004-2014, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -22,14 +22,15 @@ interface
 
 // Requires Delphi 6 or later
 
-{$IF CompilerVersion >= 15.0} // Delphi 7 and later
-  {$WARN UNSAFE_CODE OFF}
+{$IF CompilerVersion >= 24.0} // Delphi XE3 and later
+  {$LEGACYIFEND ON}  // NOTE: this must come before all $IFEND directives
+  {$DEFINE TScrollStyleMoved}
 {$IFEND}
-{$IF CompilerVersion >= 23.0} // Delphi XE2
+{$IF CompilerVersion >= 23.0} // Delphi XE2 and later
   {$DEFINE RTLNameSpaces}
 {$IFEND}
-{$IF CompilerVersion >= 24.0} // Delphi XE3
-  {$DEFINE TScrollStyleMoved}
+{$IF CompilerVersion >= 15.0} // Delphi 7 and later
+  {$WARN UNSAFE_CODE OFF}
 {$IFEND}