TCustomCgShader

type TCustomCgShader = class(TGLShader)

protected

  procedure SetVertexProgram();

  procedure SetOnApplyVertexProgram();

  function GetOnApplyVertexProgram;

  procedure SetOnUnApplyVertexProgram();

  function GetOnUnApplyVertexProgram;

  procedure SetFragmentProgram();

  procedure SetOnApplyFragmentProgram();

  function GetOnApplyFragmentProgram;

  procedure SetOnUnApplyFragmentProgram();

  function GetOnUnApplyFragmentProgram;

  function GetOnInitialize;

  procedure SetOnInitialize();

  procedure DoInitialize(); override;

  procedure DoFinalize; override;

  procedure DoApply(); override;

  function DoUnApply(); override;

  function IsProfileSupported();

  property OnApplyVP: TCgApplyEvent; [rw]

  property OnApplyFP: TCgApplyEvent; [rw]

  property OnUnApplyVP: TCgUnApplyEvent; [rw]

  property OnUnApplyFP: TCgUnApplyEvent; [rw]

  property OnInitialize: TCgShaderEvent; [rw]

  property DesignEnable: Boolean; [rw]

  property VertexProgram: TCgVertexProgram; [rw]

  property FragmentProgram: TCgFragmentProgram; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadShaderPrograms();

  function ShaderSupported; override;

end;

TCustomCgShader

TObject