GLScene/Source/CUDA.Register.pas

//
// The graphics platform GLScene https://github.com/glscene
//
unit CUDA.Register;

(*  Registration unit for GPU Computing package *)

interface

uses
  System.Classes,
  System.SysUtils,
  DesignIntf,
  DesignEditors,
  ToolsAPI,
  StrEdit,

  GLS.SceneRegister,

  CUDA.APIComps,
  CUDA.Context,
  CUDA.PropEditors;


procedure Register;

//--------------------------------------------------------------------
implementation
//--------------------------------------------------------------------

uses
  CUDA.RunTime,
  CUDA.Graphics,
  CUDA.Compiler,
  CUDA.FFTPlan,
  CUDA.Parser;


procedure Register;
begin
  RegisterComponents('GLScene GPU Computing', [TGLCUDA, TGLCUDADevice, TGLCUDACompiler]);
  RegisterComponentEditor(TGLCUDA, TGLCUDAEditor);
  RegisterComponentEditor(TGLCUDACompiler, TGLCUDACompilerEditor);
  RegisterPropertyEditor(TypeInfo(string), TGLCUDACompiler, 'ProjectModule',
    TGLCUDACompilerSourceProperty);
  RegisterPropertyEditor(TypeInfo(string), TGLCUDADevice, 'SelectDevice',
    TGLCUDADeviceProperty);
  RegisterNoIcon([TCUDAModule, TCUDAMemData, TCUDAFunction, TCUDATexture,
    TCUDAFFTPlan, TCUDAImageResource, TCUDAGeometryResource, TCUDAConstant, TCUDAFuncParam]);

  ObjectManager.RegisterSceneObject(TCUDAFeedbackMesh, 'CUDA generated mesh',
     'CUDA Computing', HInstance);
end;


//------------------------------------------------------
initialization
//------------------------------------------------------

  vFindCuFileFunc := FindCuFile;

end.