hedgewars/SDLh.pas
changeset 11 b64d67d222b9
parent 4 bcbd7adb4e4b
child 35 9367f246fb5f
equal deleted inserted replaced
10:edf56dca1587 11:b64d67d222b9
    73       SDL_KEYDOWN     = 2;
    73       SDL_KEYDOWN     = 2;
    74       SDL_KEYUP       = 3;
    74       SDL_KEYUP       = 3;
    75       SDL_QUITEV      = 12;
    75       SDL_QUITEV      = 12;
    76 
    76 
    77       SDL_INIT_VIDEO  = $00000020;
    77       SDL_INIT_VIDEO  = $00000020;
       
    78       SDL_INIT_AUDIO  = $00000010;
       
    79       
    78 type PSDL_Rect = ^TSDL_Rect;
    80 type PSDL_Rect = ^TSDL_Rect;
    79      TSDL_Rect = record
    81      TSDL_Rect = record
    80                  x, y: SmallInt;
    82                  x, y: SmallInt;
    81                  w, h: Word;
    83                  w, h: Word;
    82                  end;
    84                  end;
   303 function  Mix_OpenAudio(frequency: integer; format: Word; channels: integer; chunksize: integer): integer; cdecl; external SDL_MixerLibName;
   305 function  Mix_OpenAudio(frequency: integer; format: Word; channels: integer; chunksize: integer): integer; cdecl; external SDL_MixerLibName;
   304 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName;
   306 procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName;
   305 
   307 
   306 function  Mix_VolumeMusic(volume: integer): integer; cdecl; external SDL_MixerLibName;
   308 function  Mix_VolumeMusic(volume: integer): integer; cdecl; external SDL_MixerLibName;
   307 
   309 
       
   310 function Mix_AllocateChannels(numchans: integer): integer; cdecl; external SDL_MixerLibName;
   308 procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName;
   311 procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName;
   309 procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName;
   312 procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName;
   310 
   313 
   311 function  Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: integer): PMixChunk; cdecl; external SDL_MixerLibName;
   314 function  Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: integer): PMixChunk; cdecl; external SDL_MixerLibName;
   312 function  Mix_LoadMUS(const filename: PChar): PMixMusic; cdecl; external SDL_MixerLibName;
   315 function  Mix_LoadMUS(const filename: PChar): PMixMusic; cdecl; external SDL_MixerLibName;