update

Zengl_SRC/Update_ZenGL.txt

@@ -33,8 +33,7 @@ OpenGL
 - для тачпада тоже изменено, но не проверено.
 
 Недоработки!
-Проблемы работы когда у вас два монитора. Как на Linux, так и на Windows.
-Windows 10: решить проблему с перетаскиванием LCL-окна с одного монитора на другой. Проблема в том, что приложение полностью зависает. В данное время проблема отложена в "долгий ящик". Если знаете способ решения, то можете предложить. Проблема исходит из того, что событие Draw забивает очередь LCL-приложения и приложение зависает.
+Проблемы работы когда у вас два монитора.
 Linux: решить проблему при переключении разрешений экрана. Используется XRandr - поэтому надо делать проверку на количество мониторов и местоположение на мониторе. Полноэкранный режим - это окно для двух мониторов? Или особое свойство работы XRandr? Поиск решения проблемы отложен.
 
 ------------------------------------------------------------------------------------------

Zengl_SRC/demos/Delphi/01 - Initialization/demo01.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/01 - Initialization/demo01.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/01 - Initialization/demo01.dpr

@@ -4,6 +4,8 @@ program demo01;
 // EN: This file contains some options(e.g. whether to use static compilation) and defines of OS for which is compilation going.
 {$I zglCustomConfig.cfg}
 
+{$I zgl_config.cfg}
+
 {$R *.res}
 
 uses
@@ -77,7 +79,7 @@ Begin
 
   // RU: Ñîçäàåì òàéìåð ñ èíòåðâàëîì 1000ìñ.
   // EN: Create a timer with interval 1000ms.
-  TimeStart := timer_Add(@Timer, 1000, Start);
+  TimeStart := timer_Add(@Timer, 1000, t_Start);
 
   // RU: Ðåãèñòðèðóåì ïðîöåäóðó, ÷òî âûïîëíèòñÿ ñðàçó ïîñëå èíèöèàëèçàöèè ZenGL.
   // EN: Register the procedure, that will be executed after ZenGL initialization.
@@ -103,6 +105,12 @@ Begin
   // EN: Set screen options.
   zgl_SetParam(800, 600, false, false);
 
+  {$ifdef GL_VERSION_3_0}
+  // RU: Óñòàíàâëèâàåì êîíòåêñò OpenGL 3.3. Äëÿ ýòîãî íàäî îòêëþ÷èòü äåôàéí USE_MIN_OPENGL â GLdefine.cfg
+  // EN: Setting context OpenGL 3.3. Disable "USE_MIN_OPENGL" in GLdefine.cfg  
+  SetGLVersionAndFlags(3, 3);
+  {$ENDIF}
+
   // RU: Èíèöèàëèçèðóåì ZenGL.
   // EN: Initialize ZenGL.
   zgl_Init();

Zengl_SRC/demos/Delphi/02 - Resources/demo02.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/02 - Resources/demo02.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/02 - Resources/demo02.dpr

@@ -1,6 +1,7 @@
 program demo02;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 

Zengl_SRC/demos/Delphi/03 - Input/demo03.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/03 - Input/demo03.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/03 - Input/demo03.dpr

@@ -29,7 +29,11 @@ uses
 var
   dirRes  : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
 
-  fntMain, fntEdit: Byte;
+  // Ru: íîìåðà øðèôòîâ. Âñÿ ðàáîòà ñî øðèôòàìè ïðîèñõîäèò èìåííî îò ýòèõ íîìåðîâ.
+  fntMain, fntEdit: LongWord;
+
+  // Ru: íîìåð öâåòà. Ðàáîòà ñ öâåòîì ïðîèñõîäèò èìåííî îò ýòîãî íîìåðà.
+  EditColor: LongWord;
 
   joyCount   : Integer;
   // RU: ñòðîêà äëÿ ïîëó÷åíèÿ çíà÷åíèÿ èç ïîëÿ ââîäà
@@ -44,7 +48,7 @@ var
   {$Else}
   // RU: ïðÿìîóãîëüíèê, îïèñûâàþùèé ïîëå ââîäà
   // EN: rectangle describing the input field
-  myRect: zglTRect;
+  myRect: zglTRect2D;
 
   // "ïåðåïèñü" ïîëåé ââîäà äëÿ òîãî, ÷òîá çíàòü ñ êàêèì ïîëåì ðàáîòàåì
 
@@ -63,17 +67,16 @@ begin
   // Òåêñò áóäåò âûâåäåí ïîâåðõ òîãî, ÷òî âû òóò íàðèñóåòå.
   // EN: displacement and rotation will be done prior to performing the procedure. I am showing you how to draw a frame.
   // The text will be drawn on top of what you draw here.
-  pr2d_Rect(- 2, - 1, myRect.W + 5, myRect.H, cl_white, PR2D_FILL);
+  pr2d_Rect(- 2, - 1, myRect.W + 5, myRect.H, cl_white{$IfDef OLD_METHODS}, 128{$EndIf}, PR2D_FILL);
 end;
 {$EndIf}
 
 procedure Init;
 {$IfNDef OLD_METHODS}
 var
-  TextColor: zglTColor;
+  EScale: Word;
 {$EndIf}
 begin
-  SetAndAddDefaultColor;
   fntMain := font_LoadFromFile(dirRes + 'font.zfi');
   {$IfNDef OLD_METHODS}
   // RU: Çàãðóæàåì äàííûå î øðèôòå.
@@ -83,6 +86,12 @@ begin
   // EN: set font sizes
   setFontTextScale(15, fntMain);
   setFontTextScale(20, fntEdit);
+  // RU: ðàçìåð øðèôòà ïîëÿ ââîäà (äëÿ ïîíèìàíèÿ ÷òî ïðîèñõîäèò). Èçìåíÿÿ ðàçìåð øðèôòà, ìû äîëæíû ìåíÿòü è
+  //     ðàçìåðû ïîëÿ ââîäà - myRect â äàííîì ñëó÷àå. Ñàìè îíè íå èçìåíÿòñÿ.
+  // EN: the font size of the input field (to understand what's going on). By changing the font size,
+  //     we must also change the size of the input field - myRect in this case. They themselves will not change.
+  EScale := 20;
+  setFontTextScale(EScale, fntEdit);
   // RU: óêàçûâàåì ðàçìåðû ïîëÿ ââîäà
   // EN: specify the size of the input field
   myRect.X := 200;
@@ -92,22 +101,25 @@ begin
   // RU: óêàçûâàåì òî÷êó âðàùåíèÿ, â äàííîì ñëó÷àå öåíòð ïîëÿ ââîäà(ïî íåîáõîäèìîñòè) è óãîë ïîâîðîòà(íàïðèìåð 45)
   // EN: specify the point of rotation, in this case the center of the input field (if necessary) and the angle of rotation (for example 45)
   SetOfRotateAngleAndPoint(myRect.x + myRect.W / 2, myRect.y + myRect.H / 2, 30);
