index 51d6cc3d9a83423bffa83f1390b43e0a0584909f..59f848b896aa82a876b4eb129aa8d91c8f3451a1 100644 (file)
interface
uses
- SysUtils, Classes, Math, e_log, e_textures, SDL2, GL, GLExt, MAPDEF, ImagingTypes, Imaging, ImagingUtility;
+ SysUtils, Classes, Math, e_log, e_texture, SDL2, GL, GLExt, MAPDEF, ImagingTypes, Imaging, ImagingUtility;
type
TMirrorType=(M_NONE, M_HORIZONTAL, M_VERTICAL);
procedure e_TextureFontPrintEx(X, Y: GLint; Text: string; FontID: DWORD; Red, Green,
Blue: Byte; Scale: Single; Shadow: Boolean = False);
procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD; Shadow: Boolean = False);
-procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
+procedure e_TextureFontGetSize(ID: DWORD; out CharWidth, CharHeight: Byte);
procedure e_RemoveAllTextureFont();
function e_TextureFontCharWidth (ch: Char; FontID: DWORD): Integer;
glDisable(GL_BLEND);
end;
-procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
+procedure e_TextureFontGetSize(ID: DWORD; out CharWidth, CharHeight: Byte);
begin
CharWidth := 16;
CharHeight := 16;
sign[2] := 68;
sign[3] := 82;
st.writeBuffer(sign, 4);
- crc := crc32(0, @sign, 4);
+ crc := crc32(0, @sign[0], 4);
hbuf[0] := 0;
hbuf[1] := 0;
hbuf[2] := (Width shr 8) and $ff;
hbuf[10] := 0; // compression method
hbuf[11] := 0; // filter method
hbuf[12] := 0; // no interlace
- crc := crc32(crc, @hbuf, 13);
+ crc := crc32(crc, @hbuf[0], 13);
st.writeBuffer(hbuf, 13);
writeIntBE(st, crc);
//e_WriteLog('PNG: header written', MSG_NOTIFY);
sign[2] := 65;
sign[3] := 84;
st.writeBuffer(sign, 4);
- crc := crc32(0, @sign, 4);
+ crc := crc32(0, @sign[0], 4);
crc := crc32(crc, obuf, dlen);
st.writeBuffer(obuf^, dlen);
writeIntBE(st, crc);
sign[2] := 78;
sign[3] := 68;
st.writeBuffer(sign, 4);
- crc := crc32(0, @sign, 4);
+ crc := crc32(0, @sign[0], 4);
writeIntBE(st, crc);
//e_WriteLog('PNG: end marker written', MSG_NOTIFY);
finally