- try
- GLSL_DC:=form1.canvas.handle;
- InitOpenGL;
- GLSL_RC := CreateRenderingContext(GLSL_DC, [opDoubleBuffered,opGDI], 32, 24, 0, 0, 0, 0);
- ActivateRenderingContext(GLSL_DC, GLSL_RC);
- ReadImplementationProperties;
- ReadOpenGLCore;
- parselst:=tstringlist.create;
- versionstr:=string(glGetString(GL_SHADING_LANGUAGE_VERSION));
- parse(versionstr,' ',parselst,true);
- if strtofloat(parselst[0])<3 then GLSL_Available:=false else GLSL_Available:=true;
- parselst.free;
- GLSL_Available:=true;
- except
- GLSL_Available:=false;
- end;