[Delphi版]OpenGL入门学习1：编写第一个OpenGL程序

myisland

0. Requires
GLU.pas
GL.pas

OpenGLPanel.pas

1.第一个OpenGL程序

绘制代码：

• procedure TForm1.OpenGLPanel1Paint(Sender: TObject);
• begin
•   glClearColor(0.0, 0.0, 0.0, 0.0);  // 设置背景色（清除scene）
•   glClear(GL_COLOR_BUFFER_BIT);      // 清除颜色缓冲区
•   glrectf(-0.5,-0.5,0.5,0.5);        //绘制矩形
•   OpenGLPanel1.SwapBuffers;
• end;
  

[color=rgb(51, 102, 153) !important]复制代码
2.解析
VCL TOpenGLPanel对获取RC等常规操作进行了封装，用户可以把精力集中在“如何绘制/显示”。
“当需要画图时，请调用TOpenGLPanel的OnPaint函数”。于是OnPaint函数就用来画图。观察OnPaint中的三个函数调用，发现它们都以gl开头。这种以gl开头的函数都是OpenGL的标准函数，下面对用到的函数进行介绍。

    (i)  glClearColor ,清除当前显示场景的颜色，并用指定背景色填充。使用的颜色类型为RGBA。

   （ii）glClear，清除。GL_COLOR_BUFFER_BIT表示清除颜色，glClear函数还可以清除其它的东西，但这里不作介绍。

    (iii) glRectf，画一个矩形。四个参数分别表示了位于对角线上的两个点的横、纵坐标。

沉默的风采

Delphi有OpenGL控件吗，我还不知道，因为这方面的教程太少了，而且别人说OpenGL在游戏方面不如DirectX，也不知道是真的还是假的。

myisland

沉默的风采 发表于 2014-3-12 13:56

                               
登录/注册后可看大图

Delphi有OpenGL控件吗，我还不知道，因为这方面的教程太少了，而且别人说OpenGL在游戏方面不如DirectX，也不 ...

Delphi自带OpenGL单元。
DX与OpenGL的差别：
使用OpenGL出现问题，什么都不会发生；
使用DX出现问题，什么都有可能发生！

沉默的风采

但是OpenGL的学习资料比较少，而与Delphi相关的OpenGL更少了，有也是将近10年前的东西了。

Angel丶L

支持楼主发扬Delphi