Source position: GLCgShader.pas line 63
type TCgApplyEvent = procedure(
CgProgram: TCgProgram;
Sender: TObject
) of object;