GLS.CgRegister.pas 689 B

12345678910111213141516171819202122232425262728293031323334353637
  1. //
  2. // The graphics GaLaXy Engine. The unit of GLScene
  3. //
  4. unit GLS.CgRegister;
  5. (* Registration unit for Cg shader package *)
  6. interface
  7. {$I Stage.Defines.inc}
  8. uses
  9. System.Classes,
  10. DesignIntf,
  11. DesignEditors,
  12. VCLEditors,
  13. GLS.Material,
  14. Cg.Import,
  15. Cg.GL,
  16. GLS.SceneRegister, // using TGLLibMaterialNameProperty
  17. GLS.CgShader,
  18. GLS.CgBombShader;
  19. procedure Register;
  20. implementation //--------------------------------------------------------------
  21. procedure Register;
  22. begin
  23. RegisterComponents('GLScene Shaders', [TCgShader, TCgBombShader]);
  24. RegisterPropertyEditor(TypeInfo(TGLLibMaterialName), TCgBombShader, '',
  25. TGLLibMaterialNameProperty);
  26. end;
  27. end.