Delphi版OpenGL样例代码导游

由于Delphi自带OpenGL.pas是1.0版的，而现在实际使用的至少是1.1版，Windows纯软件模拟方式也是1.1版的，所以要自己导入一些必要的函数。也可用一些开源的免费单元，如Mike Lischke的OpenGL12.pas。当然，自己写可以设计得更简洁，而且不必在过于超前完备的庞大代码中找错误。

首先引入必要的单元Windows, Messages, OpenGL

要增加一些必要的扩展。

const
  // GL_EXT_bgra
  GL_BGR_EXT                                 = $80E0;
  GL_BGRA_EXT                                = $80E1;

  // polygon offset
  GL_POLYGON_OFFSET_UNITS                    = $2A00;
  GL_POLYGON_OFFSET_POINT                    = $2A01;
  GL_POLYGON_OFFSET_LINE                     = $2A02;
  GL_POLYGON_OFFSET_FILL                     = $8037;
  GL_POLYGON_OFFSET_FACTOR                   = $8038;

procedure glBindTexture(target: GLEnum; texture: GLuint); stdcall; external opengl32;
procedure glDeleteTextures(n: GLsizei; textures: PGLuint); stdcall; external opengl32;
procedure glGenTextures(n: GLsize