Delphi下OpenGL2d绘图之初始化流程详解
投稿：shichen2014
字体：[ ] 类型：转载 时间：
这篇文章主要介绍了Delphi下OpenGL2d绘图之初始化流程详解,对于OpenGL的总体了解很有帮助,需要的朋友可以参考下
一、前言：
Delphi默认支持OpenGl，可以使用uses OpenGL单元进行引用，之后就可以使用OpenGL的函数。OpenGl是跨平台的，而且Windows很早就支持并集成在系统中，存在于system32中的opengl32.dll，不需要再额外进行***。虽然windows本身有d3d，但是其能力有限，相关学习资料页相对较少。
通常OpenGL仅仅支持以下几种基本几何图形：点，线和多边形。没有表面或者更高级的图形(比如球状图形)能被作为基本图形元素绘制。但是它们能够用多边形来完美的模仿出来。随意看看现代3D游戏，你会发现它们几乎完全是由三角形建立的。因此，我们不会被此限制所约束。
二、初始化
在使用OpenGL之前，需要先进行一些相关的参数设置。一般流程为：
“设置匹配的像素格式”（ChoosePixelFormat、SetPixelFormat）
“创建一个新的OpenGL渲染描述表”（wglCreateContext）
“设置OpenGL相关参数”、“绘图”（glBegin、glEnd）
“删除OpenGL渲染描述表”（wglDeleteContext）
procedure TForm1.FormCreate(Sender: TObject);
　pfd:TPIXELFORMATDESCRIPTOR;
pixelFormat: I
With pfd do
nSize := sizeof(TPIXELFORMATDESCRIPTOR); // size
nVersion := 1; // version
dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER; // support double-buffering
iPixelType := PFD_TYPE_RGBA; // color type
cColorBits := 24; // preferred color depth
cRedBits := 0;
cRedShift := 0; // color bits (ignored)
cGreenBits := 0;
cGreenShift := 0;
cBlueBits := 0;
cBlueShift := 0;
cAlphaBits := 0;
cAlphaShift := 0; // no alpha buffer
cAccumBits := 0;
cAccumRedBits := 0; // no accumulation buffer,
cAccumGreenBits := 0; // accum bits (ignored)
cAccumBlueBits := 0;
cAccumAlphaBits := 0;
cDepthBits := 16; // depth buffer
cStencilBits := 0; // no stencil buffer
cAuxBuffers := 0; // no auxiliary buffers
iLayerType := PFD_MAIN_PLANE; // main layer
bReserved := 0;
dwLayerMask := 0;
dwVisibleMask := 0;
dwDamageMask := 0;
FDC := GetDC(Handle);
pixelFormat := ChoosePixelFormat(FDC, @pfd);
if pixelFormat = 0 then
if not SetPixelFormat(FDC, pixelFormat, @pfd) then
FHRC := wglCreateContext(FDC);
wglMakeCurrent(FDC, FHRC);
// 设置背景色为 黑色 参数为 RGBA
glClearColor(0, 0, 0, 0);
// 设置视图投影变换矩阵 正投影
glMatrixMode(GL_PROJECTION);
// 重置当前指定的矩阵为单位矩阵
// 指定OpenGL在此区域内绘图
glViewPort(0, 0, ClientWidth, ClientHeight);
// 设置世界坐标系的范围
gluOrtho2D(0, ClientWidth, ClientHeight, 0);
// 将矩阵变换对象切换为模型视图变换
glMatrixMode(GL_MODELVIEW);
// 重置当前指定的矩阵为单位矩阵
OpenGL的基本图元为点、线、多边形等，每次绘图都需要使用glBegin()与glEnd()。如以下绘制函数procedure D
procedure TForm1.D
// 清空缓冲区
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
// 清空缓冲区
glColor3ub(0, 255, 0);
glBegin(GL_TRIANGLES);//告诉OpenGL将要绘制三角形
glVertex2f(200, 300); //传输三角形的三个顶点坐标给OpenGL
glVertex2f(400, 300);
glVertex2f(300, 150);
glE //结束图元的绘制。
SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
四、最后记得释放。全部代码如下：
unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OpenGL;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
{ Private declarations }
FHRC: HGLRC;
procedure D
{ Public declarations }
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.D
// 清空缓冲区
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
// 清空缓冲区
glColor3ub(0, 255, 0);
glBegin(GL_TRIANGLES);//告诉OpenGL将要绘制三角形
glVertex2f(200, 300); //传输三角形的三个顶点坐标给OpenGL
glVertex2f(400, 300);
glVertex2f(300, 150);
glE //结束图元的绘制。
SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
procedure TForm1.FormCreate(Sender: TObject);
　pfd:TPIXELFORMATDESCRIPTOR;
pixelFormat: I
With pfd do
nSize := sizeof(TPIXELFORMATDESCRIPTOR); // size
nVersion := 1; // version
dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER; // support double-buffering
iPixelType := PFD_TYPE_RGBA; // color type
cColorBits := 24; // preferred color depth
cRedBits := 0;
cRedShift := 0; // color bits (ignored)
cGreenBits := 0;
cGreenShift := 0;
cBlueBits := 0;
cBlueShift := 0;
cAlphaBits := 0;
cAlphaShift := 0; // no alpha buffer
cAccumBits := 0;
cAccumRedBits := 0; // no accumulation buffer,
cAccumGreenBits := 0; // accum bits (ignored)
cAccumBlueBits := 0;
cAccumAlphaBits := 0;
cDepthBits := 16; // depth buffer
cStencilBits := 0; // no stencil buffer
cAuxBuffers := 0; // no auxiliary buffers
iLayerType := PFD_MAIN_PLANE; // main layer
bReserved := 0;
dwLayerMask := 0;
dwVisibleMask := 0;
dwDamageMask := 0;
FDC := GetDC(Handle);
pixelFormat := ChoosePixelFormat(FDC, @pfd);
if pixelFormat = 0 then
if not SetPixelFormat(FDC, pixelFormat, @pfd) then
FHRC := wglCreateContext(FDC);
wglMakeCurrent(FDC, FHRC);
// 设置背景色为 黑色 参数为 RGBA
glClearColor(0, 0, 0, 0);
// 设置视图投影变换矩阵 正投影
glMatrixMode(GL_PROJECTION);
// 重置当前指定的矩阵为单位矩阵
// 指定OpenGL在此区域内绘图
glViewPort(0, 0, ClientWidth, ClientHeight);
// 设置世界坐标系的范围
gluOrtho2D(0, ClientWidth, ClientHeight, 0);
// 将矩阵变换对象切换为模型视图变换
glMatrixMode(GL_MODELVIEW);
// 重置当前指定的矩阵为单位矩阵
procedure TForm1.FormDestroy(Sender: TObject);
wglMakeCurrent(FDC, FHRC);
wglDeleteContext(FHRC);
ReleaseDC(Handle, FDC);
procedure TForm1.FormPaint(Sender: TObject);
procedure TForm1.FormResize(Sender: TObject);
// 窗口改变大小时重新指定绘图区域
glClearColor(0, 0, 0, 0);
glMatrixMode(GL_PROJECTION);
glViewPort(0, 0, ClientWidth, ClientHeight);
gluOrtho2D(0, ClientWidth, ClientHeight, 0);
glMatrixMode(GL_MODELVIEW);
完整代码点此
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具可以画线条的控件叫什么(送分题)解决办法 - Delphi当前位置:& &&&可以画线条的控件叫什么(送分题)解决办法可以画线条的控件叫什么(送分题)解决办法&&网友分享于：&&浏览：57次可以画线条的控件叫什么(送分题)我想画条直线，请问该控件叫什么，在哪里分类里面------解决方案--------------------Tshape,Additional选项卡中第七个就是，他有个shape属性可以任意绘制图形，不过他有几个图形限制，要是自定义图形建议最好使用画布Canvas
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有