X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Flib%2Fsdl2%2FSDL2_mixer.pas;h=928d5d69f3c8047161161448d629cee55f399976;hb=d70d5684f965371f962e19276ca20291b64f82a6;hp=e7f8131ea8039e5f5afa9d53e2a97fdf27f97f44;hpb=30bcb89f4decd5b5885ebde1fbb943b6563b1e3e;p=d2df-sdl.git diff --git a/src/lib/sdl2/SDL2_mixer.pas b/src/lib/sdl2/SDL2_mixer.pas index e7f8131..928d5d6 100644 --- a/src/lib/sdl2/SDL2_mixer.pas +++ b/src/lib/sdl2/SDL2_mixer.pas @@ -1,3 +1,4 @@ +{$MODE DELPHI} unit SDL2_mixer; {* @@ -25,7 +26,7 @@ unit SDL2_mixer; ---------- v.1.72-stable; 29.09.2013: fixed bug with procedures without parameters - (they must have brackets) + (they must have brackets) v.1.70-stable; 16.09.2013: Initial Commit *} @@ -257,7 +258,7 @@ function Mix_GetMusicHookData: Pointer cdecl; external MIX_LibName {$IFDEF DELPH * before calling your callback. *} type - TMix_Channel_Finished = procedure(channel: Integer); + TMix_Channel_Finished = procedure(channel: Integer); cdecl; procedure Mix_ChannelFinished(channel_finished: TMix_Channel_Finished) cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_ChannelFinished' {$ENDIF} {$ENDIF}; {* Special Effects API by ryan c. gordon. (icculus@icculus.org) *}