一、前言：

Delphi實(shí)現(xiàn)畫四邊形的方法基本上與前幾遍文字代碼是相同的。其區(qū)別知識(shí)在于glBegin()的參數(shù)“GL_QUADS”。繪制的框架代碼可以使用Delphi下OpenGL2d繪圖初始化中的代碼，地址為//www.jb51.net/article/52141.htm。修改的部份為 Draw 函數(shù)的內(nèi)容。

二、畫四邊形方法：

使用GL_QUADS：繪制由四個(gè)頂點(diǎn)組成的一組單獨(dú)的四邊形。頂點(diǎn)4n－3、4n－2、4n－1和4n定義了第n個(gè)四邊形?？偣怖L制N/4個(gè)四邊形。這里學(xué)畫四邊形是為了畫位圖做準(zhǔn)備。

設(shè)置顏色：

glColor3f(1, 0.5, 0); 可以設(shè)置四邊形的顏色，參數(shù)為三部份，分別為 R、G、B的值，取得范圍為0到1,1表示255,0.5表128。這里需要特別予以注意！

設(shè)置四邊形的點(diǎn)：

glVertex2f(nleft, ntop); nleft、ntop表示四邊形的點(diǎn)在窗口上的像素點(diǎn)位置。每個(gè)點(diǎn)的位置需按順時(shí)針或逆時(shí)針設(shè)置。

代碼如下：

procedure TForm1.Draw;
var
 l, t, w: Integer;
begin
 // 清空緩沖區(qū)
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 // 設(shè)置四邊形的顏色
 glColor3f(1, 0.5, 0);
 // 繪制第一個(gè)多邊形
 l := 10;
 t := 10;
 w := 64;
 glBegin(GL_QUADS);
 glVertex2f(l, t);
 glVertex2f(l + w, t);
 glVertex2f(l + w, t + w);
 glVertex2f(l, t + w);
 glEnd();
 // 繪制第二個(gè)多邊形
 l := 80;
 t := 10;
 glColor3f(0, 0.5, 0);
 glBegin(GL_QUADS);
 glVertex2f(l, t);
 glVertex2f(l + w, t + w);
 glVertex2f(l + w, t);
 glVertex2f(l, t + w);
 glEnd();
 SwapBuffers(FDC); //交換雙緩沖區(qū)內(nèi)容，這將把剛繪制的圖形翻印到屏幕上。
end;

完整代碼點(diǎn)此下載