TGLShader

type TGLShader = class

public

  current: TShaderProgram;

  programs: array of TShaderProgram;

  shaders: array of TShaderSource;

  destructor Destroy; override;

  function AddProgram();

  function AddProgramAndLink;

  function AddShader();

  function AddDefault2D;

  function AddDefault3D();

  procedure AttachShader();

  procedure DeleteProgram();

  procedure Disable;

  procedure Enable;

  function GetUniform();

  function isCompiled;

  function Link;

  function LoadShader();

  procedure SelectProgram();

end;

TGLShader

TObject