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; }