hedgewars/SDLh.pas
changeset 945 4ead9cde4e14
parent 883 07a568ba44e0
child 1066 1f1b3686a2b0
--- a/hedgewars/SDLh.pas	Thu May 22 17:25:12 2008 +0000
+++ b/hedgewars/SDLh.pas	Sat May 24 17:34:06 2008 +0000
@@ -51,7 +51,7 @@
       SDL_HWACCEL     = $00000100;
       SDL_SRCCOLORKEY = $00001000;
       SDL_RLEACCEL    = $00004000;
-      
+
       SDL_NOEVENT     = 0;
       SDL_ACTIVEEVENT = 1;
       SDL_KEYDOWN     = 2;
@@ -197,7 +197,7 @@
 
      PSDL_Thread = Pointer;
      PSDL_mutex = Pointer;
-     
+
 function  SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName;
 procedure SDL_Quit; cdecl; external SDLLibName;
 function  SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName;
@@ -276,6 +276,7 @@
    See http://www.freepascal.org/mantis/view.php?id=7613 for details *)
 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName;
 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName;
+function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: Longword): PSDL_Surface; cdecl; external SDL_TTFLibName;
 
 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName;
 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName;