Unknown 6 лет назад
Родитель
Сommit
1d4ecad868
1 измененных файлов с 6 добавлено и 0 удалено
  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;