index d8a1312669a7f7364b1807ae054fa9a9c7ef801f..f71805ef50324de7d8d9b171871d7a783605753a 100644 (file)
var
e_SoundsArray: array of TSoundRec = nil;
var
e_SoundsArray: array of TSoundRec = nil;
+ e_TimidityDecoder: Boolean; (* sdl_mixer special *)
+
implementation
uses
implementation
uses
begin
e_WriteLog(Format('SDL: chunk decoder %s is avalable', [Mix_GetChunkDecoder(i)]), TMsgType.Notify);
end;
begin
e_WriteLog(Format('SDL: chunk decoder %s is avalable', [Mix_GetChunkDecoder(i)]), TMsgType.Notify);
end;
+
+ e_TimidityDecoder := false;
for i := 0 to Mix_GetNumMusicDecoders()-1 do
begin
for i := 0 to Mix_GetNumMusicDecoders()-1 do
begin
+ case AnsiString(Mix_GetMusicDecoder(i)) of
+ 'TIMIDITY': e_TimidityDecoder := true;
+ end;
e_WriteLog(Format('SDL: music decoder %s is avalable', [Mix_GetMusicDecoder(i)]), TMsgType.Notify);
end;
e_WriteLog(Format('SDL: music decoder %s is avalable', [Mix_GetMusicDecoder(i)]), TMsgType.Notify);
end;