RTTI: fixed compatibility with Delphi XE2 and older

jackdp · Jul 24, 2022 · 0ea0751 · 0ea0751
1 parent dfff683
commit 0ea0751
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;