unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#include <gl/gl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        //获取窗体句柄
        hDC=GetDC(Handle);
        //调整DC象素格式
        SetDCPixelFormat(hDC);
        //用该DC创建一个RC
        hRC=wglCreateContext(hDC);
        //指定当前DC和RC
        wglMakeCurrent(hDC,hRC);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CreateParams(TCreateParams& Params)
{
        //调用原有函数预处理
        TForm::CreateParams(Params);
        //Params属性设置
        Params.Style=WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
}
//---------------------------------------------------------------------------

void TForm1::SetDCPixelFormat(HDC hDC)
{
        //调整DC的象素格式，如缓冲区、颜色数等
        int nPixelFormat;
        static PIXELFORMATDESCRIPTOR pfd={
        sizeof(PIXELFORMATDESCRIPTOR),
        1,
        PFD_DRAW_TO_WINDOW |
        PFD_SUPPORT_OPENGL |
        PFD_DOUBLEBUFFER,
        PFD_TYPE_RGBA,
        24,
        0,0,0,0,0,0,
        0,0,
        0,0,0,0,0,
        32,
        0,
        0,
        PFD_MAIN_PLANE,
        0,
        0,0,0 };
        nPixelFormat=ChoosePixelFormat(hDC, &pfd);
        SetPixelFormat(hDC, nPixelFormat, &pfd);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Form1Paint(TObject *Sender)
{
        glClearColor(0.5,0.6,0.7,1.0);  //指定背景颜色
        glClear(GL_COLOR_BUFFER_BIT);   //用背景色填充窗口

        //绘制一个四个顶点颜色各异的四边形
        glBegin(GL_QUADS);
        glColor3f(0.0f,0.0f,1.0f);
        glVertex3f(0.2f,0.7f,0.0f);
        glColor3f(0.0f,1.0f,0.0f);
        glVertex3f(0.5f,-0.3f,0.0f);
        glColor3f(1.0f,0.0f,0.0f);
        glVertex3f(-0.5f, -0.3f, 0.0f);
        glColor3f(0.5f,0.5f,0.5f);
        glVertex3f(-0.3f, 0.5f, 0.0f);
        glEnd();
        
        SwapBuffers(hDC);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Form1Destroy(TObject *Sender)
{
        //取消当前RC和DC
        wglMakeCurrent(NULL,NULL);
        //删除该DC
        wglDeleteContext(hRC);
        DeleteObject(hDC);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::C1Click(TObject *Sender)
{
        Form1->Close();        
}
//---------------------------------------------------------------------------