/*
* SETUP.C
*
* Copyright (C) 1990 Microsoft Corporation.
*
* Edit setups dialog box and support functions.
*/
/* Revision history:
March 92 Ported to 16/32 common code by Laurie Griffiths (LaurieGr)
*/
#include "preclude.h"
#include <windows.h>
#include <string.h>
#include <mmsystem.h>
#include <port1632.h>
#include "hack.h"
#include "midimap.h"
#include "midi.h"
#include <cphelp.h>
#include "extern.h"
#include "stdio.h"
#include "stdarg.h"
#if defined(WIN32)
#define _based(x)
#endif //WIN32
BOOL FAR PASCAL _loadds FSetupEnumPortsFunc(LPSTR, LPSTR, UINT, HWND, LPSTR);
#define PAL_SHOW 0 // show active line
#define PAL_HIDE 1 // hide active line
#define PSF_REDRAW 0x0001 // redraw where line used to be
#define PSF_SHOWIFHIDDEN 0x0002 // show line if hidden
#define BTN3S_UNCHECK 0 // uncheck a 3-state button
#define BTN3S_CHECK 1 // check a 3-state button
#define BTN3S_GRAY 2 // gray a 3-state button
#define DEF_SETUP_ROWS 16 // number of default setup rows
static HGLOBAL hSetup; // Setup handle
static HWND hPortList, // invalid port list box ctrl handle
hPortCombo, // port combo-box ctrl handle
hPatchCombo; // patch combo-box ctrl handle
static UINT nPorts; // number of ports available
static int nPatches, // number of user-defined patchmaps
iOldPos, // old position of active edit line
xArrowOffset; // arrow control positional offset
static SZCODE aszNull[] = "";
static SZCODE aszSetupNumFormat[] = "%3d";
#if DBG
void FAR cdecl dprintf(LPSTR szFormat, ...)
{
char ach[128];
va_list va;
int s,d;
va_start(va, szFormat);
s = vsprintf (ach, szFormat, va);
va_end(va);
#if 0
lstrcat(ach,"\n");
s++;
#endif
for (d=sizeof(ach)-1; s>=0; s--)
{
if ((ach[d--] = ach[s]) == '\n')
ach[d--] = '\r';
}
OutputDebugString("MIDI: ");
OutputDebugString(ach+d+1);
}
#else
#define dprintf if (0) ((int (*)(char *, ...)) 0)
#endif //DBG
static BOOL NEAR PASCAL FHasInvalidPort(
void)
{
SETUP FAR* lpSetup;
WORD wNumDevs;
int i;
wNumDevs = (WORD)midiOutGetNumDevs();
// dprintf("numDevs = %d\n", wNumDevs);
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
for (i = 0; i < 16; i++)
{ // dprintf("device id[%d]=%d\n",i,lpSetup->channels[i].wDeviceID);
if ((lpSetup->channels[i].wDeviceID != LOWORD(MIDI_MAPPER)) &&
(lpSetup->channels[i].wDeviceID >= wNumDevs))
break;
}
GlobalUnlock(hSetup);
return (i < 16);
} /* FHasInvalidPort */
static int PASCAL ISetupSave(
HWND hdlg,
BOOL bQuery)
{
SETUP FAR* lpSetup;
MMAPERR mmaperr;
int iRet = 0; // choose a value not IDCANCEL or IDYES
if (bQuery)
if ((iRet = QuerySave()) != IDYES)
return iRet;
if (FHasInvalidPort())
if (!InvalidPortMsgBox(hdlg))
return IDCANCEL;
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
mmaperr = mapWrite(MMAP_SETUP, lpSetup);
GlobalUnlock(hSetup);
if (mmaperr != MMAPERR_SUCCESS) {
VShowError(hdlg, mmaperr);
return IDCANCEL;
}
Modify(FALSE);
if (fNew)
fNew = FALSE;
return iRet;
} /* ISetupSave */
/*
* VSetupEditMsg
*
* This function deals with EN_UPDATE and EN_ACTIVATE messages sent
* to the channel number edit control through the WM_COMMAND message.
*/
static void PASCAL VSetupEditMsg(
HWND hdlg,
WORD NotifCode)
{
SETUP FAR* lpSetup;
int i;
LPWORD lpwChan;
WORD wChan;
BOOL bTranslate;
switch (NotifCode) {
case EN_UPDATE:
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
lpwChan = &lpSetup->channels[iVertPos + iCurPos].wChannel;
i = GetDlgItemInt(hdlg, ID_SETUPEDIT, &bTranslate, FALSE);
if (i > 0 && i <= 16) {
if (*lpwChan != (BYTE)(i - 1)) {
*lpwChan = (BYTE)(i - 1);
Modify(TRUE);
}
} else {
char aszMessage[256];
char aszTitle[32];
// may want to experiment with EM_UNDO here.
LoadString(hLibInst, IDS_INVALIDDESTINATION, aszMessage, sizeof(aszMessage));
LoadString(hLibInst, IDS_USERERROR, aszTitle, sizeof(aszTitle));
MessageBox(hdlg, aszMessage, aszTitle, MB_ICONEXCLAMATION | MB_OK);
SetDlgItemInt(hdlg, ID_SETUPEDIT,
*lpwChan + 1, FALSE);
}
GlobalUnlock(hSetup);
break;
case EN_ACTIVATE:
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
wChan = lpSetup->channels[iVertPos + iCurPos].wChannel;
GlobalUnlock(hSetup);
SetDlgItemInt(hdlg, ID_SETUPEDIT, wChan + 1, FALSE);
break;
}
} /* VSetupEditMsg */
/*
* VSetupActiveChan
*
* This function controls the checked/unchecked/grayed state of the 'Active'
* button for a specific channel. If the function is being grayed, it will
* be disabled as well.
*/
static void NEAR PASCAL VSetupActiveChan(
int iPos,
LPDWORD lpdwFlags,
UINT uCheck)
{
HWND hCheck;
BOOL fEnable;
if (lpdwFlags)
if (uCheck == BTN3S_CHECK)
*lpdwFlags |= MMAP_ACTIVE;
else
*lpdwFlags &= ~MMAP_ACTIVE;
hCheck = GetDlgItem(hWnd, ID_SETUPCHECK + iPos);
if ((UINT)SendMessage(hCheck, BM_GETCHECK, (WPARAM)0, (LPARAM)0) != uCheck)
SendMessage(hCheck, BM_SETCHECK, (WPARAM)uCheck, (LPARAM)0);
fEnable = (uCheck != BTN3S_GRAY);
if (fEnable != IsWindowEnabled(hCheck))
EnableWindow(hCheck, fEnable);
} /* VSetupActiveChan */
/*
* VSetupComboMsg
*
* This function deals with the CBN_ACTIVATE and CBN_SELCHANGE messages sent
* to the port or patch combo boxes through the WM_COMMAND message.
*/
static void NEAR PASCAL VSetupComboMsg(
HWND hdlg,
UINT id,
WORD NotifCode)
{
HWND hCombo = GetDlgItem(hdlg, id);
SETUP FAR* lpSetup;
CHANNEL FAR* lpChannel;
UINT uIdx;
char szBuf[MAXPNAMELEN];
if (NotifCode != CBN_ACTIVATE && NotifCode != CBN_SELCHANGE)
return;
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
lpChannel = &lpSetup->channels[iVertPos + iCurPos];
switch (NotifCode) {
case CBN_ACTIVATE:
uIdx = MMAP_ID_NOPORT;
// if its a port combo box message
if (id == ID_SETUPPORTCOMBO)
if (lpChannel->wDeviceID != MMAP_ID_NOPORT)
uIdx = lpChannel->wDeviceID;
else
uIdx = nPorts;
// otherwise its a patch combo box message
else if (lpChannel->dFlags & MMAP_PATCHMAP)
uIdx = ComboLookup(hCombo, lpChannel->aszPatchName);
else
uIdx = nPatches;
SendMessage(hCombo, CB_SETCURSEL, (WPARAM)uIdx, (LPARAM)0);
break;
case CBN_SELCHANGE:
GetWindowText(hCombo, szBuf, MAXPNAMELEN);
// if we're dealing with a port combo message
if (id == ID_SETUPPORTCOMBO) {
// get the index of the newly selected port
uIdx = (UINT)SendMessage(hCombo,
CB_GETCURSEL, (WPARAM)NULL, (LPARAM)0);
// if it's the same as old index, we don't care
if (uIdx == lpChannel->wDeviceID)
break;
// if it's the last port index, it's the[none] entry
if (uIdx == (UINT)nPorts) {
// set id to bogus port value
lpChannel->wDeviceID = MMAP_ID_NOPORT;
// deactivate the channel
VSetupActiveChan(iCurPos, &lpChannel->dFlags,
BTN3S_GRAY);
} else {
// ok so it's not the[none] entry
// if it used to be[none], activate channel
if (lpChannel->wDeviceID == MMAP_ID_NOPORT)
VSetupActiveChan(iCurPos,
&lpChannel->dFlags,
BTN3S_CHECK);
// set the id to the new index
lpChannel->wDeviceID = (WORD)uIdx;
}
Modify(TRUE);
} else {
if (!lstrcmpi(szBuf, lpChannel->aszPatchName))
break;
lstrcpy(lpChannel->aszPatchName, szBuf);
if (!lstrcmpi(szBuf, szNone))
lpChannel->dFlags &= ~MMAP_PATCHMAP;
else
lpChannel->dFlags |= MMAP_PATCHMAP;
Modify(TRUE);
}
break;
}
GlobalUnlock(hSetup);
} /* VSetupComboMsg */
static void NEAR PASCAL VSetupActiveLine(
UINT uCase,
UINT uFlags)
{
static const UINT uDefFlags = SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER;
switch (uCase) {
case PAL_SHOW:
if (!fHidden)
return;
uFlags |= SWP_SHOWWINDOW;
fHidden = FALSE;
break;
case PAL_HIDE:
if (fHidden)
return;
uFlags |= SWP_HIDEWINDOW;
fHidden = TRUE;
break;
}
uFlags |= uDefFlags;
SetWindowPos(hEdit, NULL, 0L, 0L, 0L, 0L, uFlags);
SetWindowPos(hArrow, NULL, 0L, 0L, 0L, 0L, uFlags);
SetWindowPos(hPortCombo, NULL, 0L, 0L, 0L, 0L, uFlags);
SetWindowPos(hPatchCombo, NULL, 0L, 0L, 0L, 0L, uFlags);
if (uCase == PAL_SHOW)
SetFocus(hEdit);
} /* VSetupActiveLine */
static void NEAR PASCAL VSetupSetFocus(
HWND hdlg,
UINT uFlags,
int xPos)
{
HWND hOldCheck;
HWND hNewCheck;
RECT rc;
DWORD dwFlags;
int yPos = rcBox.top + iCurPos * yChar;
// change tabstop flag on new checkbox
hNewCheck = GetDlgItem(hdlg, ID_SETUPCHECK + iCurPos);
dwFlags = (DWORD)GetWindowLong(hNewCheck, GWL_STYLE);
dwFlags |= WS_TABSTOP;
SetWindowLong(hNewCheck, GWL_STYLE, dwFlags);
// set mnemonic on new window
SetWindowText(hNewCheck, aszSourceMnumonic);
// take the tabstop away from the old checkbox if it exists
if (iOldPos > -1) {
hOldCheck = GetDlgItem(hdlg, ID_SETUPCHECK + iOldPos);
dwFlags = (DWORD)GetWindowLong(hOldCheck, GWL_STYLE);
dwFlags &= ~(DWORD)WS_TABSTOP;
SetWindowLong(hOldCheck, GWL_STYLE, dwFlags);
// take away mnemonic from old window
SetWindowText(hOldCheck, aszNull);
}
iOldPos = iCurPos;
GetWindowRect(hEdit, &rc);
SetWindowPos(hEdit, NULL, rgxPos[1], yPos, 0L, 0L,
SWP_NOZORDER | SWP_NOSIZE);
VSetupEditMsg(hdlg, EN_ACTIVATE);
// UpdateWindow(hEdit);
SetWindowPos(hArrow, NULL, rgxPos[1] + xArrowOffset, yPos, 0L,
0L, SWP_NOZORDER | SWP_NOSIZE);
SetWindowPos(hPortCombo, NULL, rgxPos[2], yPos, 0L, 0L,
SWP_NOZORDER | SWP_NOSIZE);
VSetupComboMsg(hdlg, ID_SETUPPORTCOMBO, CBN_ACTIVATE);
SetWindowPos(hPatchCombo, NULL, rgxPos[3], yPos, 0L, 0L,
SWP_NOZORDER | SWP_NOSIZE);
VSetupComboMsg(hdlg, ID_SETUPPATCHCOMBO, CBN_ACTIVATE);
if ((fHidden) && (uFlags & PSF_SHOWIFHIDDEN)) {
VSetupActiveLine(PAL_SHOW, 0L);
UpdateWindow(hArrow);
UpdateWindow(hPortCombo);
UpdateWindow(hPatchCombo);
}
// ValidateRect(hdlg, NULL);
if (uFlags & PSF_REDRAW && rc.right) {
ScreenToClient(hdlg, (LPPOINT)&rc);
ScreenToClient(hdlg, (LPPOINT)&rc + 1);
rc.right = rcBox.right + 1;
InvalidateRect(hdlg, &rc, FALSE);
UpdateWindow(hdlg);
}
if (!xPos)
return;
if (xPos < rgxPos[2]) {
SetFocus(hEdit);
#if defined(WIN16)
SendMessage(hEdit, EM_SETSEL, (WPARAM)NULL, MAKELPARAM(0, 32767));
#else
SendMessage(hEdit, EM_SETSEL, (WPARAM)0, (LPARAM)-1);
#endif //WIN16
} else if (xPos < rgxPos[3])
SetFocus(hPortCombo);
else if (xPos < rgxPos[4])
SetFocus(hPatchCombo);
} /* VSetupSetFocus */
/*
* VSetupSize
*/
static
void PASCAL VSetupSize(
HWND hdlg,
BOOL fMaximize)
{
RECT rcOK;
RECT rc3S;
RECT rcWnd;
LONG lDBU;
UINT xBU;
UINT yBU;
int xButton;
int xCenter;
int yTopMar;
int yBotMar;
int yLeftOver;
int yMiniBotMar;
int i;
lDBU = GetDialogBaseUnits();
xBU = LOWORD(lDBU);
yBU = HIWORD(lDBU);
// get the rectangle of the OK button
GetClientRect(GetDlgItem(hdlg, IDOK), &rcOK);
// get x-extent of button
xButton = rcOK.right - rcOK.left;
// top margin is 2 characters
yTopMar = (16 * yBU) / 8 - 6; // cookie land
// bottom margin is 2 * minimum bottom margin dialog units +
// height of button in pixels
yBotMar = (VERTMARGIN * 2 *yBU) / 8 + rcOK.bottom - rcOK.top;
if (fMaximize) {
// get the rectangle of a 3-state button
GetClientRect(GetDlgItem(hdlg, ID_SETUPCHECK), &rc3S);
SetWindowPos(hdlg, NULL, 0L, 0L,
rcBox.right - rcBox.left +
(rc3S.right - rc3S.left) +
(HORZMARGIN * 3 * xBU) / 4 +
(GetSystemMetrics(SM_CXDLGFRAME) + 1) * 2,
(DEF_SETUP_ROWS * 10 * yBU) / 8 +
yTopMar + yBotMar +
GetSystemMetrics(SM_CYCAPTION) +
(GetSystemMetrics(SM_CYDLGFRAME) + 1) * 2,
SWP_NOZORDER | SWP_NOMOVE);
}
// get the x and y extents of the client rectangle
GetClientRect(hdlg, &rcWnd);
xClient = rcWnd.right - rcWnd.left;
yClient = rcWnd.bottom - rcWnd.top;
// yChar is the height of one row in pixels - 1
yChar = (10 * yBU) / 8 - 1;
// xChar is the average width of a character
xChar = xBU;
// yBox is the room we actually have to display setup rows
yBox = yClient - yTopMar - yBotMar;
// nLines is the number of setup rows we can display
nLines = min(16, yBox / yChar);
// yLeftOver is how many pixels are left over
yLeftOver = yBox - nLines * yChar;
// add half the leftovers to the top margin
yTopMar += yLeftOver / 2;
// calculate scroll bar maximum and position
iVertMax = max(0, 16 - nLines);
iVertPos = min(iVertMax, iVertPos);
// rcBox is the box of rows and columns inside the client area
SetRect(&rcBox,
rcBox.left,
yTopMar,
rcBox.right,
yTopMar + nLines * yChar);
// xCenter is used to center the OK and CANCEL buttons horizontally
xCenter = (rcBox.right - rcBox.left - xButton * 3) / 4;
// yMiniBotMar is the spacing above and below the button
yMiniBotMar = (VERTMARGIN * yBU) / 8 + yLeftOver / 4;
SetWindowPos(GetDlgItem(hdlg, IDOK), NULL, rcBox.left + xCenter,
rcBox.bottom + yMiniBotMar, 0L, 0L,
SWP_NOSIZE | SWP_NOZORDER);
SetWindowPos(GetDlgItem(hdlg, IDCANCEL), NULL,
rcBox.left + xButton + xCenter * 2,
rcBox.bottom + yMiniBotMar, 0L, 0L,
SWP_NOSIZE | SWP_NOZORDER);
SetWindowPos(GetDlgItem(hdlg, IDH_DLG_MIDI_SETUPEDIT), NULL,
rcBox.left + xButton * 2 + xCenter * 3,
rcBox.bottom + yMiniBotMar, 0L, 0L,
SWP_NOSIZE | SWP_NOZORDER);
// this loop could be optimized
// then again, so could the u.s. judicial system
for (i = 0; i < 16; i++, yTopMar += yChar) {
HWND hCheck;
hCheck = GetDlgItem(hdlg, ID_SETUPCHECK + i);
if (i < nLines) {
SetWindowPos(hCheck, NULL,
rcBox.right + (HORZMARGIN * xBU) / 4,
yTopMar + 3, 0L, 0L,
SWP_NOSIZE | SWP_NOZORDER);
ShowWindow(hCheck, SW_SHOWNORMAL);
} else
ShowWindow(hCheck, SW_HIDE);
}
if (iCurPos >= 0 && iCurPos < nLines)
VSetupSetFocus(hdlg, PSF_SHOWIFHIDDEN, 1);
else
VSetupActiveLine(PAL_HIDE, SWP_NOREDRAW);
} /* VSetupSize */
static MMAPERR PASCAL MmaperrInitNew(void)
{
SETUP FAR* lpSetup;
WORD wChan;
if ((hSetup = GlobalAlloc(GHND, (DWORD)sizeof(SETUP))) == NULL)
return MMAPERR_MEMORY;
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
lstrcpy(lpSetup->aszSetupName, szCurrent);
lstrcpy(lpSetup->aszSetupDescription, szCurDesc);
for (wChan = 0; wChan < 16; wChan++) {
lpSetup->channels[wChan].wChannel = wChan;
lpSetup->channels[wChan].wDeviceID = MMAP_ID_NOPORT;
lstrcpy(lpSetup->channels[wChan].aszPatchName, szNone);
}
GlobalUnlock(hSetup);
return MMAPERR_SUCCESS;
} /* MmaperrInitNew */
/*
* VSetupEnumPorts
*
* Enumerate available port names and throw them in a combo box.
*/
static void PASCAL VSetupEnumPorts(
void)
{
MIDIOUTCAPS moCaps;
UINT i;
nPorts = midiOutGetNumDevs();
for (i = 0; i < nPorts; i++) {
midiOutGetDevCaps(i, &moCaps, sizeof(MIDIOUTCAPS));
SendMessage(hPortCombo, CB_ADDSTRING, (WPARAM)NULL,
(LPARAM)(LPSTR)moCaps.szPname);
}
} /* VSetupEnumPorts */
/*
* MmaperrEnumPatches
*
* This function calls mapEnumerate to enumerate all the user-defined
* patchmaps into a combo box.
*/
static MMAPERR NEAR PASCAL MmaperrEnumPatches(void)
{
MMAPERR mmaperr;
mmaperr = mapEnumerate(MMAP_PATCH, EnumFunc, MMENUM_BASIC, hPatchCombo, NULL);
if (mmaperr != MMAPERR_SUCCESS)
return mmaperr;
nPatches = (int)(LONG)SendMessage(hPatchCombo, CB_GETCOUNT, (WPARAM)NULL, (LPARAM)0);
SendMessage(hPatchCombo, CB_ADDSTRING, (WPARAM)NULL, (LPARAM)(LPSTR)szNone);
return MMAPERR_SUCCESS;
} /* MmaperrEnumPatches */
static BOOL NEAR PASCAL FInitSetup(
HWND hdlg)
{
SETUP FAR* lpSetup;
LONG lDBU;
UINT xBU;
UINT yBU;
UINT xWidth; // width of current column
UINT xEdit; // width of edit controls
UINT yEdit; // height of edit/arrow controls
UINT xCombo; // width of combo boxes
UINT yCombo; // height of combo boxes
UINT wCheck;
char szCaption[80];
char szCaptionFormat[80];
MMAPERR mmaperr;
int i;
if (!fNew) {
if ((hSetup = GlobalAlloc(GHND, sizeof(SETUP))) == NULL) {
mmaperr = MMAPERR_MEMORY;
exit00: VShowError(hdlg, mmaperr);
return FALSE;
}
} else if ((mmaperr = MmaperrInitNew()) != MMAPERR_SUCCESS)
goto exit00;
fHidden = FALSE;
iVertPos = 0;
iCurPos = 0;
nLines = 0; // necessary?
nPatches = 0;
nPorts = 0;
hPortList = GetDlgItem(hdlg, ID_SETUPPORTLIST);
hEdit = GetDlgItem(hdlg, ID_SETUPEDIT);
hArrow = GetDlgItem(hdlg, ID_SETUPARROW);
hPortCombo = GetDlgItem(hdlg, ID_SETUPPORTCOMBO);
hPatchCombo = GetDlgItem(hdlg, ID_SETUPPATCHCOMBO);
if (fReadOnly)
{
EnableWindow(GetDlgItem(hdlg,IDOK),FALSE);
SendMessage(hdlg, DM_SETDEFID, (WPARAM)IDCANCEL, (LPARAM)0);
}
lDBU = GetDialogBaseUnits();
xBU = LOWORD(lDBU);
yBU = HIWORD(lDBU);
xEdit = (40 * xBU) / 4; // 10 chars wide
yEdit = (10 * yBU) / 8; // 10 is a magic cookie
xCombo = (64 * xBU) / 4; // 16 characters long
yCombo = (46 * yBU) / 8; // 46 is a magic cookie
rcBox.left = (HORZMARGIN * xBU) / 4;
rcBox.right = rcBox.left;
rgxPos[0] = rcBox.right;
rcBox.right += xEdit;
rgxPos[1] = rcBox.right;
xWidth = xEdit;
SetWindowPos(hEdit, NULL, 0L, 0L, xWidth, yEdit,
SWP_NOZORDER | SWP_NOMOVE);
// set global arrow control offset to proper position
rcBox.right += xArrowOffset = xWidth - 1;
// width of dst channel arrow control
xWidth = (10 * xBU) / 4;
SetWindowPos(hArrow, NULL, 0L, 0L, xWidth, yEdit,
SWP_NOZORDER | SWP_NOMOVE);
rcBox.right += xWidth - 1;
rgxPos[2] = rcBox.right;
xWidth = (80 * xBU) / 4; // 20 characters long
SetWindowPos(hPortCombo, NULL, 0L, 0L, xWidth,
yCombo, SWP_NOZORDER | SWP_NOMOVE);
rcBox.right += xWidth - 1;
rgxPos[3] = rcBox.right;
xWidth = xCombo;
SetWindowPos(hPatchCombo, NULL, 0L, 0L, xWidth,
yCombo, SWP_NOZORDER | SWP_NOMOVE);
rcBox.right += xWidth - 1;
rgxPos[4] = rcBox.right;
if (!nPorts)
VSetupEnumPorts();
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
if (!nPatches)
if ((mmaperr = MmaperrEnumPatches()) != MMAPERR_SUCCESS) {
exit01: GlobalUnlock(hSetup);
GlobalFree(hSetup);
goto exit00;
}
if (!fNew) {
mmaperr = mapReadSetup(szCurrent, lpSetup);
if (mmaperr == MMAPERR_INVALIDPORT) {
if (!InvalidPortMsgBox(hdlg)) {
GlobalUnlock(hSetup);
GlobalFree(hSetup);
return FALSE;
}
mmaperr = mapEnumerate( MMAP_PORTS
, FSetupEnumPortsFunc
, MMENUM_BASIC
, NULL
, (LPSTR)szCurrent
);
}
if (mmaperr != MMAPERR_SUCCESS){
goto exit01;
}
if (lstrcmp(lpSetup->aszSetupDescription, szCurDesc)) {
lstrcpy(lpSetup->aszSetupDescription, szCurDesc);
fNew = TRUE;
}
}
SendMessage(hPortCombo, CB_ADDSTRING, (WPARAM)NULL, (LPARAM)(LPSTR)szNone);
for (i = 0; i < 16; i++) {
// check a 3-state button if the channel is active, or gray
// it if the channel is not mapped to a port
if (lpSetup->channels[i].wDeviceID == MMAP_ID_NOPORT)
wCheck = BTN3S_GRAY;
else if (lpSetup->channels[i].dFlags & MMAP_ACTIVE)
wCheck = BTN3S_CHECK;
else
continue;
VSetupActiveChan(i, 0L, wCheck);
}
GlobalUnlock(hSetup);
LoadString(hLibInst, IDS_SETUPS ,szCaptionFormat, sizeof(szCaptionFormat));
wsprintf(szCaption, szCaptionFormat, (LPSTR)szCurrent);
SetWindowText(hWnd, szCaption);
SendMessage(GetDlgItem(hdlg, ID_SETUPDESTMNEM),
WM_SETFONT, (WPARAM)hFont, (LPARAM)0);
SendMessage(GetDlgItem(hdlg, ID_SETUPPORTMNEM),
WM_SETFONT, (WPARAM)hFont, (LPARAM)0);
SendMessage(GetDlgItem(hdlg, ID_SETUPPATCHMNEM),
WM_SETFONT, (WPARAM)hFont, (LPARAM)0);
VSetupSize(hdlg, TRUE);
SetWindowPos(GetDlgItem(hdlg, ID_SETUPDESTMNEM), NULL,
rgxPos[1], yChar, 0L, 0L, SWP_NOSIZE | SWP_NOZORDER);
SetWindowPos(GetDlgItem(hdlg, ID_SETUPPORTMNEM), NULL,
rgxPos[2], yChar, 0L, 0L, SWP_NOSIZE | SWP_NOZORDER);
SetWindowPos(GetDlgItem(hdlg, ID_SETUPPATCHMNEM), NULL,
rgxPos[3], yChar, 0L, 0L, SWP_NOSIZE | SWP_NOZORDER);
Modify(fNew);
return TRUE;
} /* FInitSetup */
static void PASCAL VSetupButtonDown(
HWND hdlg,
LONG lParam)
{
int x = LOWORD(lParam);
int y = HIWORD(lParam);
int iPos;
UINT uFlags;
if (x < rcBox.left || x > rcBox.right)
return;
if (y < rcBox.top || y > rcBox.bottom)
return;
if ((iPos = min(nLines - 1, (y - rcBox.top) / yChar)) == iCurPos)
return;
if (iCurPos >= 0 && iCurPos < nLines) {
uFlags = PSF_REDRAW;
SendMessage(hPortCombo, CB_SHOWDROPDOWN, (WPARAM)FALSE, (LPARAM)0);
SendMessage(hPatchCombo, CB_SHOWDROPDOWN, (WPARAM)FALSE, (LPARAM)0);
UpdateWindow(hdlg);
} else
uFlags = PSF_SHOWIFHIDDEN;
iCurPos = iPos;
VSetupSetFocus(hdlg, uFlags, x);
} /* VSetupButtonDown */
static void PASCAL VSetupPaint(
HWND hdlg)
{
HPEN hPen; // previous pen to restore
SETUP FAR* lpSetup;
CHANNEL FAR* lpChannel;
PAINTSTRUCT ps; // from BeginPaint
RECT rcText;
UINT uDev;
int i; // loop counter
int iVert;
int nBegin; // first row to repaint
int nEnd; // last row to repaint
int iLeft; // left of invalid area
int iTop; // top of invalid area
int iBottom; // bottom of invalid area
char szBuf[MAXPNAMELEN];
// uses GLOBAL hFont - Lord knows why.
// uses GLOBAL rcBox = clipping rectangle???
BeginPaint(hdlg, &ps);
if (!ps.rcPaint.bottom) { // bottom==0 => area must be empty
exit00: EndPaint(hdlg, &ps);
return;
}
hPen = SelectObject(ps.hdc, GetStockObject(BLACK_PEN));
hFont = SelectObject(ps.hdc, hFont);
SetTextColor(ps.hdc, GetSysColor(COLOR_WINDOWTEXT));
SetBkMode(ps.hdc, TRANSPARENT);
if (ps.rcPaint.top < rcBox.top) { // need to paint top headings?
iVert = yChar;
TextOut(ps.hdc, 11, iVert, aszSourceChannel, lstrlen(aszSourceChannel));
SetRect(&rcText, rcBox.right + 2, yChar, 0, 0);
DrawText(ps.hdc, aszActive, -1, &rcText,
DT_LEFT | DT_NOCLIP);
}
// calculate top and bottom y coordinates of invalid area
iTop = max(ps.rcPaint.top, rcBox.top);
// if top is below the box, forget about painting
if (iTop > rcBox.bottom) {
exit01: hFont = SelectObject(ps.hdc, hFont); // restore
hPen = SelectObject(ps.hdc, hPen); // restore
goto exit00;
}
iBottom = min(ps.rcPaint.bottom, rcBox.bottom);
// calculate left x coordinate of invalid area
iLeft = max(ps.rcPaint.left, rcBox.left);
// calculate beginning and ending data row to be repainted
nBegin = max(0, (iTop - rcBox.top) / yChar);
nEnd = min(nLines, (iBottom - rcBox.top) / yChar);
// draw vertical lines of the box
for (i = 0; i < 5; i++) {
MMoveTo(ps.hdc, rgxPos[i], iTop);
LineTo(ps.hdc, rgxPos[i], iBottom + 1);
}
// vertical position of first line we have to draw
iVert = rcBox.top + nBegin * yChar;
// lock the map
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
// set up an optimization pointer
lpChannel = &lpSetup->channels[iVertPos + nBegin];
for (i = nBegin; i <= nEnd; i++, iVert += yChar, lpChannel++) {
MMoveTo(ps.hdc, iLeft, iVert);
LineTo(ps.hdc, rcBox.right, iVert);
if (i == nLines)
break;
if (iLeft < rgxPos[1]) {
wsprintf(szBuf, aszSetupNumFormat, iVertPos + i + 1);
TextOut(ps.hdc, rgxPos[0] + xChar, iVert + 2,
szBuf, 3);
}
if (iLeft < rgxPos[2]) {
wsprintf(szBuf, aszSetupNumFormat, lpChannel->wChannel + 1);
TextOut(ps.hdc, rgxPos[1] + 2 * xChar, iVert + 2,
szBuf, 3);
}
if (i == iCurPos)
continue;
if (iLeft < rgxPos[3]) {
*szBuf = 0;
uDev = lpChannel->wDeviceID;
if (uDev == MMAP_ID_NOPORT)
uDev = nPorts;
if (uDev <= nPorts) {
RECT sTextRect;
TEXTMETRIC sTM;
SendMessage(hPortCombo, CB_GETLBTEXT,
uDev, (LPARAM)(LPSTR)szBuf);
GetTextMetrics(ps.hdc,(LPTEXTMETRIC)&sTM);
SetRect((LPRECT)&sTextRect,rgxPos[2]+2,iVert+2,rgxPos[3]-2,iVert+2+sTM.tmHeight);
DrawText(ps.hdc, szBuf, -1,(LPRECT)&sTextRect ,DT_NOPREFIX|DT_LEFT|DT_SINGLELINE);
}
}
if (iLeft < rgxPos[4]) {
RECT rc;
SetRect(&rc, rgxPos[3]+2, iVert, rgxPos[4]-2, iVert+yChar);
DrawText(ps.hdc,
lpChannel->aszPatchName,
lstrlen(lpChannel->aszPatchName),
&rc,
DT_LEFT|DT_SINGLELINE|DT_VCENTER
);
// was:
// TextOut(ps.hdc, rgxPos[3] + 2, iVert + 2, lpChannel->aszPatchName,
// lstrlen(lpChannel->aszPatchName));
}
}
GlobalUnlock(hSetup);
goto exit01;
} /* VSetupPaint */
static void PASCAL VSetupArrowScroll(
HWND hdlg,
WORD ScrollCode)
{
SETUP FAR* lpSetup;
WORD wChan;
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
wChan = lpSetup->channels[iVertPos + iCurPos].wChannel;
GlobalUnlock(hSetup);
switch (ScrollCode) {
case SB_LINEDOWN:
if (!wChan--)
wChan = 15;
break;
case SB_LINEUP:
if (++wChan > 15)
wChan = 0;
break;
}
SetDlgItemInt(hWnd, ID_SETUPEDIT, wChan + 1, FALSE);
} /* VSetupArrowScroll */
/*
* VSetupCheckMsg
*/
static void PASCAL VSetupCheckMsg(
WORD id,
WORD NotifCode)
{
SETUP FAR* lpSetup;
CHANNEL FAR* lpChannel;
if (NotifCode != BN_CLICKED)
return;
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
lpChannel = &lpSetup->channels[iVertPos + id - ID_SETUPCHECK];
if (lpChannel->wDeviceID != MMAP_ID_NOPORT) {
VSetupActiveChan( id - ID_SETUPCHECK
, &lpChannel->dFlags
, (lpChannel->dFlags & MMAP_ACTIVE)
? BTN3S_UNCHECK
: BTN3S_CHECK
);
Modify(TRUE);
}
GlobalUnlock(hSetup);
} /* VSetupCheckMsg */
BOOL FAR PASCAL _loadds SetupBox(
HWND hdlg,
UINT uMessage,
WPARAM wParam,
LPARAM lParam)
{
int iRet;
HWND hwndCheckBox;
switch (uMessage) {
case WM_INITDIALOG:
hWnd = hdlg;
iOldPos = -1;
SetFocus(GetDlgItem(hdlg, ID_SETUPEDIT));
if (!FInitSetup(hdlg))
EndDialog(hdlg, FALSE);
SetFocus(hEdit);
PlaceWindow(hWnd);
return FALSE;
case WM_COMMAND:
{ WORD id = LOWORD(wParam);
#if defined(WIN16)
WORD NotifCode = HIWORD(lParam);
HWND hwnd = LOWORD(lParam);
#else
WORD NotifCode = HIWORD(wParam);
HWND hwnd = (HWND)lParam;
#endif //WIN16
switch (id) {
case IDH_DLG_MIDI_SETUPEDIT:
goto DoHelp;
case IDOK:
case IDCANCEL:
if (NotifCode != BN_CLICKED)
break;
if (!fReadOnly && ((id == IDOK) && fModified)) {
iRet = ISetupSave(hdlg, TRUE);
if (iRet == IDCANCEL)
break;
iRet = (iRet == IDYES);
} else
iRet = FALSE;
GlobalFree(hSetup);
EndDialog(hdlg, iRet);
break;
case ID_SETUPGHOSTEDITFIRST:
/* assume the user back-tabbed before the first
* control on the current row, so jump to the
* previous row (if iCurPos > 0) or the last row
* (if iCurPos == 0)
*/
if (NotifCode != EN_SETFOCUS)
break;
if (iCurPos < 0)
/* do nothing */ ;
else
if (iCurPos > 0)
iCurPos--;
else
iCurPos = nLines - 1;
VSetupSetFocus(hdlg, PSF_REDRAW, 0);
hwndCheckBox = GetDlgItem(hdlg, ID_SETUPCHECK + iOldPos);
if (IsWindowEnabled(hwndCheckBox))
SetFocus(hwndCheckBox);
else
SetFocus(hPatchCombo);
break;
case ID_SETUPGHOSTEDITLAST:
/* assume the user forward-tabbed beyond the last
* control on the current row, so jump to the
* next row (if iCurPos < nLines - 1) or the first row
* (if iCurPos == nLines - 1)
*/
if (NotifCode != EN_SETFOCUS)
break;
if (iCurPos < 0)
/* do nothing */ ;
else
if (iCurPos < nLines - 1)
iCurPos++;
else
iCurPos = 0;
VSetupSetFocus(hdlg, PSF_REDRAW, 0);
SetFocus(hEdit);
#if defined(WIN16)
SendMessage(hEdit, EM_SETSEL, (WPARAM)NULL, MAKELPARAM(0, 32767));
#else
SendMessage(hEdit, EM_SETSEL, (WPARAM)0, (LPARAM)-1);
#endif //WIN16
break;
case ID_SETUPEDIT:
VSetupEditMsg(hdlg, NotifCode);
break;
case ID_SETUPPORTCOMBO:
case ID_SETUPPATCHCOMBO:
VSetupComboMsg(hdlg, id, NotifCode);
break;
default:
if ((id >= ID_SETUPCHECK) &&
(id < ID_SETUPCHECK + 16))
VSetupCheckMsg(id, NotifCode);
else
return FALSE;
}
break;
} /* end of WM_COMMAND */
case WM_PAINT:
VSetupPaint(hdlg);
break;
case WM_LBUTTONDOWN:
VSetupButtonDown(hdlg, (LONG)lParam);
break;
case WM_VSCROLL:
// if (HIWORD(lParam)) // in DOS this is the window ID - I don't see why we need the test
// and in NT we don't have that ID anyway
VSetupArrowScroll(hdlg, LOWORD(wParam));
// LOWORD(wParam) is scroll code. See cpArrow:
// actually the whole of wParam is.
break;
case WM_CHAR:
if ((LONG)lParam == 14)
if (iCurPos == 15)
iCurPos = 0;
else
iCurPos++;
else if ((LONG)lParam == 16)
if (!iCurPos)
iCurPos = 15;
else
iCurPos--;
else
return FALSE;
VSetupSetFocus(hdlg, 0L, 0L);
break;
case WM_CLOSE:
PostMessage(hdlg, WM_COMMAND, (WPARAM)IDOK, (LPARAM)0);
break;
default:
if (uMessage == uHelpMessage) {
DoHelp:
WinHelp(hWnd, szMidiHlp, HELP_CONTEXT,
IDH_DLG_MIDI_SETUPEDIT);
return TRUE;
}
else
return FALSE;
break;
}
return TRUE;
} /* SetupBox */
/*
* FSetupEnumPortsFunc
*
* This function receives port information for each channel in a setup,
* determines if the port is not available in the current environment, and
* if so adds it to a listbox of invalid port names.
*
* The types and parameters are weird because it is being forced into the straightjacket
* of an enumfunc.
*/
BOOL FAR PASCAL _loadds FSetupEnumPortsFunc(
LPSTR lpChannel,
LPSTR lpPort,
UINT uCase, // unused
HWND hCombo, //unused
LPSTR DeviceID)
{
SETUP FAR* lpSetup;
INT Idx;
if (DeviceID == (LPSTR)MMAP_ID_NOPORT) {
Idx = ComboLookup(hPortCombo, lpPort);
if (Idx == CB_ERR) {
SendMessage(hPortCombo, CB_ADDSTRING, (WPARAM)NULL,
(LPARAM)lpPort);
Idx = nPorts++;
}
lpSetup = (SETUP FAR*)GlobalLock(hSetup);
lpSetup->channels[(WORD)(DWORD_PTR)lpChannel - 1].wDeviceID = (WORD)Idx;
GlobalUnlock(hSetup);
}
return TRUE;
} /* FSetupEnumPortsFunc */