1200 lines
46 KiB
C
1200 lines
46 KiB
C
|
/*
|
||
|
|
|
||
|
|
* MIDI.C
|
||
|
|
*
|
||
|
|
* Copyright (C) 1990 Microsoft Corporation.
|
||
|
|
*
|
||
|
|
* The MIDI control panel applet.
|
||
|
|
*
|
||
|
|
* History:
|
||
|
|
*
|
||
|
|
* t-mikemc 10-Apr-90 Created.
|
||
|
|
*/
|
||
|
|
/* Revision history:
|
||
|
|
March 92 Ported to 16/32 common code by Laurie Griffiths (LaurieGr)
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*-=-=-=-=- Include Files -=-=-=-=-*/
|
||
|
|
|
||
|
|
#include "preclude.h"
|
||
|
|
#include <windows.h>
|
||
|
|
#include <mmsystem.h>
|
||
|
|
#if defined(WIN32)
|
||
|
|
#include <port1632.h>
|
||
|
|
#endif
|
||
|
|
#include "hack.h"
|
||
|
|
#include "midimap.h"
|
||
|
|
#include <cpl.h>
|
||
|
|
#include "cphelp.h"
|
||
|
|
#include "cparrow.h"
|
||
|
|
#include "midi.h"
|
||
|
|
|
||
|
|
/*-=- poop -=-*/
|
||
|
|
|
||
|
|
#define MM_MAXRESLEN 32 // arbitrary maximum resource string length
|
||
|
|
/*-=-=-=-=- Prototypes -=-=-=-=-*/
|
||
|
|
|
||
|
|
INT_PTR CALLBACK MainBox (HWND, UINT, WPARAM, LPARAM);
|
||
|
|
|
||
|
|
BOOL NEAR PASCAL LibMain(HINSTANCE,UINT,LPSTR);
|
||
|
|
#if defined(WIN16)
|
||
|
|
#pragma alloc_text(_INIT, LibMain)
|
||
|
|
#endif //WIN16
|
||
|
|
|
||
|
|
LRESULT FAR PASCAL _loadds CPlApplet(HWND,UINT,WPARAM,LPARAM);
|
||
|
|
#if defined(WIN16)
|
||
|
|
#pragma alloc_text(_INIT, CPlApplet)
|
||
|
|
#endif //WIN16
|
||
|
|
|
||
|
|
void NEAR PASCAL InitCPL(void);
|
||
|
|
#if defined(WIN16)
|
||
|
|
#pragma alloc_text(_INIT, InitCPL)
|
||
|
|
#endif //WIN16
|
||
|
|
|
||
|
|
|
||
|
|
/*-=-=-=-=- Global Variables -=-=-=-=-*/
|
||
|
|
|
||
|
|
/* This many global variables is a sure sign of sickness. LaurieGr */
|
||
|
|
|
||
|
|
HINSTANCE hLibInst; // Library instance handle.
|
||
|
|
HGLOBAL hKeyMap; // Midikeymap handle.
|
||
|
|
HFONT hFont; // Dialog box font handle.
|
||
|
|
HWND hWnd, // Current window handle.
|
||
|
|
hCombo, // Combo box handle.
|
||
|
|
hEdit, // Edit control handle.
|
||
|
|
hArrow; // Arrow control handle.
|
||
|
|
RECT rcBox; // Clipping/scroll rectangle.
|
||
|
|
int rgxPos[8], // horizontal line positions.
|
||
|
|
yBox, // rows of data y extent
|
||
|
|
xClient, // Window client area x pixels.
|
||
|
|
yClient, // Window client area y pixels.
|
||
|
|
iCurPos, // Current position on screen.
|
||
|
|
iVertPos, // Current vertical scroll position.
|
||
|
|
iVertMax, // Maximum veritcal scroll position.
|
||
|
|
nLines, // Number of lines of data.
|
||
|
|
yChar, // Height of character in font.
|
||
|
|
xChar, // Width of average character in font.
|
||
|
|
iMap; // Current map type being edited.
|
||
|
|
char szCurrent[MMAP_MAXNAME], // Current map name.
|
||
|
|
szCurDesc[MMAP_MAXDESC], // Current map description.
|
||
|
|
szCurSetup[MMAP_MAXNAME], // Current setup
|
||
|
|
szNone[16], // Generic global string.
|
||
|
|
szMidiCtl[64], // Window caption for midicpl.
|
||
|
|
aszSourceKey[32],
|
||
|
|
aszSourceKeyName[40],
|
||
|
|
aszPatchNumber[40],
|
||
|
|
aszSourcePatch[32],
|
||
|
|
aszSourcePatchName[40],
|
||
|
|
aszSourceMnumonic[5],
|
||
|
|
aszSourceChannel[32],
|
||
|
|
aszActive[32],
|
||
|
|
szMidiHlp[24];
|
||
|
|
BOOL fModified, // Flag; Has the map been modified?
|
||
|
|
fChanged, // Flag; Has anything ever been changed?
|
||
|
|
fNew, // Flag; Is this a new map?
|
||
|
|
fHidden; // Flag; Is the acitve line hidden?
|
||
|
|
BOOL fReadOnly;
|
||
|
|
char aszClose[16];
|
||
|
|
|
||
|
|
static char aszCaptionFormat[24];
|
||
|
|
static SZCODE szHelpMessage[] = "ShellHelp";
|
||
|
|
static SZCODE aszTempPrefix[] = "mmr"; // limited to 3 characters
|
||
|
|
static SZCODE aszFontName[] = "MS Sans Serif";
|
||
|
|
static BOOL fAppletEntered; // Disallow multiple applet instances
|
||
|
|
UINT near uHelpMessage;
|
||
|
|
DWORD near dwContext;
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
int idIcon;
|
||
|
|
int idName;
|
||
|
|
int idInfo;
|
||
|
|
BOOL bEnabled;
|
||
|
|
DWORD dwContext;
|
||
|
|
PSTR pszHelp;
|
||
|
|
} APPLET_INFO;
|
||
|
|
|
||
|
|
#define NUM_APPLETS 1
|
||
|
|
APPLET_INFO near applets[NUM_APPLETS];
|
||
|
|
|
||
|
|
|
||
|
|
/* Move the window, if necessary, to keep it on the desktop, as far as possible */
|
||
|
|
VOID PlaceWindow(HWND hwnd)
|
||
|
|
{
|
||
|
|
RECT rcWind; /* window rectangle */
|
||
|
|
HDC hdc; /* so we can get device capabilities -i.e. screen size */
|
||
|
|
int up; /* amount to move window up */
|
||
|
|
int left; /* amount to move window left */
|
||
|
|
int HorzRes; /* horizontal screen resolution in pixels */
|
||
|
|
int VertRes; /* vertical screen resolution in lines */
|
||
|
|
|
||
|
|
/* GetWindowRect(HWND_DESKTOP, &rcDesk) doesn't work! */
|
||
|
|
hdc = GetDC(hwnd);
|
||
|
|
HorzRes = GetDeviceCaps(hdc,HORZRES);
|
||
|
|
VertRes = GetDeviceCaps(hdc,VERTRES);
|
||
|
|
GetWindowRect(hwnd, &rcWind);
|
||
|
|
up = rcWind.bottom - VertRes; /* how much to move up to get onto screen... */
|
||
|
|
if (up<0) up = 0; /* don't bother to go down to get to the bottom */
|
||
|
|
if (up>rcWind.top) up = rcWind.top; /* don't ever go off the top */
|
||
|
|
|
||
|
|
left = rcWind.right - HorzRes; /* how much to move left to get all on screen... */
|
||
|
|
if (left<0) left = 0; /* don't bother to go right */
|
||
|
|
if (left>rcWind.left) left = rcWind.left; /* but don't ever go off the left */
|
||
|
|
|
||
|
|
SetWindowPos( hwnd, HWND_TOP, rcWind.left-left, rcWind.top-up, 0,0,SWP_NOSIZE);
|
||
|
|
|
||
|
|
} /* PlaceWindow */
|
||
|
|
|
||
|
|
|
||
|
|
VOID NEAR PASCAL CancelToClose(HWND hDlg)
|
||
|
|
{
|
||
|
|
if (!fReadOnly) {
|
||
|
|
char aszText[16];
|
||
|
|
|
||
|
|
GetDlgItemText(hDlg, IDOK, aszText, sizeof(aszText));
|
||
|
|
if (lstrcmp(aszText, aszClose))
|
||
|
|
SetDlgItemText(hDlg, IDOK, aszClose);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
// Windows entry point.
|
||
|
|
|
||
|
|
BOOL NEAR PASCAL LibMain(
|
||
|
|
HINSTANCE hInstance,
|
||
|
|
UINT uHeapSize,
|
||
|
|
LPSTR lpCmdLine)
|
||
|
|
{
|
||
|
|
hLibInst = hInstance;
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void NEAR PASCAL InitCPL(void)
|
||
|
|
{
|
||
|
|
if ( applets[0].idIcon == 0 )
|
||
|
|
{
|
||
|
|
LoadString(hLibInst, IDS_CLOSE, aszClose, sizeof(aszClose));
|
||
|
|
applets[0].idIcon = ID_ICON;
|
||
|
|
applets[0].idName = IDS_NAME;
|
||
|
|
applets[0].idInfo = IDS_INFO;
|
||
|
|
applets[0].bEnabled = TRUE;
|
||
|
|
applets[0].dwContext = IDH_CHILD_MIDI;
|
||
|
|
applets[0].pszHelp = szMidiHlp;
|
||
|
|
LoadString(hLibInst, IDS_NONE, szNone, sizeof(szNone));
|
||
|
|
LoadString(hLibInst, IDS_HELPFILE, szMidiHlp, sizeof(szMidiHlp));
|
||
|
|
LoadString(hLibInst, IDS_SOURCEKEY, aszSourceKey, sizeof(aszSourceKey));
|
||
|
|
LoadString(hLibInst, IDS_SOURCEKEYNAME, aszSourceKeyName, sizeof(aszSourceKeyName));
|
||
|
|
LoadString(hLibInst, IDS_PATCHNUMBER, aszPatchNumber, sizeof(aszPatchNumber));
|
||
|
|
LoadString(hLibInst, IDS_SOURCEPATCH, aszSourcePatch, sizeof(aszSourcePatch));
|
||
|
|
LoadString(hLibInst, IDS_SOURCEPATCHNAME, aszSourcePatchName, sizeof(aszSourcePatchName));
|
||
|
|
LoadString(hLibInst, IDS_SOURCEMNUMONIC, aszSourceMnumonic, sizeof(aszSourceMnumonic));
|
||
|
|
LoadString(hLibInst, IDS_SOURCECHANNEL, aszSourceChannel, sizeof(aszSourceChannel));
|
||
|
|
LoadString(hLibInst, IDS_ACTIVETITLE, aszActive, sizeof(aszActive));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef STUPID
|
||
|
|
/*
|
||
|
|
* ComboBox String Lookup, written because we
|
||
|
|
* let an intern design this applet.
|
||
|
|
*/
|
||
|
|
|
||
|
|
int FAR PASCAL ComboLookup(
|
||
|
|
HWND hCombo,
|
||
|
|
LPSTR szLookup)
|
||
|
|
{
|
||
|
|
int iEntries;
|
||
|
|
static char szBuf[29];
|
||
|
|
PSTR pstrBuf;
|
||
|
|
|
||
|
|
iEntries = (int)(LONG)SendMessage(hCombo,CB_GETCOUNT,(WPARAM)0,(LPARAM)0);
|
||
|
|
|
||
|
|
if (iEntries > CB_ERR)
|
||
|
|
{
|
||
|
|
do
|
||
|
|
{
|
||
|
|
iEntries--;
|
||
|
|
pstrBuf = szBuf;
|
||
|
|
if ((int)(LONG)SendMessage(hCombo,CB_GETLBTEXT,(WPARAM)iEntries,(LPARAM)(LPSTR)szBuf) == CB_ERR)
|
||
|
|
return CB_ERR;
|
||
|
|
|
||
|
|
if (lstrcmpi(szLookup,pstrBuf) == 0)
|
||
|
|
return iEntries;
|
||
|
|
}
|
||
|
|
while(iEntries);
|
||
|
|
}
|
||
|
|
return CB_ERR;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
// Given an error code, display an error message. If the error code
|
||
|
|
// was invalid, displays a default bogus English-language text string.
|
||
|
|
|
||
|
|
VOID FAR PASCAL VShowError(
|
||
|
|
HWND hwnd, // Window to tie the message box to.
|
||
|
|
MMAPERR mmaperr) // Error code to display text for.
|
||
|
|
{
|
||
|
|
char asz[256];
|
||
|
|
|
||
|
|
LoadString(hLibInst, IDS_MMAPERR_BASE + mmaperr, asz, sizeof(asz));
|
||
|
|
MessageBox(hwnd, asz, NULL, MB_ICONEXCLAMATION | MB_OK);
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
// Returns TRUE if the file exists and is correct, or was initialized
|
||
|
|
// properly. Returns FALSE if the user didn't want it initialized, or
|
||
|
|
// if the initialization failed.
|
||
|
|
//
|
||
|
|
// This function deals with English-language specific stuff. There is
|
||
|
|
// no good reason for this that I can see.
|
||
|
|
|
||
|
|
static BOOL FAR PASCAL FGetMapFile(
|
||
|
|
HWND hwnd)
|
||
|
|
{
|
||
|
|
char aszBuf[256];
|
||
|
|
DWORD dwVersion;
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
|
||
|
|
//
|
||
|
|
// An error return from "mapFileVersion" indicates a problem that
|
||
|
|
// I don't want to go into too specifically at this time. The
|
||
|
|
// most likely event is that the file doesn't exist. The code in
|
||
|
|
// in this function assumes that this is what happened. If it
|
||
|
|
// was another problem, hopefully initializing the file will
|
||
|
|
// solve it. This can be looked into later.
|
||
|
|
//
|
||
|
|
dwVersion = mapFileVersion();
|
||
|
|
if ((HIWORD(dwVersion) == MMAPERR_SUCCESS) &&
|
||
|
|
(LOWORD(dwVersion) == 1))
|
||
|
|
return TRUE; // File was fine (opened + was right version).
|
||
|
|
//
|
||
|
|
// This code is executing if there was a problem opening the
|
||
|
|
// file. Hopefully this problem involved non-existence.
|
||
|
|
//
|
||
|
|
LoadString(hLibInst, IDS_CREATE_QUESTION, aszBuf, sizeof(aszBuf));
|
||
|
|
if (MessageBox(hwnd, aszBuf, szMidiCtl,
|
||
|
|
MB_YESNO | MB_ICONHAND) == IDYES)
|
||
|
|
if ((mmaperr = mapInitMapFile()) == MMAPERR_SUCCESS)
|
||
|
|
return TRUE;
|
||
|
|
else
|
||
|
|
VShowError(hwnd, mmaperr);
|
||
|
|
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
// Control panel entry point.
|
||
|
|
|
||
|
|
LRESULT FAR PASCAL _loadds CPlApplet(
|
||
|
|
HWND hCPlWnd,
|
||
|
|
UINT uMessage,
|
||
|
|
WPARAM lParam1,
|
||
|
|
LPARAM lParam2)
|
||
|
|
{
|
||
|
|
LPNEWCPLINFO lpCPlInfo;
|
||
|
|
BOOL fSuccess = TRUE;
|
||
|
|
BOOL fBackup;
|
||
|
|
LPSTR lpstrBakPath;
|
||
|
|
LPSTR lpstrCfgPath;
|
||
|
|
int iApplet;
|
||
|
|
|
||
|
|
switch (uMessage) {
|
||
|
|
case CPL_INIT :
|
||
|
|
InitCPL();
|
||
|
|
uHelpMessage = RegisterWindowMessage(szHelpMessage);
|
||
|
|
hWnd = hCPlWnd;
|
||
|
|
return (LRESULT)TRUE;
|
||
|
|
case CPL_GETCOUNT :
|
||
|
|
return (LRESULT)NUM_APPLETS;
|
||
|
|
case CPL_NEWINQUIRE :
|
||
|
|
lpCPlInfo = (LPNEWCPLINFO)lParam2;
|
||
|
|
iApplet = (int)(LONG)lParam1;
|
||
|
|
lpCPlInfo->hIcon = LoadIcon(hLibInst,
|
||
|
|
MAKEINTRESOURCE(applets[iApplet].idIcon));
|
||
|
|
LoadString(hLibInst, applets[iApplet].idName, lpCPlInfo->szName, sizeof(lpCPlInfo->szName));
|
||
|
|
LoadString(hLibInst, applets[iApplet].idInfo, lpCPlInfo->szInfo, sizeof(lpCPlInfo->szInfo));
|
||
|
|
lpCPlInfo->dwSize = sizeof(NEWCPLINFO);
|
||
|
|
lpCPlInfo->lData = (LONG)iApplet;
|
||
|
|
lpCPlInfo->dwHelpContext = applets[iApplet].dwContext;
|
||
|
|
lstrcpy(lpCPlInfo->szHelpFile, applets[iApplet].pszHelp);
|
||
|
|
return (LRESULT)TRUE;
|
||
|
|
case CPL_DBLCLK :
|
||
|
|
if (fAppletEntered)
|
||
|
|
break;
|
||
|
|
//
|
||
|
|
// We can enter into lots of bizarre states:
|
||
|
|
|
||
|
|
// We become READ-ONLY IF:
|
||
|
|
// We cannot lock the mapper.
|
||
|
|
// There is a disk or memory exception backing up the
|
||
|
|
// existing MIDIMAP.CFG file or the MIDIMAP.CFG
|
||
|
|
// is READ ONLY.
|
||
|
|
// We DO NOT use a backup IF:
|
||
|
|
// The mapper is locked.
|
||
|
|
// No MIDIMAP.CFG file is found.
|
||
|
|
// There is an exception dealing with backing up the
|
||
|
|
// the existing MIDIMAP.CFG file.
|
||
|
|
//
|
||
|
|
|
||
|
|
lpstrCfgPath = GlobalLock(GlobalAlloc(GHND,MAXPATHLEN));
|
||
|
|
if (lpstrCfgPath == NULL)
|
||
|
|
{
|
||
|
|
VShowError(hCPlWnd,IDS_MMAPERR_MEMORY);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
lpstrBakPath = GlobalLock(GlobalAlloc(GHND,MAXPATHLEN));
|
||
|
|
if (lpstrBakPath == NULL)
|
||
|
|
{
|
||
|
|
VShowError(hCPlWnd,IDS_MMAPERR_MEMORY);
|
||
|
|
goto exitfree;
|
||
|
|
}
|
||
|
|
|
||
|
|
fAppletEntered = TRUE;
|
||
|
|
if (!mapLock()) // Attempt to lock the mapper
|
||
|
|
{
|
||
|
|
char szApp[32],
|
||
|
|
szMessage[256];
|
||
|
|
|
||
|
|
LoadString(hLibInst, IDS_READONLYMODE, szMessage, sizeof(szMessage));
|
||
|
|
LoadString(hLibInst, IDS_TITLE, szApp, sizeof(szApp));
|
||
|
|
|
||
|
|
MessageBox(hCPlWnd, szMessage, szApp,
|
||
|
|
MB_ICONINFORMATION | MB_OK);
|
||
|
|
|
||
|
|
fBackup = FALSE; // No backups
|
||
|
|
fReadOnly = TRUE; // Read Only Mode
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
fBackup = TRUE; // Try to do a backup
|
||
|
|
fReadOnly = FALSE; // Not in READ ONLY mode
|
||
|
|
}
|
||
|
|
|
||
|
|
if (fBackup)
|
||
|
|
{
|
||
|
|
char szMapCfg[MMAP_MAXCFGNAME];
|
||
|
|
|
||
|
|
LoadString(hLibInst,IDS_MIDIMAPCFG,szMapCfg,MMAP_MAXCFGNAME);
|
||
|
|
GetSystemDirectory(lpstrCfgPath,MAXPATHLEN - sizeof(szMapCfg));
|
||
|
|
lstrcat(lpstrCfgPath,szMapCfg);
|
||
|
|
|
||
|
|
MGetTempFileName(0, aszTempPrefix,0,lpstrBakPath);
|
||
|
|
|
||
|
|
if (DupMapCfg(lpstrCfgPath,lpstrBakPath)) {
|
||
|
|
mapConnect(lpstrBakPath);
|
||
|
|
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// No Backups.
|
||
|
|
fBackup = FALSE;
|
||
|
|
// if fReadOnly == TRUE, the exception
|
||
|
|
// has forced us into READ-ONLY mode
|
||
|
|
// else
|
||
|
|
// we didn't have a MIDIMAP.CFG file
|
||
|
|
// and we'll read/write directly.
|
||
|
|
if (fReadOnly)
|
||
|
|
mapUnlock();
|
||
|
|
|
||
|
|
DosDelete(lpstrBakPath); // GetTempFileName Creates a File of size 0
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!FGetMapFile(hCPlWnd))
|
||
|
|
{
|
||
|
|
fSuccess = FALSE;
|
||
|
|
goto appexit;
|
||
|
|
}
|
||
|
|
// !!! Never unregisters the class, so this will come back
|
||
|
|
// FALSE on subsequent startups. This is of course bogus.
|
||
|
|
(VOID)RegisterArrowClass(hLibInst);
|
||
|
|
#if 0
|
||
|
|
if ((hFont = CreateFont(8, NULL, NULL, NULL,
|
||
|
|
FW_NORMAL, NULL, NULL, NULL,
|
||
|
|
ANSI_CHARSET, OUT_DEFAULT_PRECIS,
|
||
|
|
CLIP_DEFAULT_PRECIS, PROOF_QUALITY,
|
||
|
|
VARIABLE_PITCH | FF_DONTCARE, aszFontName)) == NULL)
|
||
|
|
goto appexit;
|
||
|
|
#else
|
||
|
|
{
|
||
|
|
LOGFONT lf;
|
||
|
|
|
||
|
|
SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(lf), (LPVOID)&lf, 0);
|
||
|
|
if (!(hFont = CreateFontIndirect(&lf)))
|
||
|
|
goto appexit;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
fSuccess = (BOOL)DialogBox(hLibInst, MAKEINTRESOURCE(ID_MAINBOX),
|
||
|
|
hCPlWnd, MainBox);
|
||
|
|
UnregisterArrowClass(hLibInst);
|
||
|
|
DeleteObject(hFont);
|
||
|
|
|
||
|
|
appexit:
|
||
|
|
if (fBackup)
|
||
|
|
{
|
||
|
|
MDOUT("Disconnecting from mapper");
|
||
|
|
mapDisconnect();
|
||
|
|
if (fSuccess)
|
||
|
|
{
|
||
|
|
MDOUT("Updating Backup");
|
||
|
|
UpdateMapCfg(lpstrCfgPath,lpstrBakPath);
|
||
|
|
}
|
||
|
|
mapUnlock();
|
||
|
|
DosDelete(lpstrBakPath);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
if (!fReadOnly)
|
||
|
|
{
|
||
|
|
mapUnlock();
|
||
|
|
if (!fSuccess)
|
||
|
|
DosDelete(lpstrCfgPath);
|
||
|
|
}
|
||
|
|
|
||
|
|
fAppletEntered = FALSE;
|
||
|
|
GlobalFree((HGLOBAL)lpstrBakPath);
|
||
|
|
exitfree: GlobalFree((HGLOBAL)lpstrCfgPath);
|
||
|
|
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return (LRESULT)0;
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
// This will return either "MMAPERR_SUCCESS" if everything is fine,
|
||
|
|
// or will return "MMAPERR_INVALIDPORT" if the setup references a
|
||
|
|
// bogus port. These are both expected conditions.
|
||
|
|
//
|
||
|
|
// Unexpected conditions can also happen, which are returned.
|
||
|
|
|
||
|
|
static MMAPERR NEAR PASCAL MmaperrInvalidPortCheck(
|
||
|
|
LPSTR lszName) // Name of current setup.
|
||
|
|
{
|
||
|
|
LPMIDIMAP lpMap;
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
DWORD dwSize;
|
||
|
|
HGLOBAL hMidiMap;
|
||
|
|
|
||
|
|
if ((dwSize = mapGetSize(MMAP_SETUP, lszName)) < MMAPERR_MAXERROR)
|
||
|
|
return (MMAPERR)dwSize;
|
||
|
|
if ((hMidiMap = GlobalAlloc(GHND, dwSize)) == NULL)
|
||
|
|
return MMAPERR_MEMORY;
|
||
|
|
lpMap = (LPMIDIMAP)GlobalLock(hMidiMap);
|
||
|
|
mmaperr = mapRead(MMAP_SETUP, lszName, (LPVOID)lpMap);
|
||
|
|
GlobalUnlock(hMidiMap);
|
||
|
|
GlobalFree(hMidiMap);
|
||
|
|
return mmaperr;
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
// Converts a "MMAP_" into a "IDS_", i.e. converts "MMAP_SETUP" into
|
||
|
|
// "IDS_SETUP", which can be used to get the word "Setup" out of the
|
||
|
|
// "midi.rc" file.
|
||
|
|
|
||
|
|
static int PASCAL IdsGetMapNameId( int iMap)
|
||
|
|
{
|
||
|
|
if (iMap == MMAP_SETUP)
|
||
|
|
return IDS_SETUP;
|
||
|
|
if (iMap == MMAP_PATCH)
|
||
|
|
return IDS_PATCH;
|
||
|
|
return IDS_KEY;
|
||
|
|
}
|
||
|
|
|
||
|
|
// - - - - - - - - -
|
||
|
|
|
||
|
|
/*
|
||
|
|
* DELETEMAP
|
||
|
|
*
|
||
|
|
* This function returns TRUE if it is OK to delete whatever map
|
||
|
|
* exists in szCurrent.
|
||
|
|
*/
|
||
|
|
|
||
|
|
static BOOL NEAR PASCAL FConfirmDeleteMap(
|
||
|
|
HWND hwnd)
|
||
|
|
{
|
||
|
|
char szSetup[MMAP_MAXNAME],
|
||
|
|
szSrc[MM_MAXRESLEN],
|
||
|
|
szUsedBy[MM_MAXRESLEN],
|
||
|
|
szDel[50],
|
||
|
|
szCap[50],
|
||
|
|
szRsrc[256],
|
||
|
|
szBuf[256];
|
||
|
|
DWORD dwRet;
|
||
|
|
UINT uSrcID;
|
||
|
|
UINT uUsage;
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
|
||
|
|
|
||
|
|
uSrcID = IdsGetMapNameId(iMap);
|
||
|
|
LoadString(hLibInst, uSrcID, szSrc, sizeof(szSrc));
|
||
|
|
LoadString(hLibInst, IDS_DELETE, szDel, sizeof(szDel));
|
||
|
|
wsprintf(szCap, szDel, (LPSTR)szSrc);
|
||
|
|
// AnsiUpperBuff(szSrc, 1); // Upper-case first character.
|
||
|
|
switch (iMap) {
|
||
|
|
case MMAP_SETUP:
|
||
|
|
if ((mmaperr = mapGetCurrentSetup(szSetup,
|
||
|
|
MMAP_MAXNAME)) != MMAPERR_SUCCESS) {
|
||
|
|
VShowError(hwnd, mmaperr);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
if (lstrcmpi(szSetup, szCurrent))
|
||
|
|
break;
|
||
|
|
LoadString(hLibInst, IDS_NODELISCURRENT, szRsrc, sizeof(szRsrc));
|
||
|
|
wsprintf(szBuf, szRsrc, (LPSTR)szCurrent);
|
||
|
|
MessageBox(hwnd, szBuf, szCap,
|
||
|
|
MB_ICONINFORMATION | MB_OK);
|
||
|
|
return FALSE;
|
||
|
|
case MMAP_PATCH:
|
||
|
|
case MMAP_KEY:
|
||
|
|
dwRet = mapGetUsageCount(iMap, szCurrent);
|
||
|
|
if (LOWORD(dwRet) != MMAPERR_SUCCESS) {
|
||
|
|
VShowError(hwnd, LOWORD(dwRet));
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
if (!(uUsage = HIWORD(dwRet)))
|
||
|
|
break;
|
||
|
|
uSrcID--; // Patch->Setup, Key->Patch
|
||
|
|
if (uUsage > 1) // Make a singular a plural. This
|
||
|
|
uSrcID += 3; // "3" is commented in "midi.h".
|
||
|
|
LoadString(hLibInst, uSrcID, szUsedBy, sizeof(szUsedBy));
|
||
|
|
// AnsiLowerBuff(szUsedBy, 1); // Lower-case first character.
|
||
|
|
LoadString(hLibInst, IDS_NODELISREFERENCED, szRsrc, sizeof(szRsrc));
|
||
|
|
wsprintf(szBuf, szRsrc, (LPSTR)szSrc, (LPSTR)szCurrent,
|
||
|
|
uUsage, (LPSTR)szUsedBy);
|
||
|
|
MessageBox (hwnd, szBuf, szCap,
|
||
|
|
MB_ICONINFORMATION | MB_OK);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
LoadString(hLibInst, IDS_VERIFYDELETE, szRsrc, sizeof(szRsrc));
|
||
|
|
wsprintf(szBuf, szRsrc, (LPSTR)szSrc, (LPSTR)szCurrent);
|
||
|
|
return (IDYES == MessageBox (hwnd, szBuf, szCap,
|
||
|
|
MB_ICONEXCLAMATION | MB_YESNO));
|
||
|
|
}
|
||
|
|
|
||
|
|
static VOID NEAR PASCAL VFreeItemData(
|
||
|
|
HWND hdlg,
|
||
|
|
int idCtrl)
|
||
|
|
{
|
||
|
|
UINT uCount;
|
||
|
|
|
||
|
|
uCount = (UINT)SendDlgItemMessage(hdlg, idCtrl, CB_GETCOUNT, (WPARAM)NULL, (LPARAM)0);
|
||
|
|
for (; uCount--; ) {
|
||
|
|
HGLOBAL hDescription;
|
||
|
|
|
||
|
|
if ((hDescription = (HGLOBAL)(DWORD)SendDlgItemMessage(hdlg, idCtrl,
|
||
|
|
CB_GETITEMDATA, (WPARAM)uCount, (LPARAM)0)) != NULL)
|
||
|
|
GlobalFree(hDescription);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static VOID NEAR PASCAL GetMBData(
|
||
|
|
UINT uFlag,
|
||
|
|
LPMBDATA lpmbData)
|
||
|
|
{
|
||
|
|
switch (uFlag) {
|
||
|
|
case MMAP_SETUP:
|
||
|
|
lpmbData->lpfnBox = SetupBox;
|
||
|
|
lpmbData->idBox = DLG_SETUPEDIT;
|
||
|
|
break;
|
||
|
|
case MMAP_PATCH:
|
||
|
|
lpmbData->lpfnBox = PatchBox;
|
||
|
|
lpmbData->idBox = DLG_PATCHEDIT;
|
||
|
|
break;
|
||
|
|
case MMAP_KEY:
|
||
|
|
lpmbData->lpfnBox = KeyBox;
|
||
|
|
lpmbData->idBox = DLG_KEYEDIT;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
lpmbData->lpfnBox = 0L;
|
||
|
|
lpmbData->idBox = 0;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
} /* GetMBData */
|
||
|
|
|
||
|
|
static BOOL PASCAL FEditMap(
|
||
|
|
HWND hwnd)
|
||
|
|
{
|
||
|
|
HWND hTmpWnd;
|
||
|
|
MBDATA mbData;
|
||
|
|
DWORD dwRet;
|
||
|
|
int iRet;
|
||
|
|
BOOL fInSetup;
|
||
|
|
char szSetup[MMAP_MAXNAME];
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
|
||
|
|
if ((mmaperr = mapGetCurrentSetup(szSetup,
|
||
|
|
MMAP_MAXNAME)) != MMAPERR_SUCCESS) {
|
||
|
|
VShowError(hwnd, mmaperr);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
switch (iMap) {
|
||
|
|
case MMAP_SETUP :
|
||
|
|
fInSetup = (BOOL)!lstrcmpi(szCurrent, szSetup);
|
||
|
|
break;
|
||
|
|
case MMAP_PATCH :
|
||
|
|
dwRet = mapPatchMapInSetup(szCurrent, szSetup);
|
||
|
|
if (LOWORD(dwRet) != MMAPERR_SUCCESS)
|
||
|
|
return FALSE;
|
||
|
|
fInSetup = (BOOL)HIWORD(dwRet);
|
||
|
|
break;
|
||
|
|
case MMAP_KEY :
|
||
|
|
dwRet = mapKeyMapInSetup (szCurrent, szSetup);
|
||
|
|
if (LOWORD(dwRet) != MMAPERR_SUCCESS)
|
||
|
|
return FALSE;
|
||
|
|
fInSetup = (BOOL)HIWORD(dwRet);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
hTmpWnd = hWnd; // "hWnd", not "hwnd".
|
||
|
|
GetMBData(iMap, &mbData);
|
||
|
|
iRet = (int)DialogBox(hLibInst, MAKEINTRESOURCE(mbData.idBox),
|
||
|
|
hWnd, mbData.lpfnBox);
|
||
|
|
hWnd = hTmpWnd;
|
||
|
|
return iRet;
|
||
|
|
} /* FEditMap */
|
||
|
|
|
||
|
|
static VOID NEAR PASCAL EnableMain(
|
||
|
|
BOOL fEnable)
|
||
|
|
{
|
||
|
|
char aszNoEntries[48];
|
||
|
|
|
||
|
|
EnableWindow(hCombo, fEnable);
|
||
|
|
if (fReadOnly)
|
||
|
|
{
|
||
|
|
EnableWindow(GetDlgItem (hWnd, ID_MAINDELETE), FALSE);
|
||
|
|
EnableWindow(GetDlgItem (hWnd,ID_MAINNEW),FALSE);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
EnableWindow(GetDlgItem (hWnd, ID_MAINDELETE), fEnable);
|
||
|
|
EnableWindow(GetDlgItem (hWnd, ID_MAINEDIT), fEnable);
|
||
|
|
EnableWindow(GetDlgItem (hWnd, ID_MAINDESC), fEnable);
|
||
|
|
EnableWindow(GetDlgItem (hWnd, ID_MAINNAME), fEnable);
|
||
|
|
if (!fEnable) {
|
||
|
|
LoadString(hLibInst, IDS_NOENTRIES, aszNoEntries, sizeof(aszNoEntries));
|
||
|
|
SetDlgItemText(hWnd, ID_MAINDESC, aszNoEntries);
|
||
|
|
}
|
||
|
|
|
||
|
|
} /* EnableMain */
|
||
|
|
|
||
|
|
static VOID NEAR PASCAL ShowMaps (int nMap)
|
||
|
|
{
|
||
|
|
if (iMap == nMap)
|
||
|
|
return;
|
||
|
|
iMap = nMap;
|
||
|
|
SendMessage(hWnd, WM_MY_INITDIALOG, (WPARAM)NULL, (LPARAM)0);
|
||
|
|
} /* ShowMaps */
|
||
|
|
|
||
|
|
INT_PTR CALLBACK MainBox(
|
||
|
|
HWND hdlg,
|
||
|
|
UINT uMessage,
|
||
|
|
WPARAM wParam,
|
||
|
|
LPARAM lParam)
|
||
|
|
{
|
||
|
|
static BOOL fChange, // has edittext changed?
|
||
|
|
fPatchEnum, // have patches been enum'd?
|
||
|
|
fKeyEnum, // have keys been enum'd?
|
||
|
|
fEnabled;
|
||
|
|
static UINT uDeleted; // which maps types deleted
|
||
|
|
static char aszInitialSetup[MMAP_MAXNAME]; // initial setup name
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
HGLOBAL hDesc;
|
||
|
|
LPSTR lpDesc;
|
||
|
|
UINT uIdx;
|
||
|
|
int idCurCombo;
|
||
|
|
BOOL fEnum;
|
||
|
|
// char szBuf[128];
|
||
|
|
char szTmpDesc[MMAP_MAXDESC];
|
||
|
|
|
||
|
|
switch (uMessage) {
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
// get the current setup name and store in
|
||
|
|
// static aszInitialSetup
|
||
|
|
fChanged = FALSE;
|
||
|
|
if ((mmaperr = mapGetCurrentSetup(aszInitialSetup,
|
||
|
|
MMAP_MAXNAME)) != MMAPERR_SUCCESS) {
|
||
|
|
exit00: VShowError(hdlg, mmaperr);
|
||
|
|
/*exit01:*/ EndDialog (hdlg, FALSE);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
lstrcpy(szCurSetup, aszInitialSetup);
|
||
|
|
// Load caption string and set the window text
|
||
|
|
LoadString(hLibInst, IDS_TITLE, szMidiCtl, sizeof(szMidiCtl));
|
||
|
|
hWnd = hdlg;
|
||
|
|
SetWindowText(hdlg, szMidiCtl);
|
||
|
|
/*!!
|
||
|
|
// check for invalid devices
|
||
|
|
if ((mmaperr = MmaperrInvalidPortCheck(
|
||
|
|
aszInitialSetup)) == MMAPERR_INVALIDPORT) {
|
||
|
|
if (!InvalidPortMsgBox(hdlg))
|
||
|
|
goto exit01;
|
||
|
|
}
|
||
|
|
else if (mmaperr != MMAPERR_SUCCESS)
|
||
|
|
goto exit00;
|
||
|
|
!!*/
|
||
|
|
// hide the patch and key comboboxes
|
||
|
|
ShowWindow(GetDlgItem(hdlg, ID_MAINPATCHCOMBO), SW_HIDE);
|
||
|
|
ShowWindow(GetDlgItem(hdlg, ID_MAINKEYCOMBO), SW_HIDE);
|
||
|
|
// enumerate setups into setup combo box
|
||
|
|
mmaperr = mapEnumerate( MMAP_SETUP
|
||
|
|
, EnumFunc
|
||
|
|
, MMENUM_INTOCOMBO
|
||
|
|
, GetDlgItem( hdlg, ID_MAINSETUPCOMBO)
|
||
|
|
, NULL
|
||
|
|
);
|
||
|
|
if ( mmaperr != MMAPERR_SUCCESS )
|
||
|
|
goto exit00;
|
||
|
|
// set up the auto-radiobuttons
|
||
|
|
CheckRadioButton(hdlg, ID_MAINFIRSTRADIO,
|
||
|
|
ID_MAINLASTRADIO, ID_MAINSETUP);
|
||
|
|
// intialize some variables
|
||
|
|
*szCurrent = 0;
|
||
|
|
hCombo = NULL;
|
||
|
|
iMap = MMAP_SETUP;
|
||
|
|
fEnabled = FALSE; // Fix for bug #2039. 13-Feb-90, BLM.
|
||
|
|
// It used to set the variable TRUE.
|
||
|
|
fChange = FALSE;
|
||
|
|
fPatchEnum = FALSE;
|
||
|
|
fKeyEnum = FALSE;
|
||
|
|
uDeleted = 0;
|
||
|
|
// fall through
|
||
|
|
case WM_MY_INITDIALOG:
|
||
|
|
fEnum = FALSE;
|
||
|
|
switch (iMap) {
|
||
|
|
case MMAP_SETUP:
|
||
|
|
idCurCombo = ID_MAINSETUPCOMBO;
|
||
|
|
uIdx = ComboLookup(GetDlgItem(hdlg,idCurCombo),(LPSTR)szCurSetup);//-jyg
|
||
|
|
break;
|
||
|
|
case MMAP_PATCH:
|
||
|
|
idCurCombo = ID_MAINPATCHCOMBO;
|
||
|
|
if (!fPatchEnum) {
|
||
|
|
fEnum = TRUE;
|
||
|
|
fPatchEnum = TRUE;
|
||
|
|
}
|
||
|
|
uIdx = 0;
|
||
|
|
break;
|
||
|
|
case MMAP_KEY:
|
||
|
|
idCurCombo = ID_MAINKEYCOMBO;
|
||
|
|
if (!fKeyEnum) {
|
||
|
|
fEnum = TRUE;
|
||
|
|
fKeyEnum = TRUE;
|
||
|
|
}
|
||
|
|
uIdx = 0;
|
||
|
|
break;
|
||
|
|
default:uIdx = 0;
|
||
|
|
idCurCombo = 0; /* kill compiler warning about use before set */
|
||
|
|
}
|
||
|
|
// hide the old combobox, if any
|
||
|
|
if (hCombo != NULL)
|
||
|
|
ShowWindow (hCombo, SW_HIDE);
|
||
|
|
// get the new combobox handle
|
||
|
|
hCombo = GetDlgItem (hdlg, idCurCombo);
|
||
|
|
// show the new combobox
|
||
|
|
ShowWindow(hCombo, SW_SHOW);
|
||
|
|
// if not done already, enumerate maps into the box
|
||
|
|
if (fEnum)
|
||
|
|
{ mmaperr = mapEnumerate(iMap, EnumFunc, MMENUM_INTOCOMBO, hCombo, NULL);
|
||
|
|
if (mmaperr != MMAPERR_SUCCESS)
|
||
|
|
goto exit00;
|
||
|
|
}
|
||
|
|
// set the current selection
|
||
|
|
uIdx = (UINT)SendMessage(hCombo, CB_SETCURSEL, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
// if no maps of that type, disable all necessary controls
|
||
|
|
if (uIdx == CB_ERR) {
|
||
|
|
*szCurrent = 0;
|
||
|
|
EnableMain(fEnabled = FALSE);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
// if we were disabled, enable us
|
||
|
|
if (!fEnabled)
|
||
|
|
EnableMain(fEnabled = TRUE);
|
||
|
|
// fill the edit control with description
|
||
|
|
#if defined(WIN16)
|
||
|
|
SendMessage(hdlg, WM_COMMAND, (WPARAM)ID_MAINCOMBO,
|
||
|
|
MAKELPARAM(hCombo, CBN_SELCHANGE));
|
||
|
|
#else
|
||
|
|
SendMessage( hdlg
|
||
|
|
, WM_COMMAND
|
||
|
|
, (WPARAM)MAKELONG(ID_MAINCOMBO, CBN_SELCHANGE)
|
||
|
|
, (LPARAM)hCombo
|
||
|
|
);
|
||
|
|
|
||
|
|
#endif // WIN16
|
||
|
|
break;
|
||
|
|
case WM_COMMAND:
|
||
|
|
{ WORD wNotifCode;
|
||
|
|
#if defined(WIN16)
|
||
|
|
wNotifCode = HIWORD(lParam);
|
||
|
|
#else
|
||
|
|
wNotifCode = HIWORD(wParam);
|
||
|
|
#endif //WIN16
|
||
|
|
|
||
|
|
switch (LOWORD(wParam)) {
|
||
|
|
|
||
|
|
case IDH_CHILD_MIDI:
|
||
|
|
goto DoHelp;
|
||
|
|
|
||
|
|
case IDOK:
|
||
|
|
if (fReadOnly || !fChanged)
|
||
|
|
{
|
||
|
|
PostMessage(hdlg,WM_COMMAND,(WPARAM)IDCANCEL,(LPARAM)0);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
// check for invalid ports
|
||
|
|
if ((mmaperr = MmaperrInvalidPortCheck(
|
||
|
|
szCurSetup)) == MMAPERR_INVALIDPORT) {
|
||
|
|
if (!InvalidPortMsgBox(hdlg))
|
||
|
|
break;
|
||
|
|
} else if (mmaperr != MMAPERR_SUCCESS)
|
||
|
|
goto exit00;
|
||
|
|
if (lstrcmpi(szCurSetup, aszInitialSetup))
|
||
|
|
{
|
||
|
|
mmaperr = mapSetCurrentSetup(
|
||
|
|
szCurSetup);
|
||
|
|
if (mmaperr !=
|
||
|
|
MMAPERR_SUCCESS)
|
||
|
|
goto exit00;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// this is where any deleted maps actually get the axe
|
||
|
|
//
|
||
|
|
// I'm going to leave this as is until I figure
|
||
|
|
// out how to deal with any errors that happen.
|
||
|
|
// brucemo
|
||
|
|
//
|
||
|
|
#if 0
|
||
|
|
if (uDeleted & MMAP_SETUP)
|
||
|
|
mapEnumerate( iMap = MMAP_SETUP
|
||
|
|
, EnumFunc
|
||
|
|
, MMENUM_DELETE
|
||
|
|
, GetDlgItem(hdlg,ID_MAINSETUPCOMBO)
|
||
|
|
, NULL
|
||
|
|
);
|
||
|
|
if (uDeleted & MMAP_PATCH)
|
||
|
|
mapEnumerate( iMap = MMAP_PATCH
|
||
|
|
, EnumFunc
|
||
|
|
, MMENUM_DELETE
|
||
|
|
, GetDlgItem(hdlg,ID_MAINPATCHCOMBO)
|
||
|
|
, NULL
|
||
|
|
);
|
||
|
|
if (uDeleted & MMAP_KEY)
|
||
|
|
mapEnumerate( iMap = MMAP_KEY
|
||
|
|
, EnumFunc,
|
||
|
|
, MMENUM_DELETE
|
||
|
|
, GetDlgItem (hdlg,ID_MAINKEYCOMBO)
|
||
|
|
, NULL
|
||
|
|
);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
case IDCANCEL:
|
||
|
|
// clean up and go home
|
||
|
|
VFreeItemData(hdlg, ID_MAINSETUPCOMBO);
|
||
|
|
if (fPatchEnum)
|
||
|
|
VFreeItemData(hdlg, ID_MAINPATCHCOMBO);
|
||
|
|
if (fKeyEnum)
|
||
|
|
VFreeItemData(hdlg, ID_MAINKEYCOMBO);
|
||
|
|
if (LOWORD(wParam) == IDOK) // eh?
|
||
|
|
EndDialog(hdlg,TRUE);
|
||
|
|
else
|
||
|
|
EndDialog(hdlg,FALSE);
|
||
|
|
break;
|
||
|
|
case ID_MAINDELETE:
|
||
|
|
if (!FConfirmDeleteMap(hdlg))
|
||
|
|
break;
|
||
|
|
CancelToClose(hdlg);
|
||
|
|
// set a bit in the deleted word
|
||
|
|
uDeleted |= iMap;
|
||
|
|
// get the current selections index
|
||
|
|
uIdx = (UINT)SendMessage(hCombo,
|
||
|
|
CB_GETCURSEL, (WPARAM)0, (LPARAM)0);
|
||
|
|
// get the handle to selections description
|
||
|
|
if ((hDesc = (HGLOBAL)(DWORD)SendMessage(hCombo,
|
||
|
|
CB_GETITEMDATA, (WPARAM)uIdx, (LPARAM)0)) != NULL)
|
||
|
|
GlobalFree(hDesc);
|
||
|
|
// delete the entry from the combobox
|
||
|
|
SendMessage(hCombo, CB_DELETESTRING, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
|
||
|
|
// -jyg-
|
||
|
|
|
||
|
|
mapEnumerate(iMap, EnumFunc, MMENUM_DELETE, hCombo, NULL);
|
||
|
|
|
||
|
|
// reset to initial setup or first entry
|
||
|
|
if (iMap == MMAP_SETUP)
|
||
|
|
{
|
||
|
|
uIdx = ComboLookup(hCombo,(LPSTR)aszInitialSetup); //-jyg
|
||
|
|
lstrcpy(szCurSetup,aszInitialSetup); // reset current string to initial setup
|
||
|
|
}
|
||
|
|
else
|
||
|
|
uIdx = 0;
|
||
|
|
|
||
|
|
uIdx = (UINT)SendMessage(hCombo, CB_SETCURSEL, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
// if deleted last one then disable window,
|
||
|
|
// otherwise update the edit control
|
||
|
|
if (uIdx == CB_ERR) {
|
||
|
|
EnableMain(fEnabled = FALSE);
|
||
|
|
SendMessage(hdlg, DM_SETDEFID, (WPARAM)ID_MAINNEW, (LPARAM)0);
|
||
|
|
SetFocus(GetDlgItem(hdlg, ID_MAINNEW));
|
||
|
|
|
||
|
|
} else
|
||
|
|
#if defined(WIN16)
|
||
|
|
SendMessage(hdlg, WM_COMMAND,
|
||
|
|
(WPARAM)ID_MAINCOMBO, MAKELPARAM(hCombo,
|
||
|
|
CBN_SELCHANGE));
|
||
|
|
#else
|
||
|
|
SendMessage( hdlg
|
||
|
|
, WM_COMMAND
|
||
|
|
, (WPARAM)MAKELONG(ID_MAINCOMBO, CBN_SELCHANGE)
|
||
|
|
, (LPARAM)hCombo
|
||
|
|
);
|
||
|
|
#endif //WIN16
|
||
|
|
break;
|
||
|
|
case ID_MAINNEW:
|
||
|
|
// if they don't specify a new map get outta here
|
||
|
|
fNew = TRUE;
|
||
|
|
if (!DialogBox(hLibInst, MAKEINTRESOURCE(ID_PROPBOX),
|
||
|
|
hdlg, (DLGPROC)PropBox)) {
|
||
|
|
fNew = FALSE;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
// if they don't want to save new map, restore
|
||
|
|
// name and description and get outta here
|
||
|
|
if (!FEditMap(hdlg)) {
|
||
|
|
fNew = FALSE;
|
||
|
|
GetWindowText(hCombo, (LPSTR)szCurrent,
|
||
|
|
MMAP_MAXNAME);
|
||
|
|
GetDlgItemText(hdlg, ID_MAINDESC, szCurDesc,
|
||
|
|
MMAP_MAXDESC);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
uIdx = ComboLookup(hCombo,(LPSTR)szCurrent);//-jyg
|
||
|
|
if (uIdx != CB_ERR) {
|
||
|
|
char aszName[MMAP_MAXNAME];
|
||
|
|
SendMessage(hCombo, CB_GETLBTEXT, (WPARAM)uIdx, (LPARAM)(LPSTR)aszName);
|
||
|
|
if (!lstrcmpi(aszName, szCurrent)) {
|
||
|
|
hDesc = (HGLOBAL)(DWORD)SendMessage(hCombo, CB_GETITEMDATA, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
if (hDesc != NULL)
|
||
|
|
GlobalFree(hDesc);
|
||
|
|
//break;
|
||
|
|
} else
|
||
|
|
uIdx = (UINT)CB_ERR;
|
||
|
|
}
|
||
|
|
if (uIdx == CB_ERR)
|
||
|
|
uIdx = (UINT)SendMessage(hCombo, CB_ADDSTRING,
|
||
|
|
(WPARAM)0, (LPARAM)(LPCSTR)szCurrent);
|
||
|
|
// make the new map the current one
|
||
|
|
SendMessage(hCombo, CB_SETCURSEL, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
if (IsDlgButtonChecked(hdlg, ID_MAINSETUP))
|
||
|
|
lstrcpy(szCurSetup, szCurrent);
|
||
|
|
// allocate buffer for map description data
|
||
|
|
if ((hDesc = GlobalAlloc(GHND, (DWORD)(sizeof(char) *
|
||
|
|
(lstrlen (szCurDesc) + 1)))) != NULL) {
|
||
|
|
lpDesc = (LPSTR)GlobalLock(hDesc);
|
||
|
|
lstrcpy(lpDesc, szCurDesc);
|
||
|
|
GlobalUnlock(hDesc);
|
||
|
|
}
|
||
|
|
SetDlgItemText (hdlg, ID_MAINDESC, szCurDesc);
|
||
|
|
// put the handle in the entrys item data
|
||
|
|
SendMessage(hCombo, CB_SETITEMDATA,
|
||
|
|
(WPARAM)uIdx, (LPARAM)hDesc);
|
||
|
|
// enable windows if it is the first map of type
|
||
|
|
if (!IsWindowEnabled(hCombo))
|
||
|
|
EnableMain(TRUE);
|
||
|
|
CancelToClose(hdlg);
|
||
|
|
break;
|
||
|
|
case ID_MAINEDIT:
|
||
|
|
if (!FEditMap(hdlg))
|
||
|
|
break;
|
||
|
|
CancelToClose(hdlg);
|
||
|
|
if (iMap != MMAP_SETUP)
|
||
|
|
break;
|
||
|
|
// reset to current setup
|
||
|
|
uIdx = ComboLookup(hCombo,(LPSTR)szCurSetup); //-jyg
|
||
|
|
SendMessage(hCombo, CB_SETCURSEL, (WPARAM)uIdx, (LPARAM)0);
|
||
|
|
|
||
|
|
#if defined(WIN16)
|
||
|
|
SendMessage(hdlg, WM_COMMAND, (WPARAM)ID_MAINCOMBO,
|
||
|
|
MAKELPARAM(hCombo, CBN_SELCHANGE));
|
||
|
|
#else
|
||
|
|
SendMessage( hdlg
|
||
|
|
, WM_COMMAND
|
||
|
|
, (WPARAM)MAKELONG(ID_MAINCOMBO, CBN_SELCHANGE)
|
||
|
|
, (LPARAM)hCombo
|
||
|
|
);
|
||
|
|
#endif //WIN16
|
||
|
|
break;
|
||
|
|
case ID_MAINSETUP:
|
||
|
|
ShowMaps(MMAP_SETUP);
|
||
|
|
break;
|
||
|
|
case ID_MAINPATCH:
|
||
|
|
ShowMaps(MMAP_PATCH);
|
||
|
|
break;
|
||
|
|
case ID_MAINKEY:
|
||
|
|
ShowMaps(MMAP_KEY);
|
||
|
|
break;
|
||
|
|
case ID_MAINSETUPCOMBO:
|
||
|
|
case ID_MAINPATCHCOMBO:
|
||
|
|
case ID_MAINKEYCOMBO:
|
||
|
|
case ID_MAINCOMBO:
|
||
|
|
if (wNotifCode == CBN_SELENDOK) {
|
||
|
|
CancelToClose(hdlg);
|
||
|
|
fChanged = TRUE;
|
||
|
|
}
|
||
|
|
if (wNotifCode != CBN_SELCHANGE)
|
||
|
|
return FALSE;
|
||
|
|
uIdx = (UINT)SendMessage(hCombo, CB_GETCURSEL,
|
||
|
|
(WPARAM)0, (LPARAM)0);
|
||
|
|
if (LOWORD(wParam) == ID_MAINSETUPCOMBO)
|
||
|
|
SendMessage(hCombo, CB_GETLBTEXT, (WPARAM)uIdx,
|
||
|
|
(LPARAM) (LPSTR) szCurSetup);
|
||
|
|
hDesc = (HGLOBAL)(DWORD)SendMessage(hCombo, CB_GETITEMDATA,
|
||
|
|
(WPARAM)uIdx, (LPARAM)0);
|
||
|
|
lpDesc = GlobalLock(hDesc);
|
||
|
|
lstrcpy(szCurDesc, lpDesc);
|
||
|
|
GlobalUnlock(hDesc);
|
||
|
|
SetDlgItemText (hdlg, ID_MAINDESC, szCurDesc);
|
||
|
|
SendMessage(hCombo, CB_GETLBTEXT, (WPARAM)uIdx,
|
||
|
|
(LPARAM)(LPSTR)szCurrent);
|
||
|
|
break;
|
||
|
|
case ID_MAINDESC:
|
||
|
|
// NOTE: this is not implemented.
|
||
|
|
if (wNotifCode == EN_CHANGE)
|
||
|
|
fChange = TRUE;
|
||
|
|
else if ((wNotifCode == EN_KILLFOCUS) && fChange) {
|
||
|
|
GetDlgItemText (hdlg, ID_MAINDESC, szTmpDesc,
|
||
|
|
MMAP_MAXDESC);
|
||
|
|
if (!lstrcmpi(szCurDesc, szTmpDesc)) {
|
||
|
|
// description change logic here.
|
||
|
|
// There's no API to changedesc!!
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
} /* end of WM_COMMAND */
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
if (uMessage == uHelpMessage) {
|
||
|
|
DoHelp:
|
||
|
|
WinHelp(hWnd, szMidiHlp, HELP_CONTEXT,
|
||
|
|
IDH_CHILD_MIDI);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
return FALSE;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
} /* MainBox */
|
||
|
|
|
||
|
|
BOOL FAR PASCAL InvalidPortMsgBox (
|
||
|
|
HWND hwnd)
|
||
|
|
{
|
||
|
|
int iRet;
|
||
|
|
char szBuf[256];
|
||
|
|
|
||
|
|
LoadString(hLibInst, IDS_INVALIDPORT, szBuf, sizeof(szBuf));
|
||
|
|
iRet = MessageBox (hwnd, szBuf, szMidiCtl,
|
||
|
|
MB_ICONSTOP | MB_YESNO);
|
||
|
|
return iRet == IDYES;
|
||
|
|
} /* InvalidPortMsgBox */
|
||
|
|
|
||
|
|
VOID FAR PASCAL Modify(
|
||
|
|
BOOL fSet)
|
||
|
|
{
|
||
|
|
fModified = fSet;
|
||
|
|
if (fModified)
|
||
|
|
fChanged = TRUE;
|
||
|
|
} /* Modify */
|
||
|
|
|
||
|
|
/*
|
||
|
|
* ENUMFUNC
|
||
|
|
*
|
||
|
|
* Enumerate setup, patchmap or keymap names.
|
||
|
|
*/
|
||
|
|
BOOL FAR PASCAL _loadds EnumFunc(
|
||
|
|
LPSTR lpName,
|
||
|
|
LPSTR lpDesc,
|
||
|
|
UINT uCase,
|
||
|
|
HWND hCombo,
|
||
|
|
LPSTR unused
|
||
|
|
)
|
||
|
|
{
|
||
|
|
HGLOBAL hMem;
|
||
|
|
LPSTR lpStr;
|
||
|
|
UINT uIdx;
|
||
|
|
MMAPERR mmaperr;
|
||
|
|
|
||
|
|
// see if we're dealing with 'delete' enumeration.
|
||
|
|
if (uCase == MMENUM_DELETE) {
|
||
|
|
uIdx = ComboLookup(hCombo, (LPSTR)lpName);//-jyg
|
||
|
|
|
||
|
|
if (uIdx != CB_ERR)
|
||
|
|
return TRUE;
|
||
|
|
mmaperr = mapDelete(iMap, lpName);
|
||
|
|
if (mmaperr == MMAPERR_SUCCESS)
|
||
|
|
return TRUE;
|
||
|
|
VShowError(hWnd, mmaperr);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
uIdx = (UINT)SendMessage(hCombo, CB_ADDSTRING, (WPARAM)NULL, (LPARAM)lpName);
|
||
|
|
// see if we're dealing with enumeration from the main dialog
|
||
|
|
if (uCase == MMENUM_INTOCOMBO) {
|
||
|
|
hMem = GlobalAlloc(GHND, (DWORD)(lstrlen(lpDesc) + 1));
|
||
|
|
if (hMem != NULL) {
|
||
|
|
lpStr = (LPSTR)GlobalLock(hMem);
|
||
|
|
lstrcpy(lpStr, lpDesc);
|
||
|
|
GlobalUnlock(hMem);
|
||
|
|
}
|
||
|
|
SendMessage( hCombo,
|
||
|
|
CB_SETITEMDATA, (WPARAM)uIdx, (LPARAM)hMem);
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
} /* EnumFunc */
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
/*
|
||
|
|
* SETWINDOWCAPTION
|
||
|
|
*
|
||
|
|
* Set the caption of a 'window', such as 'MIDI Setup: "foo"', even though
|
||
|
|
* these are actually dialog boxes.
|
||
|
|
*/
|
||
|
|
VOID FAR PASCAL SetWindowCaption(
|
||
|
|
VOID)
|
||
|
|
{
|
||
|
|
char szCaption[80],
|
||
|
|
szName[MM_MAXRESLEN];
|
||
|
|
|
||
|
|
LoadString(hLibInst, IdsGetMapNameId(iMap), szName, sizeof(szName));
|
||
|
|
wsprintf(szCaption, aszCaptionFormat,
|
||
|
|
(LPSTR)szName, (LPSTR)szCurrent);
|
||
|
|
SetWindowText(hWnd, szCaption);
|
||
|
|
} /* SetWindowCaption */
|
||
|
|
#endif //0
|
||
|
|
|
||
|
|
int FAR PASCAL QuerySave (VOID)
|
||
|
|
{
|
||
|
|
char szBuf[256];
|
||
|
|
char aszSave[64];
|
||
|
|
char aszFormat[128];
|
||
|
|
char szFunc[MM_MAXRESLEN];
|
||
|
|
|
||
|
|
LoadString(hLibInst, IdsGetMapNameId(iMap), szFunc, sizeof(szFunc));
|
||
|
|
if (fNew) {
|
||
|
|
// AnsiUpperBuff(szFunc, 1); // Upper-case first character.
|
||
|
|
LoadString(hLibInst, IDS_NEW_QUESTION, aszFormat, sizeof(aszFormat));
|
||
|
|
wsprintf (szBuf, aszFormat, (LPSTR)szCurrent, (LPSTR)szFunc);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
LoadString(hLibInst, IDS_CHANGE_QUESTION, aszFormat, sizeof(aszFormat));
|
||
|
|
wsprintf (szBuf, aszFormat, (LPSTR)szFunc, (LPSTR)szCurrent);
|
||
|
|
}
|
||
|
|
LoadString(hLibInst, IDS_SAVE_CHANGES, aszSave, sizeof(aszSave));
|
||
|
|
return MessageBox(hWnd, szBuf, aszSave, MB_YESNOCANCEL | MB_ICONEXCLAMATION);
|
||
|
|
} /* QuerySave */
|