-  // RU: óêàçûâàåì öâåò òåêñòà
-  // EN: specify the color of the text
-  TextColor.R := 0.1;
-  TextColor.G := 0.5;
-  TextColor.B := 0.3;
-  TextColor.A := 1;            // max = 1, min = 0
-  // RU: ïåðåäà¸ì öâåò â äàííûå ìåíåäæåðà
-  // EN: transfer the color to the manager data
-  SetColorElementText(@TextColor);
+  // RU: óêàçûâàåì öâåò òåêñòà (äîáàâëÿåì íîâûé íîìåð öâåòà, õîòÿ äàííàÿ ôóíêöèÿ âàì âîçâðàòèò öâåò, åñëè îí óæå áûë ïðîïèñàí).
+  // EN: specify the color of the text (we add a new color number, although this function will return the color to you if it
+  //     has already been assigned).
+  EditColor := Color_FindOrAdd($208055FF);
+  // Ru: óñòàíàâëèâàåì öâåòà ïî óìîë÷àíèþ äëÿ âñåõ  ýëåìåíòîâ API. Ýòè öâåòà áóäóò çàäåéñòâîâàíû òîëüêî ïðè ñîçäàíèè
+  //     îïðåäåë¸ííîãî ýëåìåíòà. Äëÿ èçìåíåíèÿ öâåòà â ñàìîì (óæå ñîçäàííîì) ýëåìåíòå, íè ÷åãî íå ïðèëàãàåòñÿ.
+  //     Äàëüíåéøèå èçìåíèíÿ ýòèõ çíà÷åíèé öâåòà, íè êàê íå ñêàæåòñÿ íà óæå ñîçäàííûõ ýëåìåíòàõ.
+  // En: set default colors for all API elements. These colors will only be used when creating a specific element.
+  //     To change the color in the (already created) element itself, nothing is attached. Further changes to these
+  //     color values will not affect the already created elements in any way.
+  SetEditColor(fntEdit, EditColor, 1);
+
   // RU: ñîçäà¸ì ñàìî ïîëå ââîäà ñ äàííûìè óêàçàííûìè âûøå
   // EN: create the input field itself with the data specified above
   myEdit := CreateEdit(myRect, fntEdit, 20, @EditCont);
 
   // RU: êîððåêòèðóåì êóðñîð.
   // EN: adjust the cursor
-//  CorrectEditCursor(myEdit, 3);
+  CorrectEditCursor(myEdit, 3);
 
   // RU: çàäà¸ì î÷èñòêó ýêðàíà çàäàííûì öâåòîì
   // EN: set the screen to clear with a specified color
@@ -131,6 +143,10 @@ var
   w : Single;
 {$EndIf}
 begin
+  // Ru: áàëóåìñÿ öâåòîì øðèôòà.
+  // En: indulge in the color of the font.
+  setTextColor(Get_Color(cl_Blue));
+
   text_Draw(fntMain, 0, 0, 'Escape - Exit');
 
   // RU: Êîîðäèíàòû ìûøè ìîæíî ïîëó÷èòü ïðè ïîìîùè ôóíêöèé mouse_X è mouse_Y.
@@ -160,15 +176,20 @@ begin
   // EN: Show the state of axes and buttons of first joystick in the system.
   text_Draw(fntMain, 400, 360, 'JOYSTICK ( Found: ' + u_IntToStr(joyCount) + ' )', TEXT_HALIGN_CENTER);
 
