hedgewars/SDLh.pas
changeset 2248 26e11cb27c61
parent 2242 2e8251933b71
child 2251 bf0b59d3536a
--- a/hedgewars/SDLh.pas	Fri Jul 10 14:46:33 2009 +0000
+++ b/hedgewars/SDLh.pas	Fri Jul 10 16:47:11 2009 +0000
@@ -151,6 +151,7 @@
                     offset: LongInt;
                     end;
 
+
      PSDL_Color = ^TSDL_Color;
      TSDL_Color = record
                   case byte of
@@ -162,6 +163,7 @@
                        1: (value: Longword);
                   end;
 
+
      PSDL_RWops = ^TSDL_RWops;
      TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
      TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
@@ -276,6 +278,7 @@
 procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName;
 function  SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName;
 function  SDL_SetAlpha(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName;
+function  SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName;
 
 function  SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName;
 function  SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName;