Cg.Register.pas 731 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. //
  2. // The graphics platform GLScene https://github.com/glscene
  3. //
  4. unit Cg.Register;
  5. (* Registration unit for Cg shader package *)
  6. interface
  7. {$I Scenario.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. Cg.Shader,
  18. Cg.BombShader;
  19. procedure Register;
  20. //-----------------------------------------------------
  21. implementation
  22. //-----------------------------------------------------
  23. procedure Register;
  24. begin
  25. RegisterComponents('GLScene Shaders', [TCgShader, TCgBombShader]);
  26. RegisterPropertyEditor(TypeInfo(TGLLibMaterialName), TCgBombShader, '',
  27. TGLLibMaterialNameProperty);
  28. end;
  29. end.