-  text_Draw(fntMain, 100, 400, 'Axis X: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_X)));
-  text_Draw(fntMain, 100, 420, 'Axis Y: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_Y)));
-  text_Draw(fntMain, 100, 440, 'Axis Z: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_Z)));
-  text_Draw(fntMain, 100, 460, 'Axis R: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_R)));
-  text_Draw(fntMain, 100, 480, 'Axis U: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_U)));
-  text_Draw(fntMain, 100, 500, 'Axis V: ' + u_FloatToStr(joy_AxisPos(0, JOY_AXIS_V)));
-  text_Draw(fntMain, 100, 520, 'POVX: ' + u_FloatToStr(joy_AxisPos(0, JOY_POVX)));
-  text_Draw(fntMain, 100, 540, 'POVY: ' + u_FloatToStr(joy_AxisPos(0, JOY_POVY)));
+  setTextColor(Get_Color(cl_Black));
+  text_Draw( fntMain, 100, 400, 'Axis X: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_X ) ) );
+  text_Draw( fntMain, 100, 420, 'Axis Y: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_Y ) ) );
+  setTextColor(Get_Color(cl_Black05));
+  text_Draw( fntMain, 100, 440, 'Axis Z: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_Z ) ) );
+  setTextColor(Get_Color(cl_Green));
+  text_Draw( fntMain, 100, 460, 'Axis R: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_R ) ) );
+  text_Draw( fntMain, 100, 480, 'Axis U: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_U ) ) );
+  setTextColor(Get_Color(cl_Green05));
+  text_Draw( fntMain, 100, 500, 'Axis V: ' + u_FloatToStr( joy_AxisPos( 0, JOY_AXIS_V ) ) );
+  text_Draw( fntMain, 100, 520, 'POVX: ' + u_FloatToStr( joy_AxisPos( 0, JOY_POVX ) ) );
+  text_Draw( fntMain, 100, 540, 'POVY: ' + u_FloatToStr( joy_AxisPos( 0, JOY_POVY ) ) );
 
+  setTextColor(Get_Color(cl_Red05));
   text_Draw(fntMain, 400, 400, 'Button1: ' + u_BoolToStr(joy_Down(0, 0)));
   text_Draw(fntMain, 400, 420, 'Button2: ' + u_BoolToStr(joy_Down(0, 1)));
   text_Draw(fntMain, 400, 440, 'Button3: ' + u_BoolToStr(joy_Down(0, 2)));
@@ -187,23 +208,22 @@ begin
   text_Draw(fntMain, 550, 540, 'Button16: ' + u_BoolToStr(joy_Down(0, 15)));
 end;
 
-
+{$IfDef OLD_METHODS}
 procedure Timer;
 begin
-(*        // ðàññêîììåòèðîâàòü, åñëè õîòèòå èñïîëüçîâàòü ñòàðûé ñïîñîá
   if lineAlpha > 5 Then
     DEC(lineAlpha, 10)
   else
     lineAlpha := 255;
-  *)
 end;
+{$EndIf}
 
 procedure KeyMouseEvent;
 begin
   {$IfDef OLD_METHODS}
   // RU: Ïðîâåðèòü íàæàòà ëè ëåâàÿ êíîïêà ìûøè â ïðåäåëàõ inputRect è íà÷àòü îòñëåæèâàòü ââîä òåêñòà.
   // EN: Check if left mouse button was pressed inside inputRect and start to track text input.
-  if mBClickCanClick(M_BLEFT_CLICK) and col2d_PointInRect(mouseX, mouseY, inputRect) Then
+  if mouseBClick(M_BLEFT) and col2d_PointInRect(mouseX, mouseY, inputRect) Then
   begin
     trackInput := TRUE;
     key_BeginReadText(userInput, 24);
@@ -233,7 +253,7 @@ end;
 
 Begin
   {$IfDef OLD_METHODS}
-  TimeStart := timer_Add(@Timer, 16, Start);
+  TimeStart := timer_Add(@Timer, 16, t_Start);
   {$EndIf}
 
   zgl_Reg(SYS_EVENTS, @KeyMouseEvent);

Zengl_SRC/demos/Delphi/04 - Screen Settings/demo04.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/04 - Screen Settings/demo04.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/04 - Screen Settings/demo04.dpr

@@ -1,6 +1,7 @@
 program demo04;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -16,6 +17,9 @@ uses
   zgl_textures_png,
   zgl_textures_jpg,
   zgl_utils
+  {$IfNDef OLD_METHODS}
+  , gegl_color
+  {$EndIf}
   ;
 
 var
@@ -28,6 +32,8 @@ procedure Init;
 begin
   fntMain := font_LoadFromFile(dirRes + 'font.zfi');
   texBack := tex_LoadFromFile(dirRes + 'back03.jpg');
+
+  setTextColor(Get_Color(cl_White));
   setFontTextScale(15, fntMain);
 end;
 
@@ -58,9 +64,12 @@ begin
       // EN: Set resolution for what application was wrote.
     scr_CorrectResolution(800, 600);
     zgl_SetParam(zgl_Get(DESKTOP_WIDTH), zgl_Get(DESKTOP_HEIGHT), True, false);
-{    wndWidth := zgl_Get(DESKTOP_WIDTH);
-    wndHeight := zgl_Get(DESKTOP_HEIGHT);
-    wndFullScreen := true;  }
+(*  --------------------- OR!!! ----------------------------------------
+      wndWidth := zgl_Get( DESKTOP_WIDTH );
+      wndHeight := zgl_Get( DESKTOP_HEIGHT );
+      wndFullScreen := True;
+      scrVSync := False;
+    -------------------------------------------------------------------- *)
     scr_SetOptions();
   end;
 
@@ -78,6 +87,12 @@ begin
     wndHeight := zgl_Get(DESKTOP_HEIGHT);
     wndFullScreen := true; }
     zgl_SetParam(zgl_Get(DESKTOP_WIDTH), zgl_Get(DESKTOP_HEIGHT), True, false);
+    (*  --------------------- OR!!! ----------------------------------------
+      wndWidth := zgl_Get( DESKTOP_WIDTH );
+      wndHeight := zgl_Get( DESKTOP_HEIGHT );
+      wndFullScreen := True;
+      scrVSync := False;
+    -------------------------------------------------------------------- *)
     scr_SetOptions();
   end;
 
@@ -91,6 +106,13 @@ begin
   begin
     zgl_Disable(CORRECT_RESOLUTION);
     zgl_SetParam(800, 600, true, false);
+    (* ---------------------- OR!!! ----------------------------------------
+      wndWidth := 800;
+      wndHeight := 600;
+      wndFullScreen := True;
+      scrVSync := False;
+      scr_SetOptions();
+    -------------------------------------------------------------------- *)
     scr_SetOptions();
   end;
 
@@ -103,9 +125,12 @@ begin
   if key_Press(K_F4) Then
   begin
     zgl_Disable(CORRECT_RESOLUTION);
-{    wndWidth := 800;
-    wndHeight := 600;
-    wndFullScreen := false;  }
+(* ---------------------- OR!!! ----------------------------------------
+      wndWidth := 800;
+      wndHeight := 600;
+      wndFullScreen := False;
+      scrVSync := False;
+   -------------------------------------------------------------------- *) 
     zgl_SetParam(800, 600, False, false);
     scr_SetOptions();
   end;

Zengl_SRC/demos/Delphi/05 - Primitives/demo05.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/05 - Primitives/demo05.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/05 - Primitives/demo05.dpr

@@ -1,6 +1,7 @@
 program demo05;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -14,12 +15,19 @@ uses
   zgl_primitives_2d,
   zgl_types,
   zgl_math_2d,
+  {$IfNDef OLD_METHODS}
+  gegl_color,
+  {$EndIf}
   zgl_utils;
 
 var
   calc   : Integer;
   points : array[ 0..359 ] of zglTPoint2D;
-  TimeStart: Byte;
+  TimeStart: LongWord = 0;
+  {$IfNDef OLD_METHODS}
+  dirRes : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
+  newColor: array[0..1] of LongWord;
+  {$EndIf}
 
 procedure Init;
   var
@@ -30,36 +38,42 @@ begin
     points[ i ].X := 400 + m_Cos( i ) * ( 96 + random( 32 ) );
     points[ i ].Y := 300 + m_Sin( i ) * ( 96 + random( 32 ) );
   end;
+   {$IfNDef OLD_METHODS}
+  // Rus: óñòàíàâëèâàåì íîâûé öâåò, êîòîðîãî íåò â ñïèñêå ñòàíäàðòíûõ. Âñå êîíñòàíòû â gegl_color.
+  // Eng: set a new color. Which is not in the standard list. All constants in gegl_color.
+  newColor[0] := Color_FindOrAdd($0000009B);
+  newColor[1] := Color_FindOrAdd($FFFFFF4B);
+  {$EndIf}
 end;
 
 procedure Draw;
-  var
-    i : Integer;
+var
+  i : Integer;
 begin
   // RU: Óñòàíàâëèâàåì öâåò è àëüôó äëÿ êàæäîé âåðøèíû ïðÿìîóãîëüíèêà ( â äàííîì ñëó÷àå)
   // EN: Set color and alpha for each vertex.
   fx2d_SetVCA( $FF0000, $00FF00, $0000FF, $FFFFFF, 255, 255, 255, 255 );
   // RU: Ðèñóåì ïðÿìîóãîëüíèê ñ çàëèâêîé(ôëàã PR2D_FILL) ñ èñïîëüçîâàíèåì îòäåëüíûõ öâåòîâ äëÿ êàæäîé âåðøèíû(ôëàã FX2D_VCA).
   // EN: Render filled rectangle(flag PR2D_FILL) and use different colors for each vertex(flag FX2D_VCA).
-  pr2d_Rect(0, 0, 800, 600, $000000, 255, FX2D_VCA or PR2D_FILL);   // 4 + $010000
+  pr2d_Rect(0, 0, 800, 600, {$IfDef OLD_METHODS}$000000, 255{$Else}cl_Black{$EndIf}, FX2D_VCA or PR2D_FILL);   // 4 + $010000
 
   // RU: Ðèñóåì â öåíòðå ýêðàíà êðóã ñ ðàäèóñîì 128 ïèêñåëà.
   // EN: Render circle in the center of screen with radius 128 pixels.
-  pr2d_Circle( 400, 300, 128, $000000, 155, 32, PR2D_FILL );
+  pr2d_Circle( 400, 300, 128, {$IfDef OLD_METHODS}$000000, 155{$Else}newColor[0]{$EndIf}, 32, PR2D_FILL );
 
   // RU: Ðèñóåì ëèíèè âíóòðè êðóãà.
   // EN: Render lines inside the circle.
 
   for i := 0 to 359 do
-    pr2d_Line( 400, 300, points[ i ].X, points[ i ].Y, $00FFFF, 255 );
+    pr2d_Line( 400, 300, points[ i ].X, points[ i ].Y, {$IfDef OLD_METHODS}$FFFFFF, 255{$Else}cl_White{$EndIf} );
 
   // RU: Ðèñóåì ýëëèïñû ñ çàëèâêîé è áåç, ñî ñãëàæåííûìè êîíòóðàìè(ôëàã PR2D_SMOOTH).
   // EN: Render filled ellipses with smoothed edges(flag PR2D_SMOOTH).
-  pr2d_Ellipse( 400 + 300, 300, 64, 256, $FFFFFF, 75, 32, PR2D_FILL {or PR2D_SMOOTH });
-  pr2d_Ellipse( 400 + 300, 300, 64, 256, $000000, 255, 32, PR2D_SMOOTH );
+  pr2d_Ellipse( 400 + 300, 300, 64, 256, {$IfDef OLD_METHODS}$FFFFFF, 75{$Else}newColor[1]{$EndIf}, 32, PR2D_FILL {or PR2D_SMOOTH });
+  pr2d_Ellipse( 400 + 300, 300, 64, 256, {$IfDef OLD_METHODS}$000000, 255{$Else}cl_Black{$EndIf}, 32, PR2D_SMOOTH );
 
-  pr2d_Ellipse( 400 - 300, 300, 64, 256, $FFFFFF, 75, 32, PR2D_FILL or PR2D_SMOOTH );
-  pr2d_Ellipse( 400 - 300, 300, 64, 256, $000000, 255, 32, PR2D_SMOOTH );
+  pr2d_Ellipse( 400 - 300, 300, 64, 256, {$IfDef OLD_METHODS}$FFFFFF, 75{$Else}newColor[1]{$EndIf}, 32, PR2D_FILL or PR2D_SMOOTH );
+  pr2d_Ellipse( 400 - 300, 300, 64, 256, {$IfDef OLD_METHODS}$000000, 255{$Else}cl_Black{$EndIf}, 32, PR2D_SMOOTH );
 end;
 
 procedure Timer;
@@ -72,7 +86,7 @@ begin
 end;
 
 Begin
-  TimeStart := timer_Add( @Timer, 16, Start );
+  TimeStart := timer_Add( @Timer, 16, t_Start );
 
   zgl_Reg( SYS_LOAD, @Init );
   zgl_Reg( SYS_DRAW, @Draw );

Zengl_SRC/demos/Delphi/06 - Text/demo06.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/06 - Text/demo06.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/06 - Text/demo06.dpr

@@ -18,11 +18,14 @@ uses
   zgl_text,
   zgl_types,
   zgl_utils,
+  {$IfNDef OLD_METHODS}
+  gegl_color,
+  {$EndIf}
   gegl_utils;             // äëÿ ïåðåâîäà òåêñòà â UTF-8
 
 var
   dirRes  : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain : Byte;
+  fntMain : LongWord;
   MyText: UTF8String;
 
 procedure Init;
@@ -35,14 +38,15 @@ begin
   //for i := 0 to fntMain.Count.Pages - 1 do
   //  fntMain.Pages[ i ] := tex_LoadFromFile( dirRes + 'font-page' + u_IntToStr( i ) + '.png' );
   MyText := AscToUtf8Rus('Ýòî òåêñò äëÿ âûâîäà åãî â êâàäðàòå');
+  setFontTextScale(15, fntMain);              // óñòàíîâêà øêàëû ðàçìåðíîñòè øðèôòà
 end;
 
 procedure Draw;
 var
-  r : zglTRect;
+  r : zglTRect2D;
   s : UTF8String;
 begin
-//  batch2d_Begin();    íóæíî òîëüêî äëÿ ìîáèëüíûõ ñèñòåì íà äàííîå âðåìÿ
+  batch2d_Begin();
 
   // RU: ZenGL ðàáîòàåò èñêëþ÷èòåëüíî ñ êîäèðîâêîé UTF-8, ïîýòîìó âåñü òåêñò äîëæåí áûòü â UTF-8. Åñëè íåîáõîäèìî âûâåñòè êàêîé-ëèáî òåêñò(íå àíãëèéñêèé)
   //     èñïîëüçóÿ ñòðîêè âíóòðè pas-ôàéëîâ è Delphi âåðñèè íèæå 2009 - èñïîëüçóéòå âíåøíèå ôàéëû ñî ñòðîêàìè â êîäèðîâêå UTF-8 è òèï UTF8String äëÿ íèõ.
@@ -50,7 +54,7 @@ begin
   //     inside pas-files and version of Delphi is lower than 2009, then you need to use external files with UTF-8 strings inside and type UTF8String.
 
 
-  text_DrawEx( fntMain, 400, 65, 3, 0, 'Scaling', 255, $FFFFFF, TEXT_HALIGN_CENTER );
+  text_DrawEx( fntMain, 400, 65, 3, 0, 'Scaling' {$IfDef OLD_METHODS}, 255, $FFFFFF{$EndIf}, cl_White, TEXT_HALIGN_CENTER );
 
   text_Draw( fntMain, 400, 25, 'String with center alignment', TEXT_HALIGN_CENTER );
 
@@ -62,14 +66,14 @@ begin
   r.W := 192;
   r.H := 256;
   text_DrawInRect( fntMain, r, 'Simple text rendering in rectangle. ' + #10 + MyText);
-  pr2d_Rect( r.X, r.Y, r.W, r.H, $FF0000 );
+  pr2d_Rect( r.X, r.Y, r.W, r.H, {$IfDef OLD_METHODS} $FF0000 {$Else}cl_Green{$EndIf} );
 
   r.X := 800 - 192;
   r.Y := 300 - 128;
   r.W := 192;
   r.H := 256;
   text_DrawInRect( fntMain, r, 'Text rendering using horizontal right alignment and vertical bottom alignment', TEXT_HALIGN_RIGHT or TEXT_VALIGN_BOTTOM );
-  pr2d_Rect( r.X, r.Y, r.W, r.H, $FF0000 );
+  pr2d_Rect( r.X, r.Y, r.W, r.H, {$IfDef OLD_METHODS} $FF0000 {$Else}cl_Yellow{$EndIf} );
 
   r.X := 400 - 192;
   r.Y := 300 - 128;
@@ -78,7 +82,7 @@ begin
 
   text_DrawInRect( fntMain, r, 'This text uses justify alignment and centered vertically. Text which doesn''t fit inside the rectangle will be cropped.',
                    TEXT_HALIGN_JUSTIFY or TEXT_VALIGN_CENTER );
-  pr2d_Rect( r.X, r.Y, r.W, r.H, $FF0000 );
+  pr2d_Rect( r.X, r.Y, r.W, r.H, {$IfDef OLD_METHODS} $FF0000 {$Else}cl_Red{$EndIf} );
 
   r.X := 400 - 320;
   r.Y := 300 + 160;
@@ -86,14 +90,14 @@ begin
   r.H := 128;
   text_DrawInRect( fntMain, r, 'For starting new line LF symbol can be used' + #10 + 'code of which is equal to 10 and named in Unicode as "Line Feed"',
                    TEXT_HALIGN_CENTER or TEXT_VALIGN_CENTER );
-  pr2d_Rect( r.X, r.Y, r.W, r.H, $FF0000 );
+  pr2d_Rect( r.X, r.Y, r.W, r.H, {$IfDef OLD_METHODS} $FF0000 {$Else}cl_Blue{$EndIf} );
 
   // RU: Âûâîäèì êîëè÷åñòâî FPS â ïðàâîì óãëó, èñïîëüçóÿ text_GetWidth.
   // EN: Render FPS in the top right corner using text_GetWidth.
   s := 'FPS: ' + u_IntToStr( zgl_Get( RENDER_FPS ) );
   text_Draw( fntMain, 800 - text_GetWidth( fntMain, s ), 0, s );
 
-//  batch2d_End();
+  batch2d_End();
 end;
 
 Begin

Zengl_SRC/demos/Delphi/07 - Sprites/demo07.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/07 - Sprites/demo07.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/07 - Sprites/demo07.dpr

@@ -1,6 +1,7 @@
 program demo07;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -20,7 +21,10 @@ uses
   zgl_font,
   zgl_text,
   zgl_types,
-  zgl_utils;
+  zgl_utils
+  {$IfNDef OLD_METHODS}
+  , gegl_color
+  {$EndIf};
 
 type
   TTux = record
@@ -41,7 +45,11 @@ var
   time        : Integer;
   camMain     : zglTCamera2D;
 
-  TimeStart: Byte;
+  newColor    : LongWord;
+  correctColor: LongWord;
+
+  TimeStart   : LongWord = 0;
+  
 procedure Init;
   var
     i : Integer;
@@ -97,6 +105,12 @@ begin
   // RU: Óñòàíàâëèâàåì FPS.
   // EN: Set FPS.
   scr_SetFPS(60);
+  // Rus: çàäà¸ì íîâûé öâåò. Ýòî ÷¸ðíûé è íåìíîãî ïðîçðà÷íûé.
+  // Eng: set a new color. It is black and slightly transparent.
+  newColor := Color_FindOrAdd(200);
+  // Rus: çàäà¸ì íîâûé öâåò áåç ïðîâåðêè íà ñóùåñòâîâàíèå. Ýòî ÷¸ðíûé íå ïðîçðà÷íûé.
+  // Eng: we set a new color, without checking for existence. It's black and not transparent.
+  correctColor := Color_UAdd(255);
 end;
 
 procedure Draw;
@@ -105,8 +119,8 @@ var
   t : Single;
   ScaleF: LongWord;
 begin
-//  batch2d_Begin();          // íå ðåêîìåíäóåòñÿ äëÿ ÏÊ    not reccomended for PC
-                              // use for Android and iOS
+  batch2d_Begin();
+
   ScaleF := 15;
   if time > 255 Then
   begin
@@ -137,8 +151,8 @@ begin
             // RU: Ðèñóåì íàäïèñü â "ðàìî÷êå" íàä ïèíãâèíîì.
             // EN: Render the text in frame over penguins.
         t := text_GetWidth( fntMain, 'I''m so red...' ) * 0.75;
-        pr2d_Rect(tux[i].Pos.X - 1, tux[i].Pos.Y - ScaleF + 4, t, ScaleF, $000000, 200, PR2D_FILL);
-        pr2d_Rect(tux[i].Pos.X - 2, tux[i].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, $FFFFFF);
+        pr2d_Rect(tux[i].Pos.X - 1, tux[i].Pos.Y - ScaleF + 4, t, ScaleF, {$IfDef OLD_METHODS}$000000, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
+        pr2d_Rect(tux[i].Pos.X - 2, tux[i].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, {$IfDef OLD_METHODS}$FFFFFF,{$Else}cl_White{$EndIf});
         text_DrawEx(fntMain, tux[i].Pos.X, tux[i].Pos.Y - ScaleF + 5, 1, 0, 'I''m so red...');
             // RU: Ðèñóåì êðàñíîãî ïèíãâèíà èñïîëüçóÿ fx2d-ôóíêöèþ è ôëàã FX_COLOR.
             // EN: Render red penguin using fx2d-function and flag FX_COLOR.
@@ -148,9 +162,9 @@ begin
       if i = 7 Then
       begin
         t := text_GetWidth(fntMain, '???') * 0.75;
-        pr2d_Rect(tux[i].Pos.X + 32 - t / 2, tux[i].Pos.Y - ScaleF + 4, t, ScaleF, $000000, 200, PR2D_FILL);
-        pr2d_Rect(tux[i].Pos.X + 32 - t / 2 - 1, tux[i].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, $FFFFFF);
-        text_DrawEx(fntMain, tux[i].Pos.X + 32, tux[i].Pos.Y - ScaleF + 5, 1, 0, '???', 255, $FFFFFF, TEXT_HALIGN_CENTER);
+        pr2d_Rect(tux[i].Pos.X + 32 - t / 2, tux[i].Pos.Y - ScaleF + 4, t, ScaleF, {$IfDef OLD_METHODS}$000000, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
+        pr2d_Rect(tux[i].Pos.X + 32 - t / 2 - 1, tux[i].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, {$IfDef OLD_METHODS}$FFFFFF,{$Else}cl_White{$EndIf});
+        text_DrawEx(fntMain, tux[i].Pos.X + 32, tux[i].Pos.Y - ScaleF + 5, 1, 0, '???', {$IfDef OLD_METHODS}255, $FFFFFF,{$Else}cl_White,{$EndIf} TEXT_HALIGN_CENTER);
                 // RU: Ðèñóåì ïèíãâèíà ïðèâåäåíèå èñïîëüçóÿ ôëàã FX_COLOR óñòàíîâèâ ðåæèì â FX_COLOR_SET :)
                 // EN: Render penguin ghost using flag FX_COLOR and mode FX_COLOR_SET :)
         fx_SetColorMode(FX_COLOR_SET);
@@ -168,8 +182,8 @@ begin
       if i = 13 Then
       begin
         t := text_GetWidth(fntMain, 'I''m so big...') * 0.75;
-        pr2d_Rect(tux[i].Pos.X - 2, tux[i].Pos.Y - ScaleF - 10, t, ScaleF, $000000, 200, PR2D_FILL);
-        pr2d_Rect(tux[i].Pos.X - 3, tux[i].Pos.Y - ScaleF - 11, t + 2, ScaleF + 2, $FFFFFF);
+        pr2d_Rect(tux[i].Pos.X - 2, tux[i].Pos.Y - ScaleF - 10, t, ScaleF, {$IfDef OLD_METHODS}$000000, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
+        pr2d_Rect(tux[i].Pos.X - 3, tux[i].Pos.Y - ScaleF - 11, t + 2, ScaleF + 2, {$IfDef OLD_METHODS}$FFFFFF,{$Else}cl_White{$EndIf});
         text_DrawEx(fntMain, tux[i].Pos.X, tux[i].Pos.Y - ScaleF - 9, 1, 0, 'I''m so big...');
             // RU: Ðèñóåì "áîëüøåãî" ïèíãâèíà. Ò.ê. FX2D_SCALE óâåëè÷èâàåò ñïðàéò îòíîñèòåëüíî öåíòðà, òî ïèíãâèíà ñëåäóåò íåìíîãî "ïîäíÿòü".
             // EN: Render "big" penguin. It must be shifted up, because FX2D_SCALE scale sprite relative to the center.
@@ -196,26 +210,34 @@ begin
     asprite2d_Draw(texGround, 13 * 32, 300 - 16, 32, 32, 0, 3);
 
     t := text_GetWidth(fntMain, 'o_O') * 0.75;
-    pr2d_Rect(tux[20].Pos.X + 32 - t / 2 - 1, tux[20 ].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, $000000, 200, PR2D_FILL);
-    pr2d_Rect(tux[20].Pos.X + 32 - t / 2 - 2, tux[20 ].Pos.Y - ScaleF + 2, t + 4, ScaleF + 4, $FFFFFF);
-    text_DrawEx(fntMain, tux[20].Pos.X + 32, tux[20].Pos.Y - ScaleF + 5, 1, 0, 'o_O', 255, $FFFFFF, TEXT_HALIGN_CENTER);
+    pr2d_Rect(tux[20].Pos.X + 32 - t / 2 - 1, tux[20 ].Pos.Y - ScaleF + 3, t + 2, ScaleF + 2, {$IfDef OLD_METHODS}$000000, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
+    pr2d_Rect(tux[20].Pos.X + 32 - t / 2 - 2, tux[20 ].Pos.Y - ScaleF + 2, t + 4, ScaleF + 4, {$IfDef OLD_METHODS}$FFFFFF,{$Else}cl_White{$EndIf});
+    text_DrawEx(fntMain, tux[20].Pos.X + 32, tux[20].Pos.Y - ScaleF + 5, 1, 0, 'o_O', {$IfDef OLD_METHODS}255, $FFFFFF,{$Else}cl_White,{$EndIf} TEXT_HALIGN_CENTER);
     asprite2d_Draw(tux[20].Texture, tux[20].Pos.X, tux[20].Pos.Y, 64, 64, 0, tux[20].Frame div 2);
   end;
 
   if time <= 255 Then
     ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, time)
   else
-  if time < 510 Then
-  begin
-    pr2d_Rect(0, 0, 800, 600, $000000, 510 - time, PR2D_FILL);
-    ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, 510 - time);
-  end;
+    if time < 510 Then
+    begin
+      // RU: Ïîëó÷àåì çíà÷åíèå öâåòà.
+      // EN:
+      i := Get_Color(correctColor);
+      pr2d_Rect(0, 0, 800, 600,{$IfDef OLD_METHODS} $000000, 510 - time,{$Else} correctColor,{$EndIf} PR2D_FILL);
+       dec(i);
+        if i < 0 then
+          i := 0;
+        // Rus: êîððåêòèðóåì çíà÷åíèå öâåòà.
+        // Eng: adjusting the color value.
+        Correct_Color(correctColor, i);
+      ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, 510 - time);
+    end;
 
   if time > 255 Then
     text_Draw(fntMain, 0, 0, 'FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)));
 
-//  batch2d_End();                // íå ðåêîìåíäóåòñÿ äëÿ ÏÊ    not reccomended for PC
-                                  // use for Android and iOS
+  batch2d_End();
 end;
 
 procedure Timer;
@@ -249,7 +271,7 @@ end;
 Begin
   randomize();
 
-  TimeStart := timer_Add(@Timer, 16, Start);
+  TimeStart := timer_Add(@Timer, 16, t_Start);
 
   zgl_Reg(SYS_LOAD, @Init);
   zgl_Reg(SYS_DRAW, @Draw );

Zengl_SRC/demos/Delphi/08 - Sprite Engine/demo08.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/08 - Sprite Engine/demo08.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/08 - Sprite Engine/demo08.dpr

@@ -1,6 +1,7 @@
 program demo08;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -20,6 +21,9 @@ uses
   zgl_text,
   zgl_types,
   zgl_utils
+  {$IfNDef OLD_METHODS}
+  , gegl_color
+  {$EndIf}
   ;
 
 type
@@ -36,13 +40,16 @@ type
 
 var
   dirRes   : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain  : Byte;
+  fntMain  : LongWord;
   texLogo  : zglPTexture;
   texMiku  : zglPTexture;
   time     : Integer;
   sengine2d: zglTSEngine2D;
-  TimeStart: Byte;
-  TimeMiku : Byte;
+  TimeStart: LongWord;
+  TimeMiku : LongWord;
+
+  newColor  : LongWord;
+  correctColor: LongWord;
 
 // Miku
 procedure MikuInit(var Miku: zglTMikuSprite);
@@ -134,9 +141,14 @@ begin
 
   fntMain := font_LoadFromFile(dirRes + 'font.zfi');
   setFontTextScale(15, fntMain);
+
+  newColor := Color_FindOrAdd($80A080FF - 55);
+  correctColor := Color_FindOrAdd($AFAFAFFF);
 end;
 
 procedure Draw;
+var
+  i: LongWord;
 begin
   // RU: Ðèñóåì âñå ñïðàéòû íàõîäÿùèåñÿ â òåêóùåì ñïðàéòîâîì ìåíåäæåðå.
   // EN: Render all sprites contained in current sprite engine.
@@ -148,13 +160,22 @@ begin
   else
     if time < 510 Then
       begin
-        pr2d_Rect(0, 0, 800, 600, $AFAFAF, 510 - time, PR2D_FILL);
+        // RU: Ïîëó÷àåì çíà÷åíèå öâåòà.
+        // EN:
+        i := Get_Color(correctColor);
+        pr2d_Rect(0, 0, 800, 600, {$IfDef OLD_METHODS}$AFAFAF, 510 - time,{$Else}correctColor,{$EndIf} PR2D_FILL);
+        dec(i);
+        if i < $AFAFAF00 then
+          i := $AFAFAF00;
+        // Rus: êîððåêòèðóåì çíà÷åíèå öâåòà.
+        // Eng: adjusting the color value.
+        Correct_Color(correctColor, i);
         ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, 510 - time);
       end;
 
   if time > 255 Then
     begin
-      pr2d_Rect(0, 0, 256, 64, $80A080, 200, PR2D_FILL);
+      pr2d_Rect(0, 0, 256, 64, {$IfDef OLD_METHODS} $80A080, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
       text_Draw(fntMain, 0, 0, 'FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)));
       text_Draw(fntMain, 0, 20, 'Sprites: ' + u_IntToStr(sengine2d.Count));
       text_Draw(fntMain, 0, 40, 'Up/Down - Add/Delete Miku :)');
@@ -193,10 +214,10 @@ end;
 Begin
   randomize;
 
-  TimeStart := timer_Add(@Timer, 16, Start);
+  TimeStart := timer_Add(@Timer, 16, t_Start);
   // RU: Òàéìåð ñ çàäåðæêîé â 6 ñåêóíä.
   // EN: Timer with a 6 second delay.
-  TimeMiku := timer_Add(@AddMiku, 1000, SleepToStart, 6);
+  TimeMiku := timer_Add(@AddMiku, 1000, t_SleepToStart, 6);
 
   zgl_Reg(SYS_EVENTS, @KeyMouseEvent);
   zgl_Reg(SYS_LOAD, @Init);

Zengl_SRC/demos/Delphi/09 - Sprite Engine(Classes)/demo09.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/09 - Sprite Engine(Classes)/demo09.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/09 - Sprite Engine(Classes)/demo09.dpr

@@ -1,6 +1,7 @@
 program demo09;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -21,6 +22,9 @@ uses
   zgl_text,
   zgl_types,
   zgl_utils
+  {$IfNDef OLD_METHODS}
+  , gegl_color
+  {$EndIf}
   ;
 
 type
@@ -36,13 +40,16 @@ type
 
 var
   dirRes   : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain  : Byte;
+  fntMain  : LongWord = 0;
   texLogo  : zglPTexture;
   texMiku  : zglPTexture;
   time     : Integer;
   sengine2d: zglCSEngine2D;
-  TimeStart : Byte;
-  TimeMiku  : Byte;
+  TimeStart : LongWord = 0;
+  TimeMiku  : LongWord = 0;
+
+  newColor  : LongWord;
+  correctColor: array[0..1] of LongWord;
 
 // Miku
 procedure CMiku.OnInit(_Texture: zglPTexture; _Layer: Integer);
@@ -137,12 +144,17 @@ begin
 //  for i := 0 to 9 do
 //    AddMiku();
 
-  fntMain := font_LoadFromFile(dirRes + 'font.zfi');
-
-  setFontTextScale(15, fntMain);
+  fntMain := font_LoadFromFile( dirRes + 'font.zfi' );
+  setFontTextScale(15, fntMain);
+
+  newColor := Color_FindOrAdd($80A080FF - 55);
+  correctColor[1] := Color_FindOrAdd($7FAF7FFF);
+  correctColor[0] := Color_FindOrAdd($AFAFAFFF);
 end;
 
 procedure Draw;
+var
+  i: LongWord;
 begin
   // RU: Ðèñóåì âñå ñïðàéòû íàõîäÿùèåñÿ â òåêóùåì ñïðàéòîâîì ìåíåäæåðå.
   // EN: Render all sprites contained in current sprite engine.
@@ -151,19 +163,29 @@ begin
 
   if time <= 255 Then
   begin
-    pr2d_Rect(0, 0, 800, 600, $7FAF7F, 255, PR2D_FILL);
+    i := Get_Color(correctColor[1]);
+    pr2d_Rect(0, 0, 800, 600,{$IfDef OLD_METHODS} $7FAF7F, 255,{$Else}correctColor[1],{$EndIf} PR2D_FILL);
+    dec(i);
+    if i < $7FAF7F00 then
+      i := $7FAF7F00;
+    Correct_Color(correctColor[1], i);
     ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, time)
   end
   else
     if time < 510 Then
       begin
-        pr2d_Rect(0, 0, 800, 600, $AFAFAF, 510 - time, PR2D_FILL);
+        i := Get_Color(correctColor[0]);
+        pr2d_Rect( 0, 0, 800, 600,{$IfDef OLD_METHODS} $AFAFAF, 510 - time,{$Else}correctColor[0],{$EndIf} PR2D_FILL );
+        dec(i);
+        if i < $AFAFAF00 then
+          i := $AFAFAF00;
+        Correct_Color(correctColor[0], i);
         ssprite2d_Draw(texLogo, 400 - 256, 300 - 128, 512, 256, 0, 510 - time);
       end;
 
   if time > 255 Then
     begin
-      pr2d_Rect(0, 0, 256, 64, $80A080, 200, PR2D_FILL);
+      pr2d_Rect(0, 0, 256, 64, {$IfDef OLD_METHODS} $80A080, 200,{$Else}newColor,{$EndIf} PR2D_FILL);
       text_Draw(fntMain, 0, 0, 'FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)));
       text_Draw(fntMain, 0, 20, 'Sprites: ' + u_IntToStr(sengine2d.Count));
       text_Draw(fntMain, 0, 40, 'Up/Down - Add/Delete Miku :)');
@@ -201,8 +223,8 @@ end;
 Begin
   randomize();
 
-  TimeStart := timer_Add( @Timer, 16, Start );
-  TimeMiku := timer_Add( @AddMiku, 1000, SleepToStart, 6 );
+  TimeStart := timer_Add( @Timer, 16, t_Start );
+  TimeMiku := timer_Add( @AddMiku, 1000, t_SleepToStart, 6 );
 
   zgl_Reg(SYS_EVENTS, @KeyMouseEvent);
   zgl_Reg(SYS_LOAD, @Init);

Zengl_SRC/demos/Delphi/10 - Tiles/demo10.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/10 - Tiles/demo10.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/10 - Tiles/demo10.dpr

@@ -1,6 +1,7 @@
 program demo10;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 

Zengl_SRC/demos/Delphi/11 - Grid/demo11.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/11 - Grid/demo11.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/11 - Grid/demo11.dpr

@@ -1,6 +1,7 @@
 program demo11;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -22,11 +23,11 @@ uses
 
 var
   dirRes     : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain    : Byte;
+  fntMain    : LongWord;
   texBack    : zglPTexture;
   grid       : zglTGrid2D;
   wave       : Single;
-  TimeStart  : Byte;
+  TimeStart  : LongWord;
 
 procedure Init;
   var
@@ -89,7 +90,7 @@ end;
 Begin
   randomize();
 
-  TimeStart := timer_Add(@Timer, 16, SleepToStart, 3);
+  TimeStart := timer_Add(@Timer, 16, t_SleepToStart, 3);
 
   zgl_Reg(SYS_LOAD, @Init);
   zgl_Reg(SYS_DRAW, @Draw);

Zengl_SRC/demos/Delphi/12 - Render into Texture/demo12.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/12 - Render into Texture/demo12.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/12 - Render into Texture/demo12.dpr

@@ -1,6 +1,7 @@
 program demo12;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -23,7 +24,7 @@ uses
 
 var
   dirRes   : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain  : Byte;
+  fntMain  : LongWord;
   texTux   : zglPTexture;
   rtFull   : zglPRenderTarget;
   rtDefault: zglPRenderTarget;

Zengl_SRC/demos/Delphi/13 - Particles/demo13.cfg

@@ -35,10 +35,10 @@
 -N"..\tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/13 - Particles/demo13.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=..\tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,13 +134,22 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=2
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
-Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi
+Count=3
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Item2=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi
 [HistoryLists\hlUnitOutputDirectory]
 Count=2
 Item0=..\tmp

Zengl_SRC/demos/Delphi/13 - Particles/demo13.dpr

@@ -1,6 +1,7 @@
 program demo13;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -25,14 +26,13 @@ uses
 
 var
   dirRes        : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain       : Byte;
+  fntMain       : LongWord;
   texBack       : zglPTexture;
   debug         : Boolean;
   particles     : zglTPEngine2D;
   emitterFire   : array[0..2] of zglPEmitter2D;
   emitterDiamond: zglPEmitter2D;
   emitterRain   : zglPEmitter2D;
-  TimeStart     : Byte;
 
 procedure Init;
 begin
@@ -72,8 +72,8 @@ begin
 end;
 
 procedure Draw;
-  var
-    i: Integer;
+var
+  i: Integer;
 begin
   ssprite2d_Draw(texBack, 0, 0, 800, 600, 0);
 

Zengl_SRC/demos/Delphi/14 - Sound/demo14.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/14 - Sound/demo14.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/14 - Sound/demo14.dpr

@@ -1,6 +1,7 @@
 program demo14;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -32,7 +33,7 @@ const
 
 var
   dirRes : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain: Byte;
+  fntMain: LongWord;
   icon   : array[0..1] of zglPTexture;
   sound  : zglPSound;
   audio  : Integer;
@@ -42,7 +43,7 @@ var
 
   // äîáàâëÿåì íîìåð çâóêà, ïîêà äëÿ îäíîãî çâóêà
   IDSound: Integer;
-  TimeStart: Byte;
+  TimeStart: LongWord;
   p : Integer;
 
 // RU: Ò.ê. çâóêîâàÿ ïîäñèñòåìà íàöåëåíà íà 3D, äëÿ ïîçèöèîíèðîâàíèÿ çâóêîâ â 2D íóæíû íåêîòîðûå óõèùðåíèÿ.
@@ -78,7 +79,7 @@ end;
 
 procedure Draw;
   var
-    r: zglTRect;
+    r: zglTRect2D;
 begin
   ssprite2d_Draw(icon[state], (SCREEN_WIDTH - 128) / 2, (SCREEN_HEIGHT - 128) / 2, 128, 128, 0);
   text_Draw(fntMain, SCREEN_WIDTH / 2, SCREEN_HEIGHT / 2 + 64, 'Skillet - Comatose - Whispers In The Dark', TEXT_HALIGN_CENTER);
@@ -119,9 +120,9 @@ end;
 
 procedure KeyMouseEvent;
 var
-    r : zglTRect;
+  r : zglTRect2D;
 begin
-  if mBClickCanClick(M_BLEFT_CLICK) Then
+  if mouseBClick(M_BLEFT) Then
   begin
       // RU:  äàííîì ñëó÷àå ìû íà÷èíàåì âîñïðîèçâîäèòü çâóê ñðàçó â óêàçàííûõ êîîðäèíàòàõ, íî èõ ìîæíî ìåíÿòü è â ïðîöåññå èñïîëüçóÿ ïðîöåäóðó snd_SetPos.
       //     Âàæíî: Äëÿ OpenAL ìîæíî ïîçèöèîíèðîâàòü òîëüêî mono-çâóêè
@@ -158,7 +159,7 @@ end;
 Begin
   randomize();
 
-  TimeStart := timer_Add(@Timer, 16, Start);
+  TimeStart := timer_Add(@Timer, 16, t_Start);
 
   zgl_Reg(SYS_EVENTS, @KeyMouseEvent);
   zgl_Reg(SYS_LOAD, @Init);

Zengl_SRC/demos/Delphi/15 - Video/demo15.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/15 - Video/demo15.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/15 - Video/demo15.dpr

@@ -1,6 +1,7 @@
 program demo15;
 
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -18,15 +19,21 @@ uses
   zgl_sprite_2d,
   zgl_video,
   zgl_video_theora,
-  zgl_utils
+  zgl_utils,
+  zgl_types
+  {$IfNDef OLD_METHODS}
+  , gegl_color
+  {$EndIf}
   ;
 
 var
   dirRes   : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain  : Byte;
+  fntMain  : LongWord;
   video    : zglPVideoStream;
   videoSeek: Boolean;
 
+  newColor  : LongWord;
+
 procedure Init;
 begin
   fntMain := font_LoadFromFile(dirRes + 'font.zfi');
@@ -36,6 +43,8 @@ begin
   video := video_OpenFile(dirRes + 'video.ogv');
 
   setFontTextScale(15, fntMain);
+
+  newColor := Color_FindOrAdd($00FF0090);
 end;
 
 procedure Draw;
@@ -49,7 +58,7 @@ begin
       // EN: Rendering of progress bar.
       // RU: Ðåíäåðèíã ïîëîñû ïðîãðåññà.
       pr2d_Rect(0, 600 - 100, 800, 20, $00FF00, 255);
-      pr2d_Rect(0, 600 - 100, (800 / video.Info.Duration) * video.Time, 20, $00FF00, 155, PR2D_FILL);
+      pr2d_Rect(0, 600 - 100, (800 / video.Info.Duration) * video.Time, 20, {$IfDef OLD_METHODS}$00FF00, 155,{$Else}newColor,{$EndIf}PR2D_FILL);
 
       text_Draw(fntMain, 0, 0, 'FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)));
       text_Draw(fntMain, 0, 20, 'Frame: ' + u_IntToStr(video.Frame));
@@ -63,7 +72,7 @@ procedure KeyMouseEvent;
 begin
     // EN: If left mouse button is down on progress bar, then seek the video.
   // RU: Åñëè çàæàòà ëåâàÿ êíîïêà ìûøè íàä ïîëîñîé ïðîãðåññà - ïåðåìåùàòüñÿ ïî âèäåî.
-  if mBUpDown(M_BLEFT_DOWN) and (mouse_Y > 500) and (mouse_Y < 520) Then
+  if mouseBDown(M_BLEFT) and (mouse_Y > 500) and (mouse_Y < 520) Then
   begin
     videoSeek := TRUE;
     video_Seek(video, (mouse_X / 800) * video.Info.Duration);

Zengl_SRC/demos/Delphi/16 - Physics/demo16.cfg

@@ -35,10 +35,10 @@
 -N"../tmp"
 -LE"d:\program files (x86)\delphi7\Projects\Bpl"
 -LN"d:\program files (x86)\delphi7\Projects\Bpl"
--U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
--R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL"
+-U"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-O"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-I"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
+-R"../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

Zengl_SRC/demos/Delphi/16 - Physics/demo16.dof

@@ -94,7 +94,7 @@ OutputDir=../../../bin/i386-win32
 UnitOutputDir=../tmp
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+SearchPath=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
 Conditionals=
 DebugSourceDirs=
@@ -134,12 +134,21 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+D:\GLSceneD7\bpl\GLScene7.bpl=GLScene - OpenGL 3D library
+D:\GLSceneD7\bpl\GLSS_BASS7.bpl=GLScene - BASS Manager
+D:\GLSceneD7\bpl\GLSS_FMOD7.bpl=GLScene - FMOD Manager
+D:\GLSceneD7\bpl\GLSS_OpenAL7.bpl=GLScene - OpenAL Manager
+D:\GLSceneD7\bpl\GLS_ODE7.bpl=GLScene - ODE Manager
+D:\GLSceneD7\bpl\GLS_NGD7.bpl=GLScene - NGD Manager
+D:\GLSceneD7\bpl\GLCg7.bpl=GLScene - Cg Shaders
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=1
-Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
+Count=2
+Item0=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL;../../../srcGL
+Item1=../../../headers;../../../extra;../../../src;../../../lib/theora/delphi;../../../lib/zlib/delphi;../../../lib/zip/delphi;../../../srcGEGL
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=../tmp

Zengl_SRC/demos/Delphi/16 - Physics/demo16.dpr

@@ -3,6 +3,7 @@ program demo16;
 // RU:  ýòîì ôàéëå êîíôèãóðàöèè ñîäåðæèòñÿ "îïöèÿ" USE_CHIPMUNK_STATIC äëÿ ñòàòè÷åñêîé êîìïèëÿöèè ñ Chipmunk
 // EN: This file contains "option" USE_CHIPMUNK_STATIC for static compilation with Chipmunk
 {$I zglCustomConfig.cfg}
+{$I zgl_config.cfg}
 
 {$R *.res}
 
@@ -25,13 +26,13 @@ uses
 
 var
   dirRes : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
-  fntMain: Byte;
+  fntMain: LongWord;
   space  : PcpSpace;
   bCount : Integer;
   Bodies : array of PcpBody;
   Shapes : array of PcpShape;
 
-  TimePhisics: Byte;
+  TimePhisics: LongWord;
 
 // RU: Äîáàâèòü îáúåêò "øàð"
 //     x, y - êîîðäèíàòû öåíòðà
@@ -164,7 +165,7 @@ end;
 
 procedure Draw;
 begin
-//  batch2d_Begin();
+  batch2d_Begin();
 
   // RU: Ðåíäåðèì îáúåêòû óêàçàííîãî "ìèðà". Âòîðîé àðãóìåíò ôóíêöèè îòâå÷àåò çà ïîêàç òî÷åê ñîïðèêîñíîâåíèÿ.
   // EN: Render objects for specified "world". Second argument responsible for rendering of collision points.
@@ -172,7 +173,7 @@ begin
 
   text_Draw(fntMain, 10, 5,  'FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)));
   text_Draw(fntMain, 10, 25, 'Use your mouse: Left Click - box, Right Click - ball');
-//  batch2d_End();
+  batch2d_End();
 end;
 
 procedure KeyMouseEvent;
@@ -206,7 +207,7 @@ Begin
   if not cpLoad(libChipmunk) Then exit;
   {$ENDIF}
 
-  TimePhisics := timer_Add(@Phisics, 16, Start);
+  TimePhisics := timer_Add(@Phisics, 16, t_Start);
 
   zgl_Reg(SYS_EVENTS, @KeyMouseEvent);
   zgl_Reg(SYS_LOAD, @Init);