hedgewars/SDLh.pas
changeset 2017 7845c77c8d31
parent 1997 cd66434351cf
child 2152 a2811690da1b
--- a/hedgewars/SDLh.pas	Sun Apr 26 15:47:03 2009 +0000
+++ b/hedgewars/SDLh.pas	Thu Apr 30 20:13:44 2009 +0000
@@ -73,6 +73,7 @@
       SDL_HWACCEL     = $00000100;
       SDL_SRCCOLORKEY = $00001000;
       SDL_RLEACCEL    = $00004000;
+      SDL_SRCALPHA    = $00010000;
 
       SDL_NOEVENT     = 0;
       SDL_ACTIVEEVENT = 1;
@@ -247,6 +248,7 @@
 function  SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName;
 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_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;