瀏覽代碼

correct for Delphi

Mirrel 2 年之前
父節點
當前提交
c89d766a1e
共有 2 個文件被更改,包括 2 次插入1 次删除
  1. 1 1
      Zengl_SRC/demos/Delphi/07 - Sprites/demo07.dpr
  2. 1 0
      Zengl_SRC/demos/Delphi/10 - Tiles/demo10.dpr

+ 1 - 1
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, -16, 0, 0, 0, 0);
+        fx2d_SetVertexes(0, -16, 0, 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);

+ 1 - 0
Zengl_SRC/demos/Delphi/10 - Tiles/demo10.dpr

@@ -19,6 +19,7 @@ uses
   zgl_font,
   zgl_text,
   zgl_math_2d,
+  zgl_types,
   zgl_utils
   ;