From b153e2469b989684929ea7d09b0efa30f0b69898 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Tue, 5 Feb 2013 11:43:53 +0000
Subject: [PATCH] compile fix for BCB XE3

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@174 7c85be65-684b-0410-a082-b2ed4fbef004
---
 synautil.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/synautil.pas b/synautil.pas
index fcf52bd..024c8f8 100644
--- a/synautil.pas
+++ b/synautil.pas
@@ -1,5 +1,5 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 004.015.003 |
+| Project : Ararat Synapse                                       | 004.015.004 |
 |==============================================================================|
 | Content: support procedures and functions                                    |
 |==============================================================================|
@@ -607,7 +607,7 @@ begin
   x := rpos(':', Value);
   if (x > 0) and ((Length(Value) - x) > 2) then
     Value := Copy(Value, 1, x + 2);
-  Value := ReplaceString(Value, ':', {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}TimeSeparator);
+  Value := ReplaceString(Value, ':', {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}TimeSeparator);
   Result := -1;
   try
     Result := StrToTime(Value);
@@ -2081,7 +2081,7 @@ var
 begin
   for n :=  1 to 12 do
   begin
-    CustomMonthNames[n] := {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
-    MyMonthNames[0, n] := {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
+    CustomMonthNames[n] := {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
+    MyMonthNames[0, n] := {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
   end;
 end.