From 0ea075148713692e4f7962de0162d722d313af05 Mon Sep 17 00:00:00 2001
From: Jacek Pazera <jacekpazera@wp.pl>
Date: Sun, 24 Jul 2022 21:10:22 +0200
Subject: [PATCH] RTTI: fixed compatibility with Delphi XE2 and older

---
 Base/JPL.RTTI.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Base/JPL.RTTI.pas b/Base/JPL.RTTI.pas
index 8a6516e..d897463 100644
--- a/Base/JPL.RTTI.pas
+++ b/Base/JPL.RTTI.pas
@@ -30,7 +30,7 @@ function GetPropertyText(Obj: TObject; const PropertyName, Default: string): str
 function SetPropertyIntValue(Obj: TObject; PropertyName: string; Value: integer): Boolean;
 function GetPropertyIntValue(Obj: TObject; const PropertyName: string; const Default: integer): integer;
 
-{$IFDEF DCC}
+{$IFDEF DELPHIXE3_OR_ABOVE}
 function SetPropertyStyleElementsValue(Obj: TObject; const AValue: TStyleElements): Boolean;
 {$ENDIF}
 
@@ -282,7 +282,7 @@ function TryGetPropertyAsClass(const Obj: TObject; const PropertyName: string; o
   Result := OutClass <> nil;
 end;
 
-{$IFDEF DCC}
+{$IFDEF DELPHIXE3_OR_ABOVE}
 function SetPropertyStyleElementsValue(Obj: TObject; const AValue: TStyleElements): Boolean;
 var
   RContext: TRttiContext;