correct demo for Delphi

Zengl_SRC/Update_ZenGL.txt

@@ -1,3 +1,6 @@
+03.07.2023
+	Корректировка кода и возврат файлов для стабильной работы ZenGL в DelphiXE.
+
 27.06.2023
 	Окончательные правки проектов Android для новой версии ZenGL. Внесены изменения в соответствии с каждой архитектурой.
 

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

@@ -18,8 +18,7 @@ uses
   zgl_text,
   zgl_types,
   zgl_utils,
-  gegl_color,
-  gegl_utils;             // äëÿ ïåðåâîäà òåêñòà â UTF-8
+  gegl_color;
 
 var
   dirRes  : UTF8String {$IFNDEF MACOSX} = '../data/' {$ENDIF};
@@ -35,7 +34,7 @@ begin
   // EN: If textures were named without special mask - "$(font_name)-page$(number).$(extension)", then use this method to load them(for png):
   //for i := 0 to fntMain.Count.Pages - 1 do
   //  fntMain.Pages[ i ] := tex_LoadFromFile( dirRes + 'font-page' + u_IntToStr( i ) + '.png' );
-  MyText := AscToUtf8Rus('Ýòî òåêñò äëÿ âûâîäà åãî â êâàäðàòå');
+  MyText := AnsiToUtf8('Ýòî òåêñò äëÿ âûâîäà åãî â êâàäðàòå');
   setFontTextScale(15, fntMain);              // óñòàíîâêà øêàëû ðàçìåðíîñòè øðèôòà
 end;
 

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

@@ -192,7 +192,7 @@ begin
       begin
                 // RU: Ðèñóåì "âûñîêîãî" ïèíãâèíà èñïîëüçóÿ âìåñòî ôëàãà FX2D_SCALE ôëàã FX2D_VCHANGE è ôóíêöèþ fx2d_SetVertexes äëÿ ñìåùåíèÿ êîîðäèíàò äâóõ âåðõíèõ âåðøèí ñïðàéòà.
                 // EN: Render "tall" penguin using flag FX2D_VCHANGE instead of FX2D_SCALE, and function fx2d_SetVertexes for shifting upper vertexes of sprite.
-        fx2d_SetVertexes(0, -16, 0, 0, 0);
+        fx2d_SetVertexes(0, -16, 0, 0);
         asprite2d_Draw(tux[i].Texture, tux[i].Pos.X, tux[i].Pos.Y, 64, 64, 0, tux[i].Frame div 2, 255, FX_BLEND or FX2D_FLIPX or FX2D_VCHANGE);
       end else
         asprite2d_Draw(tux[i].Texture, tux[i].Pos.X, tux[i].Pos.Y, 64, 64, 0, tux[i].Frame div 2, 255, FX_BLEND or FX2D_FLIPX);