Explorar o código

Quick.Config.Json cleanup

Unknown %!s(int64=6) %!d(string=hai) anos
pai
achega
1d4ecad868
Modificáronse 1 ficheiros con 6 adicións e 0 borrados
  1. 6 0
      Quick.Config.Json.pas

+ 6 - 0
Quick.Config.Json.pas

@@ -57,6 +57,12 @@ type
   TFileModifiedEvent = procedure of object;
   TLoadConfigEvent = procedure of object;
 
+  {$IFNDEF FPC}
+  TNotSerializableProperty = Quick.Json.Serializer.TNotSerializableProperty;
+  TCommentProperty = Quick.Json.Serializer.TCommentProperty;
+  TCustomNameProperty = Quick.Json.Serializer.TCustomNameProperty;
+  {$ENDIF}
+
   TAppConfigJsonProvider = class(TAppConfigProvider)
   private
     fFilename : string;