Example #1
0
LRESULT CChildFrame::OnInstrumentSelected(WPARAM wParam, LPARAM lParam)
//---------------------------------------------------------------------
{
    CView *pView = GetActiveView();
    CModDoc *pModDoc = NULL;
    if (pView) pModDoc = (CModDoc *)pView->GetDocument();
    if ((m_hWndCtrl) && (pModDoc))
    {
            module_renderer *pSndFile = pModDoc->GetSoundFile();
            UINT nIns = lParam;

            if ((!wParam) && (pSndFile->m_nInstruments > 0))
            {
                    nIns = pModDoc->FindSampleParent(nIns);
            }
            ::SendMessage(m_hWndCtrl, WM_MOD_CTRLMSG, CTRLMSG_PAT_SETINSTRUMENT, nIns);
    }
    return 0;
}