Source position: ctgl.pas line 8591
type TglActiveShaderProgram = procedure(
pipeline: GLuint;
program_: GLuint
);