Allow the components to be used with Multi-Device applications in all platforms.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -1374,7 +1374,7 @@    EPyWindowsError = class (EPyOSError);
   TIOStringList = TStringList;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$IFEND}
   TPythonInputOutput = class(TComponent)
   protected
@@ -2122,7 +2122,7 @@   TPythonTraceback = class
   end;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$IFEND}
   TPythonEngine = class(TPythonInterface)
   private
@@ -2599,7 +2599,7 @@   TErrors = class(TCollection)
   end;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$IFEND}
   TPythonModule = class(TMethodsContainer)
     protected
@@ -2865,7 +2865,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(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$IFEND}
   TPythonType = class(TGetSetContainer)
     protected
@@ -2953,7 +2953,7 @@   TPythonType = class(TGetSetContainer)
   TExtSetDataEvent = procedure ( Sender : TObject; Data : PPyObject) of Object;
 
   {$IF not Defined(FPC) and (CompilerVersion >= 23)}
-  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$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(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$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(pidWin32 or pidWin64)]
+  [ComponentPlatformsAttribute(pidAllPlatforms)]
   {$IFEND}
   TPythonDatabase = class(TEngineClient)
     protected