hedgewars/uStore.pas
changeset 3757 ad2f669c8435
parent 3697 d5b30d6373fc
child 3764 eb91c02f2d84
equal deleted inserted replaced
3756:d42571e2e6c9 3757:ad2f669c8435
  1156     glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);
  1156     glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);
  1157 
  1157 
  1158     vendor:= LowerCase(shortstring(pchar(glGetString(GL_VENDOR))));
  1158     vendor:= LowerCase(shortstring(pchar(glGetString(GL_VENDOR))));
  1159 {$IFDEF DEBUGFILE}
  1159 {$IFDEF DEBUGFILE}
  1160     AddFileLog('OpenGL-- Renderer: ' + shortstring(pchar(glGetString(GL_RENDERER))));
  1160     AddFileLog('OpenGL-- Renderer: ' + shortstring(pchar(glGetString(GL_RENDERER))));
  1161     AddFileLog('  |----- Vendor: ' + vendor);
  1161     AddFileLog('  |----- Vendor: ' + shortstring(pchar(glGetString(GL_VENDOR))));
  1162     AddFileLog('  |----- Version: ' + shortstring(pchar(glGetString(GL_VERSION))));
  1162     AddFileLog('  |----- Version: ' + shortstring(pchar(glGetString(GL_VERSION))));
  1163     AddFileLog('  \----- GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));
  1163     AddFileLog('  \----- GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));
  1164 {$ENDIF}
  1164 {$ENDIF}
  1165 
  1165 
  1166     if MaxTextureSize <= 0 then
  1166     if MaxTextureSize <= 0 then