GLS.cgRegister.pas 697 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. //
  2. // This unit is part of the GLScene Engine, http://glscene.org
  3. //
  4. unit GLS.cgRegister;
  5. (* Registration unit for CG shader package *)
  6. interface
  7. {$I GLScene.inc}
  8. uses
  9. System.Classes,
  10. DesignIntf,
  11. DesignEditors,
  12. VCLEditors,
  13. GLMaterial,
  14. Import.Cg,
  15. Import.CgGL,
  16. GLS.SceneRegister,
  17. GLS.cgShader,
  18. GLS.cgBombShader;
  19. procedure Register;
  20. //-----------------------------------------------------
  21. implementation
  22. //-----------------------------------------------------
  23. procedure Register;
  24. begin
  25. RegisterComponents('GLScene Shaders', [TCgShader, TCgBombShader]);
  26. RegisterPropertyEditor(TypeInfo(TGLLibMaterialName), TCgBombShader, '', TGLLibMaterialNameProperty);
  27. end;
  28. end.