hedgewars/SDLh.pas
changeset 7288 5d0704f23a2a
parent 7237 1bbe31e0d707
child 7278 000e4543f204
child 7546 b50556f2a0e8
equal deleted inserted replaced
7188:580cd247511e 7288:5d0704f23a2a
   268     GShift = 16;
   268     GShift = 16;
   269     BShift = 8;
   269     BShift = 8;
   270     AShift = 0;
   270     AShift = 0;
   271 {$ENDIF}
   271 {$ENDIF}
   272 
   272 
       
   273     KMOD_NONE   = $0000;
       
   274     KMOD_LSHIFT = $0001;
       
   275     KMOD_RSHIFT = $0002;
       
   276     KMOD_LCTRL  = $0040;
       
   277     KMOD_RCTRL  = $0080;
       
   278     KMOD_LALT   = $0400;
       
   279     KMOD_RALT   = $0800;
       
   280     KMOD_LMETA  = $0400;
       
   281     KMOD_RMETA  = $0800;
       
   282     KMOD_NUM    = $1000;
       
   283     KMOD_CAPS   = $2000;
       
   284     KMOD_MODE   = $4000;
       
   285 
   273     {* SDL_mixer *}
   286     {* SDL_mixer *}
   274     MIX_MAX_VOLUME = 128;
   287     MIX_MAX_VOLUME = 128;
   275     MIX_INIT_FLAC  = $00000001;
   288     MIX_INIT_FLAC  = $00000001;
   276     MIX_INIT_MOD   = $00000002;
   289     MIX_INIT_MOD   = $00000002;
   277     MIX_INIT_MP3   = $00000004;
   290     MIX_INIT_MP3   = $00000004;
   966 {$IFDEF WIN32}
   979 {$IFDEF WIN32}
   967 function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName;
   980 function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName;
   968 function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName;
   981 function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName;
   969 {$ENDIF}
   982 {$ENDIF}
   970 
   983 
   971 {$IFDEF ANDROID}
       
   972 function Android_JNI_getDensity(): Single; cdecl; external SDLLibName;
       
   973 {$ENDIF}
       
   974 
   984 
   975 {* Compatibility between SDL-1.2 and SDL-1.3 *}
   985 {* Compatibility between SDL-1.2 and SDL-1.3 *}
   976 procedure SDL_WarpMouse(x, y: Word); {$IFDEF SDL13}inline{$ELSE}cdecl; external SDLLibName{$ENDIF};
   986 procedure SDL_WarpMouse(x, y: Word); {$IFDEF SDL13}inline{$ELSE}cdecl; external SDLLibName{$ENDIF};
   977 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   987 function  SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF};
   978 function  SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}
   988 function  SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF}