Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

170 lines
4.4 KiB

/****************************************************************************
*
* inst.c
*
* Copyright (c) 1991 Microsoft Corporation. All Rights Reserved.
*
***************************************************************************/
#include <windows.h>
#include <mmsystem.h>
#include "wincom.h"
#include "sbtest.h"
/****************************************************************************
*
* public data
*
***************************************************************************/
HWND hInstWnd;
BYTE bInstrument = 0;
/****************************************************************************
*
* local data
*
***************************************************************************/
static int width;
static int height;
static TEXTMETRIC tm;
/****************************************************************************
*
* internal function prototypes
*
***************************************************************************/
static void Paint(HWND hWnd, HDC hDC);
void CreateInstrument(HWND hWnd)
{
HDC hDC;
POINT pt;
int w, h;
hDC = GetDC(hWnd);
GetTextMetrics(hDC, &tm);
ReleaseDC(hWnd, hDC);
w = tm.tmMaxCharWidth * 3;
h = tm.tmHeight + tm.tmExternalLeading;
width = w * 8;
height = h * 16;
GetCursorPos(&pt);
hInstWnd = CreateWindow("SELECTOR",
"Instrument",
WS_POPUP | WS_CAPTION | WS_VISIBLE | WS_SYSMENU,
pt.x, pt.y,
width,
height + GetSystemMetrics(SM_CYCAPTION),
hWnd,
NULL,
ghInst,
NULL);
}
static void Paint(HWND hWnd, HDC hDC)
{
int x, y;
char szVal[20];
RECT rect;
for (y = 0; y < 16; y++) {
for (x = 0; x < 8; x++) {
wsprintf(szVal, "%d", y * 8 + x + gInstBase);
TextOut(hDC,
width * x / 8 + tm.tmMaxCharWidth / 2,
height * y / 16,
szVal,
lstrlen(szVal));
}
}
for (y = 0; y < 16; y++) {
MoveToEx(hDC, 0, height * y / 16, NULL);
LineTo(hDC, width, height * y / 16);
}
for (x = 0; x < 8; x++) {
MoveToEx(hDC, width * x / 8, 0, NULL);
LineTo(hDC, width * x / 8, height);
}
rect.left = ((bInstrument % 8) * (width / 8)) + 1;
rect.right = rect.left + (width / 8) - 1;
rect.top = ((bInstrument / 8) * (height / 16)) + 1;
rect.bottom = rect.top + (height / 16) - 1;
InvertRect(hDC, &rect);
}
long FAR PASCAL InstWndProc(HWND hWnd, unsigned message, UINT wParam, LONG lParam)
{
PAINTSTRUCT ps; // paint structure
int x, y;
SHORTMSG sm;
HMENU hMenu;
RECT rect;
// process any messages we want
switch (message) {
case WM_CREATE:
hMenu = GetMenu(hMainWnd);
CheckMenuItem(hMenu, IDM_INSTRUMENT, MF_CHECKED);
break;
case WM_LBUTTONDOWN:
// revert old patch
rect.left = ((bInstrument % 8) * (width / 8)) + 1;
rect.right = rect.left + (width / 8) - 1;
rect.top = ((bInstrument / 8) * (height / 16)) + 1;
rect.bottom = rect.top + (height / 16) - 1;
InvalidateRect(hWnd, &rect, TRUE);
// calculate new patch
x = LOWORD(lParam) * 8 / width;
y = HIWORD(lParam) * 16 / height;
bInstrument = (BYTE) y * 8 + x;
sm.b[0] = (BYTE) 0xC0 + bChannel;
sm.b[1] = bInstrument;
// invert new patch
rect.left = ((bInstrument % 8) * (width / 8)) + 1;
rect.right = rect.left + (width / 8) - 1;
rect.top = ((bInstrument / 8) * (height / 16)) + 1;
rect.bottom = rect.top + (height / 16) - 1;
InvalidateRect(hWnd, &rect, TRUE);
// send patch change message
if (hMidiOut) {
midiOutShortMsg(hMidiOut, sm.dw);
if (ISBITSET(fDebug, DEBUG_PATCH))
sprintf(ach, "\nPatch Change to %d on Channel %d",
bInstrument, bChannel);
dbgOut;
}
break;
case WM_PAINT:
BeginPaint(hWnd, &ps);
Paint(hWnd, ps.hdc);
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
hMenu = GetMenu(hMainWnd);
CheckMenuItem(hMenu, IDM_INSTRUMENT, MF_UNCHECKED);
hInstWnd = NULL;
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
break;
}
return NULL;
}