Source position: GLUserShader.pas line 44
type TOnDoUnApplyEvent = procedure(
Sender: TObject;
Pass: Integer;
var rci: TGLRenderContextInfo;
var Continue: Boolean
) of object;