Откройте новый проект: File -> New -> Application; У Вас успехи (шутка).

Теперь в директиву "uses" добавьте "OpenGL" вот так:

Code:

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,ExtCtrls,OpenGL, //Подключаем OpenGL32.dll,

dglut;//модуль для рисования правильных объектов одной строкой кода

Прекрасно!

Создайте обработку таких процедур в Object Inspector - > Events

(я,надеюсь, что вы знакомы с Delphi):

Code:

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormResize(Sender: TObject);

А теперь в разделе private сделайте следующее

Code:

procedure Initsvet;

procedure SetPixFormat;// формат пукселя

procedure Draww;

procedure WMPaint( var Msg: TWMPaint );// похожа на OnPaint

message WM_PAINT; // сообщение от OnPaint

В разделе private

обьявим...:

Code:

DC:HDC; // переменные для получения контекста воспроизведения

hrc:HGLRC; //

Angle:GLfloat; // угол, на который будет поворачиваться куб

procedure initsvet;

procedure SetPixFormat;


В разделе protected

обьявим...:

Code:

procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

просто вот так всё и пишите, компилятор не обидится!!

В качестве константы объявим:

Code:

const

MaterialColor: Array [0..3] of GLfloat = (0.3, 0.4, 1.0, 1.0);

Оформим процедурки:

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

Angle := 0;

DC := GetDC(Handle); // получить окно

SetPixFormat; // установим формат пикселя

hrc := wglCreateContext(DC);

wglMakeCurrent(DC, hrc); // сделаем "текущим контекст воспроизведения

Initsvet; // включим свет

glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE , @MaterialColor);

glMatrixMode(GL_MODELVIEW);

Timer1.Enabled := True; // включим таймер

GLShadeModel(GL_SMOOTH);

end;

procedure TForm1.initsvet;// СВЕТ //

const

fogColor : array[0..3] of GLfloat = (0.7, 0.7, 0.7, 2.0);

var

fogMode : GLint;

begin

glEnable(GL_DEPTH_TEST); // разрешить тест глубины

glEnable(GL_LIGHTING); // разрешить освещённость

glEnable(GL_LIGHT0); // включить нулевую лампу

end;

procedure TForm1.SetPixFormat;

var

nPixelFormat: Integer;

pfd: TPixelFormatDescriptor;

begin

FillChar(pfd, SizeOf(pfd), 0);

with pfd do

begin

nSize := sizeof(pfd);

nVersion := 1;

dwFlags := PFD_DRAW_TO_WINDOW or

PFD_SUPPORT_OPENGL or

PFD_DOUBLEBUFFER;

iPixelType:= PFD_TYPE_RGBA;

cColorBits:= 24;

cDepthBits:= 32;

iLayerType:= PFD_MAIN_PLANE;

end;

nPixelFormat := ChoosePixelFormat(DC, @pfd);

SetPixelFormat(DC, nPixelFormat, @pfd);

end;

procedure TForm1.WMPaint(var Msg: TWMPaint);

var

ps : TPaintStruct;

begin

BeginPaint(Handle, ps);

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //очистить цветовой буфер, и буфер глубины

glClearColor(0.7,0.7,0.7,0.0); // очищать экран серым цветом

glLoadIdentity; // загрузить матрицу

glTranslatef(0.0, 0.0, -9.0);

glRotatef(Angle / (random (1) + 1), 1.0, 0.0, 0.0);

glRotatef(Angle , 0.0, 0.0, 1.0); //

glpushmatrix; // сохраним текущу систему координат

glutsolidcube(2); // нарисуем куб с ребром 2

glpopmatrix; // восстановим систему координат

SwapBuffers(DC); // перевернём передний и задний буферы

EndPaint(Handle, ps);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Angle := Angle + 1.0; // увеличиваем угол

If (Angle >= 360.0) then Angle := 0.0; // если совершён полный оборот, то вернуть в 0

InvalidateRect(Handle, nil, False); // перерисовать окно

end;

procedure TForm1.FormResize(Sender: TObject);

begin

glMatrixMode(GL_PROJECTION); // модель матрицы проекционная

glLoadIdentity; // загрузить матрицу

gluPerspective(60.0, Width / Height, 1.0, 10.0);

glViewport(0, 0, Width, Height); // область вывода весь экран

glMatrixMode(GL_MODELVIEW); // модель матрицы перспективная

InvalidateRect(Handle, nil, False); // перерисовать всё окно

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

Timer1.Enabled := False;

wglMakeCurrent(0, 0); // сделать контекст "текущим"

wglDeleteContext(hrc); // удалить контекст воспроизведения

ReleaseDC(Handle, DC); // удалить окно

end;

А теперь запускаем!!!!

Вот и всё!

Источник: http://www.ogldelphi.km.ru/about.html


 Похожие публикации
2010-01-31 • Просмотров [ 1349 ]