656 |
656 |
657 (* SDL_TTF *) |
657 (* SDL_TTF *) |
658 function TTF_Init: LongInt; cdecl; external SDL_TTFLibName; |
658 function TTF_Init: LongInt; cdecl; external SDL_TTFLibName; |
659 procedure TTF_Quit; cdecl; external SDL_TTFLibName; |
659 procedure TTF_Quit; cdecl; external SDL_TTFLibName; |
660 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
660 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
661 (* TSDL_Color -> Longword conversion is workaround over freepascal bug. |
661 |
662 See http://www.freepascal.org/mantis/view.php?id=7613 for details *) |
|
663 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
662 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
664 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName; |
663 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
665 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
664 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
666 |
665 |
667 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
666 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
668 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
667 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
669 |
668 |
670 (* SDL_mixer *) |
669 (* SDL_mixer *) |
671 function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
670 function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
672 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
671 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
673 |
672 |
674 function Mix_Volume(channel: LongInt; volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
673 function Mix_Volume(channel: LongInt; volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
675 function Mix_SetDistance(channel: LongInt; distance: Byte): LongInt; cdecl; external SDL_MixerLibName; |
674 function Mix_SetDistance(channel: LongInt; distance: Byte): LongInt; cdecl; external SDL_MixerLibName; |
676 function Mix_VolumeMusic(volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
675 function Mix_VolumeMusic(volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
677 |
676 |
678 function Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
677 function Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
679 procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName; |
678 procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName; |
680 procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName; |
679 procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName; |