* update AllOk parameter of Load_GL_version_1_2x() when loading an extension

    fails (mantis #30663, patch by Paul Michell)

git-svn-id: trunk@34595 -

packages/opengl/src/glext.pp

@@ -5201,17 +5201,17 @@ end;
 procedure Load_GL_version_1_2x(var allOK: Boolean);
 begin
   glBlendColor := wglGetProcAddress('glBlendColor');
-  if not Assigned(glBlendColor) then Exit;
+  if not Assigned(glBlendColor) then allOK := False;
   glBlendEquation := wglGetProcAddress('glBlendEquation');
-  if not Assigned(glBlendEquation) then Exit;
+  if not Assigned(glBlendEquation) then allOK := False;
   glDrawRangeElements := wglGetProcAddress('glDrawRangeElements');
-  if not Assigned(glDrawRangeElements) then Exit;
+  if not Assigned(glDrawRangeElements) then allOK := False;
   glTexImage3D := wglGetProcAddress('glTexImage3D');
-  if not Assigned(glTexImage3D) then Exit;
+  if not Assigned(glTexImage3D) then allOK := False;
   glTexSubImage3D := wglGetProcAddress('glTexSubImage3D');
-  if not Assigned(glTexSubImage3D) then Exit;
+  if not Assigned(glTexSubImage3D) then allOK := False;
   glCopyTexSubImage3D := wglGetProcAddress('glCopyTexSubImage3D');
-  if not Assigned(glCopyTexSubImage3D) then Exit;
+  if not Assigned(glCopyTexSubImage3D) then allOK := False;
 end;
 
 function Load_GL_version_1_2: boolean;