hedgewars/SDLh.pas
changeset 5724 3064ed85a5bd
parent 5670 e01f0b6f1969
child 5745 71e69623be39
equal deleted inserted replaced
5723:87eec4c9a889 5724:3064ed85a5bd
   276     {* SDL_image *}
   276     {* SDL_image *}
   277     IMG_INIT_JPG = $00000001;
   277     IMG_INIT_JPG = $00000001;
   278     IMG_INIT_PNG = $00000002;
   278     IMG_INIT_PNG = $00000002;
   279     IMG_INIT_TIF = $00000004;
   279     IMG_INIT_TIF = $00000004;
   280 
   280 
       
   281     {* SDL_EventMask type definition *}
       
   282 {$IFNDEF SDL13}
       
   283     SDL_ALLEVENTS = $FFFFFFFF;
       
   284 {$ENDIF}
       
   285 
   281 /////////////////////////////////////////////////////////////////
   286 /////////////////////////////////////////////////////////////////
   282 ///////////////////////  TYPE DEFINITIONS ///////////////////////
   287 ///////////////////////  TYPE DEFINITIONS ///////////////////////
   283 /////////////////////////////////////////////////////////////////
   288 /////////////////////////////////////////////////////////////////
   284 
   289 
   285 type
   290 type
   345         colorkey: Longword;
   350         colorkey: Longword;
   346         alpha: Byte;
   351         alpha: Byte;
   347 {$ENDIF}
   352 {$ENDIF}
   348         end;
   353         end;
   349 
   354 
       
   355     SDL_eventaction = (SDL_ADDEVENT = 0, SDL_PEEPEVENT, SDL_GETEVENT);
   350 
   356 
   351     PSDL_Surface = ^TSDL_Surface;
   357     PSDL_Surface = ^TSDL_Surface;
   352     TSDL_Surface = record
   358     TSDL_Surface = record
   353         flags : Longword;
   359         flags : Longword;
   354         format: PSDL_PixelFormat;
   360         format: PSDL_PixelFormat;
   791 function  SDL_GetNumMice: LongInt; cdecl; external SDLLibName;
   797 function  SDL_GetNumMice: LongInt; cdecl; external SDLLibName;
   792 function  SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName;
   798 function  SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName;
   793 
   799 
   794 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   800 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   795 function  SDL_SetHint(name, value: PChar): boolean; cdecl; external SDLLibName;
   801 function  SDL_SetHint(name, value: PChar): boolean; cdecl; external SDLLibName;
       
   802 
       
   803 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; minType, maxType: LongInt): LongInt; cdecl; external SDLLibName;
       
   804 {$ELSE}
       
   805 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; mask: LongInt): LongInt; cdecl; external SDLLibName;
   796 {$ENDIF}
   806 {$ENDIF}
   797 
   807 
   798 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   808 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   799 function  SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName;
   809 function  SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName;
   800 
   810