1105 

  1105 

  1106 function glLoadExtension(extension : shortstring) : boolean;

  1106 function glLoadExtension(extension : shortstring) : boolean;

  1107 begin

  1107 begin

  1108 {$IFDEF IPHONEOS}

  1108 {$IFDEF IPHONEOS}

  1109     glLoadExtension:= false;

  1109     glLoadExtension:= false;

  1110 {$ELSE}

  1113 {$ELSE}

  1111     glLoadExtension:= glext_LoadExtension(extension);

  1114     glLoadExtension:= glext_LoadExtension(extension);

  1113 {$IFDEF DEBUGFILE}

  1115 {$IFDEF DEBUGFILE}

  1114     if not glLoadExtension then

  1116     if not glLoadExtension then

  1115         AddFileLog('OpenGL - "' + extension + '" failed to load')

  1117         AddFileLog('OpenGL - "' + extension + '" failed to load')

  1116     else

  1118     else

  1117         AddFileLog('OpenGL - "' + extension + '" loaded');

  1119         AddFileLog('OpenGL - "' + extension + '" loaded');

  1118 {$ENDIF}

  1121 {$ENDIF}

  1119 end;

  1122 end;

  1120 

  1123 

  1121 procedure SetupOpenGL;

  1124 procedure SetupOpenGL;

  1122 var vendor: shortstring;

  1125 var vendor: shortstring;