equal
deleted
inserted
replaced
49 SDL_FULLSCREEN = $80000000; |
49 SDL_FULLSCREEN = $80000000; |
50 SDL_NOFRAME = $00000020; |
50 SDL_NOFRAME = $00000020; |
51 SDL_HWACCEL = $00000100; |
51 SDL_HWACCEL = $00000100; |
52 SDL_SRCCOLORKEY = $00001000; |
52 SDL_SRCCOLORKEY = $00001000; |
53 SDL_RLEACCEL = $00004000; |
53 SDL_RLEACCEL = $00004000; |
54 |
54 |
55 SDL_NOEVENT = 0; |
55 SDL_NOEVENT = 0; |
56 SDL_ACTIVEEVENT = 1; |
56 SDL_ACTIVEEVENT = 1; |
57 SDL_KEYDOWN = 2; |
57 SDL_KEYDOWN = 2; |
58 SDL_KEYUP = 3; |
58 SDL_KEYUP = 3; |
59 SDL_QUITEV = 12; |
59 SDL_QUITEV = 12; |
195 PLongWordArray = ^TLongWordArray; |
195 PLongWordArray = ^TLongWordArray; |
196 TLongWordArray = array[0..16383] of LongWord; |
196 TLongWordArray = array[0..16383] of LongWord; |
197 |
197 |
198 PSDL_Thread = Pointer; |
198 PSDL_Thread = Pointer; |
199 PSDL_mutex = Pointer; |
199 PSDL_mutex = Pointer; |
200 |
200 |
201 function SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName; |
201 function SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName; |
202 procedure SDL_Quit; cdecl; external SDLLibName; |
202 procedure SDL_Quit; cdecl; external SDLLibName; |
203 function SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName; |
203 function SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName; |
204 procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName; |
204 procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName; |
205 |
205 |
274 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
274 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
275 (* TSDL_Color -> Longword conversion is workaround over freepascal bug. |
275 (* TSDL_Color -> Longword conversion is workaround over freepascal bug. |
276 See http://www.freepascal.org/mantis/view.php?id=7613 for details *) |
276 See http://www.freepascal.org/mantis/view.php?id=7613 for details *) |
277 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
277 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
278 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
278 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
|
279 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
279 |
280 |
280 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
281 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
281 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
282 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
282 |
283 |
283 (* SDL_mixer *) |
284 (* SDL_mixer *) |