Physics.Register.pas 747 B

123456789101112131415161718192021222324252627282930
  1. //
  2. // The graphics platform GLScene https://github.com/glscene
  3. //
  4. unit Physics.Register;
  5. (* DesignTime registration code for the Physics Managers *)
  6. interface
  7. uses
  8. System.Classes,
  9. Physics.ODEManager,
  10. Physics.NGDManager,
  11. Physics.SPIManager;
  12. procedure Register;
  13. // ------------------------------------------------------------------
  14. implementation
  15. // ------------------------------------------------------------------
  16. procedure Register;
  17. begin
  18. RegisterClasses([TGLODEManager, TGLODEJointList, TGLODEJoints, TGLODEElements,
  19. TGLNGDManager, TGLNGDDynamic, TGLNGDStatic, TGLSPIManager]);
  20. RegisterComponents('GLScene Physics Managers', [TGLODEManager, TGLODEJointList,
  21. TGLNGDManager, TGLSPIManager]);
  22. end;
  23. end.