MikMod.h

//---------------------------------------------------------------------------
#ifndef MikModH
#define MikModH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
//---------------------------------------------------------------------------
namespace Mikmod
{
    class TMikModThread;
    class TVoiceList;
}
struct MODULE;

/**
 * Module driver.
 */
enum class TModuleDriver : unsigned char
{
    NoSound,         /**< No sound. */
    DirectSound,     /**< Win32 DirectSound driver. */
    Windows,         /**< Windows multimedia API driver. */
    MacOSX,          /**< MacOS X driver. */
    OpenSLES,        /**< OpenSL ES driver (for Android native code). */
    Raw,             /**< Raw file disk writer (music.raw). */
    WAV,             /**< RIFF WAVE file disk writer (music.wav). */
    AIFF,            /**< AIFF file disk writer (music.aiff). */
    StandardOutput,  /**< Output to stdout. */
    SDL,             /**< Simple DirectMedia Layer driver. */
    OpenAL           /**< OpenAL driver. */
};

/**
 * TVoice class.
 */
class TVoice : public System::TObject
{
    typedef System::TObject inherited;

private:
    Int8 FVoiceNumber;

protected:
    unsigned short __fastcall GetVolume();
    unsigned long __fastcall GetFrequency();
    unsigned long __fastcall GetRealVolume();
    unsigned long __fastcall GetPanning();

public:
    __fastcall TVoice(Int8 AVoiceNumber = 0);
    virtual __fastcall ~TVoice();

    __property unsigned short Volume = {read=GetVolume}; /**< The volume of the sample currently playing. */
    __property unsigned long Frequency = {read=GetFrequency}; /**< The frequency of the sample currently playing. */
    __property unsigned long RealVolume = {read=GetRealVolume}; /**< The actual playing volume. */
    __property unsigned long Panning = {read=GetPanning}; /**< The panning position of the sample currently playing. */
};

/**
 * TMikMod class.
 */
class TMikMod : public System::TObject
{
    typedef System::TObject inherited;

private:
    MODULE* FModule;
    bool FIsThreadSafe;
    int FVolume;
    bool FWrap;
    bool FLoop;
    bool FFadeOut;
    int FVoiceCount;
    Mikmod::TMikModThread* FMikModThread;
    Mikmod::TVoiceList *FVoiceList;
    void __fastcall CheckIfOpen();
    void __fastcall ModuleCompleted(System::TObject* Sender);
protected:
    void __fastcall UnLoad();
    void __fastcall SetModule(MODULE* AModule);
    void __fastcall SetVolume(int AVolume);
    void __fastcall SetWrap(bool AWrap);
    void __fastcall SetLoop(bool ALoop);
    void __fastcall SetFadeOut(bool AFadeOut);
    long __fastcall GetVersion();
    String __fastcall GetSongTitle();
    String __fastcall GetModType();
    String __fastcall GetComment();
    unsigned short __fastcall GetNumberPos();
    unsigned short __fastcall GetPosition();
    void __fastcall SetPosition(unsigned short APosition);
    TVoice* __fastcall GetVoice(int Index);
    bool __fastcall GetActive();
public:
    __fastcall TMikMod(TModuleDriver ADriver = TModuleDriver::NoSound);
    virtual __fastcall ~TMikMod();

    void __fastcall LoadFromFile(const System::UnicodeString AFileName, int Maxchan, bool Curious = 0);
    void __fastcall LoadFromStream(System::Classes::TStream *AStream, int Maxchan, bool Curious = 0);
    void __fastcall LoadFromResourceName(NativeUInt Instance, const System::UnicodeString ResName, int Maxchan, bool Curious = 0);

    void __fastcall Start();
    void __fastcall Stop();
    void __fastcall Pause();

    __property long Version = {read=GetVersion}; /**< Library version. */
    __property String SongTitle = {read=GetSongTitle}; /**< Song title. */
    __property String ModuleType = {read=GetModType}; /**< Type of the module (which tracker format). */
    __property String Comment = {read=GetComment}; /**< Either the module comments, or NULL if the module doesn't have comments. */
    __property unsigned short NumberPos = {read=GetNumberPos}; /**< Number of sound positions. */
    __property unsigned short SongPosition = {read=GetPosition, write=SetPosition}; /**< Song position. */
    __property int VoiceCount = {read=FVoiceCount}; /**< Number of voice. */
    __property TVoice* Voices[int Index] = {read=GetVoice}; /**< Use Voices to obtain a pointer to a specific TVoice object in the array. */
    __property bool Active = {read=GetActive}; /**< Returns whether sound output is enabled or not. */
__published:
    __property int Volume = {read=FVolume, write=SetVolume, default = 128}; /**< Volume. */
    __property bool Wrap = {read = FWrap, write = SetWrap, default = true}; /**< If true, the module wraps to its restart position when it is finished, to play continuously. */
    __property bool Loop = {read = FLoop, write = SetLoop, default = true}; /**< If true, all in-module loops are processed; otherwise, backward loops which decrease the current position are not processed (i.e. only forward loops, and backward loops in the same pattern, are processed). This ensures that the module never loops endlessly. */
    __property bool FadeOut = {read = FFadeOut, write = SetFadeOut, default = false}; /**< If true, the volume fades out when the last position of the module is being played. */
};
//---------------------------------------------------------------------------
#endif