gin: = 2;: = 6.5;: = 15.5;: = f +6;;
begin: = 0;: = -10;: = 0;: = false;: = 1;;;
kadr
then begin// Запуск режиму відображення часу побудови 1 кадру
time0: = GetTickCount;: = time0 - time1;: = time0;. Caption: = inttostr (count) + 'кадр 3а' + inttostr (Frametime) + 'мс';. Caption: = 'Gallery'; (DC);;
{========================================= ==============================
Формат пікселя} SetDCPixelFormat (hdc: HDC);: TPixelFormatDescriptor;: Integer; (pfd, SizeOf (pfd), 0);. dwFlags: = PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;: = ChoosePixelFormat (hdc , @ pfd); (hdc, nPixelFormat, @ pfd);;
{========================================= ==============================
Створення форми} TfrmGL.FormCreate (Sender: TObject);: = 2;: = GetDC (Handle); (DC);: = wglCreateContext (DC); (DC, hrc); (1 , 1, 0.9, 1.0);// колір фону (1.5); (GL_LIGHTING); (GL_LIGHT0); (GL_DEPTH_TEST); (GL_COLOR_MATERIAL);: =
{========================================= ==============================
Кінець роботи програми} TfrmGL.FormDestroy (Sender: TObject);
(quadObj); (0, 0); (hrc); (Handle, DC); (DC);
{========================================= =====================
Процедура реакції програми на натискання користувачем клавіш управління}
procedure TfrmGL.FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);, ty0: Glfloat;: byte;
Key = VK_ESCAPE to 17 dofileexists (form2.directory + '/ download/fotogallery' + inttostr (kolfile) + '. bmp') thendeletefile (form2.directory + '/ download/fotogallery' + inttostr (kolfile) + '. bmp') and (ty> -12) and (tx> 0) and (tx <8) begin form3.number: = 16; showimage (form3.number); end; (ty> -9) and (ty <-3) and (tx> 3) and (tx <12) begin form3.number: = 12; showimage (form3.number); end; (ty> -3) and (ty <4) and (tx> 3) and (tx < 12) begin form3.number: = 11; showimage (form3.number); end; (ty> 4) and (ty <12) and (tx> 3) and (tx <12) begin form3.number: = 10; showimage (form3.number); end; (ty <-6) and (ty> -12) and (tx> -8) and (tx <0) begin form3.number: = 17; showimage (form3.number); end; (ty> -9) and (ty <-3) and (tx> -12) and (tx <-3) begin form3.number: = 15; showimage (form3.number); end; (ty> - 3) and (ty <4) and (tx> -12) and (tx <-3) begin form3.number: = 14; showimage (form3.number); end; (ty> 4) and (ty <12) and (tx> -12) and (tx <-3) begin form3.number: = 13; showimage (form3.number); end; (ty> 2) and (ty <12) and (tx> -6) and (tx <6) begin form3.number: = 9; showimage (form3.number); end; (ty> 12) and (ty <20) and (tx> 1) ...
