ИИ и Builder

#include <vcl.h>
#include <GL/gl.h>
#include <GL/glu.h>
#pragma hdrstop
 
#pragma resource "*.dfm"
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *OpenGLPanel;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall OpenGLPanelPaint(TObject *Sender);
    void __fastcall OpenGLPanelResize(TObject *Sender);
private:    // User declarations
    HGLRC hRC; // OpenGL Rendering Context
    HDC hDC;   // Device Context
    void SetupOpenGL();
    void RenderScene();
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
void TForm1::SetupOpenGL()
{
    // Get the device context for the panel
    hDC = GetDC(OpenGLPanel->Handle);
    // Set up pixel format
    PIXELFORMATDESCRIPTOR pfd = {sizeof(PIXELFORMATDESCRIPTOR), 1, 
        PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL, 
        PFD_TYPE_RGBA, 32, 
        0, 0, 0, 0, 0, 0, 
        0, 0, 0, 0, 0, 0, 
        0, 0, 0, 0, 0, 0, 
        0, 0, 0};
    int pixelFormat = ChoosePixelFormat(hDC, &pfd);
    SetPixelFormat(hDC, pixelFormat, &pfd);
    
    // Create the OpenGL rendering context
    hRC = wglCreateContext(hDC);
    wglMakeCurrent(hDC, hRC);
    glClearColor(0.0f, 0.0f, 0.0f, 0.0f);
}
 
void TForm1::RenderScene()
{
    glClear(GL_COLOR_BUFFER_BIT);
    glBegin(GL_TRIANGLES);
        glColor3f(1.0f, 0.0f, 0.0f); glVertex2f(-0.5f, -0.5f);
        glColor3f(0.0f, 1.0f, 0.0f); glVertex2f(0.5f, -0.5f);
        glColor3f(0.0f, 0.0f, 1.0f); glVertex2f(0.0f, 0.5f);
    glEnd();
    SwapBuffers(hDC); // Swap buffers to display the rendered image
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    SetupOpenGL();
}
 
void __fastcall TForm1::OpenGLPanelPaint(TObject *Sender)
{
    RenderScene();
}
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    wglMakeCurrent(hDC, NULL);
    wglDeleteContext(hRC);
    ReleaseDC(OpenGLPanel->Handle, hDC);
}
 
void __fastcall TForm1::OpenGLPanelResize(TObject *Sender)
{
    glViewport(0, 0, OpenGLPanel->Width, OpenGLPanel->Height);
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
    gluOrtho2D(-1, 1, -1, 1);
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();
}
 
// Create and show the form
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    Application->Initialize();
    Application->CreateForm(__classid(TForm1), &Form1);
    Application->Run();
    return 0;
}