OpenGL в Delphi. Часть 1. Первые полигоны

Первая программа с использованием OpenGL

 OpenGL ... Вам потребуется Borland DELPHI v.3-5 и

OPENGl32.DLL  Начнём, пожалуй! Для начала скачайте пример ... и  посмотрите

на его работу... Если Вы видели ВРАЩАЮЩИЙСЯ КУБ,то я Вас поздравляю! Вы только-что

запустили Вашу первую программу на OpenGL!!.

 А теперь самое интересное начнём разбор полётов...

Нет, если Вы скачали пример, то бросать это не стоит  ЗДЕСЬ ВСЁ ПРОСТО.

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

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

   uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
      Dialogs,ExtCtrls,OpenGL, //Подключаем OpenGL32.dll,
      dglut;//модуль для рисования правильных объектов одной строкой кода

Прекрасно!

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

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

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);

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

    procedure Initsvet;
    procedure SetPixFormat;// формат пукселя
    procedure Draww;
    procedure WMPaint( var Msg: TWMPaint );// похожа на OnPaint
    message WM_PAINT; // сообщение от OnPaint

В разделе private

обьявим...:

     DC:HDC; //   переменные для получения контекста воспроизведения
     hrc:HGLRC; //
     Angle:GLfloat; // угол, на который будет поворачиваться куб
     procedure initsvet;
     procedure SetPixFormat;

В разделе protected

обьявим...:

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

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

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

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

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

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;

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

Вот и всё!

https://www.ogldelphi.km.ru/about.html