TGLSLProgram

type TGLSLProgram = class(TProgram)

public

  constructor Create;

  destructor Destroy; override;

  procedure Attach(); override;

  procedure Detach(); override;

  procedure Link; override;

  procedure Enable; override;

  procedure Disable; override;

  function Log; override;

  procedure SetI(); override;

  procedure SetF(); override;

  procedure Set2I(); override;

  procedure Set2F(); override;

  procedure Set3I(); override;

  procedure Set3F(); override;

  procedure Set4I(); override;

  procedure Set4F(); override;

  procedure Set3Iv(); override;

  procedure Set3Fv(); override;

  procedure SetMatrix(); override;

  procedure BindAttribLocation();

  function GetAttribLocation();

  function GetUniformLocation();

  procedure BindFragDataLocation();

end;

TGLSLProgram

TProgram

TObject