Fix pyscripter#131

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -89,6 +89,16 @@ interface
   Variants,
   MethodCallBack;
 
+{$IF not Defined(FPC) and (CompilerVersion >= 23)}
+const
+  {$IF CompilerVersion >= 33}
+    pidSupportedPlatforms = pidWin32 or pidWin64 or pidOSX32 or pidOSX64 or pidLinux64;
+  {$ELSE}
+    pidSupportedPlatforms = pidWin32 or pidWin64 or pidOSX32;
+  {$IFEND}
+{$IFEND}
+
+
 //#######################################################
 //##                                                   ##
 //##           PYTHON specific constants               ##
@@ -1375,7 +1385,7 @@    EPyWindowsError = class (EPyOSError);
   TIOStringList = TStringList;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonInputOutput = class(TComponent)
   protected
@@ -2123,7 +2133,7 @@   TPythonTraceback = class
   end;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonEngine = class(TPythonInterface)
   private
@@ -2600,7 +2610,7 @@   TErrors = class(TCollection)
   end;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonModule = class(TMethodsContainer)
     protected
@@ -2866,7 +2876,7 @@   TTypeServices = class(TPersistent)
   // The component that initializes the Python type and
   // that creates instances of itself.
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonType = class(TGetSetContainer)
     protected
@@ -2954,7 +2964,7 @@   TPythonType = class(TGetSetContainer)
   TExtSetDataEvent = procedure ( Sender : TObject; Data : PPyObject) of Object;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonDelphiVar = class( TEngineClient )
     protected

PythonForDelphi/Components/Sources/Core/WrapDelphi.pas

@@ -752,7 +752,7 @@   TRegisteredUnits = class
      Method EventHandlers.RegisterHandler can be used to add event handling functionality
   }
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPyDelphiWrapper = class(TEngineClient, IFreeNotificationSubscriber)
   private

PythonForDelphi/Components/Sources/VCL/PythonDatabase.pas

@@ -22,7 +22,7 @@ interface
 uses Classes, PythonEngine;
 type
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidAllPlatforms)]
+  [ComponentPlatformsAttribute(pidSupportedPlatforms)]
   {$IFEND}
   TPythonDatabase = class(TEngineClient)
     protected