Windows2000/private/shell/comctl32/updown.c
2020-09-30 17:12:32 +02:00

1460 lines
39 KiB
C

#include "ctlspriv.h"
// updown.c : A micro-scrollbar control; useful for increment/decrement.
#define NUM_UDACCELS 3
#define DONTCARE 0
#define SIGNED 1
#define UNSIGNED 2
#define UD_HITNOWHERE 0
#define UD_HITDOWN 1
#define UD_HITUP 2
typedef struct {
CONTROLINFO ci;
HWND hwndBuddy;
unsigned fUp : 1;
unsigned fDown : 1;
unsigned fUnsigned : 1; // BUGBUG: no way to turn this on
unsigned fSharedBorder : 1;
unsigned fSunkenBorder : 1;
unsigned fUpDownDestroyed : 1; // This tells the buddy that updown destoryed.
BOOL fTrackSet: 1;
unsigned fSubclassed:1; // did we subclass the buddy?
UINT nBase;
int nUpper;
int nLower;
int nPos;
UINT uClass;
BOOL bDown;
DWORD dwStart;
UINT nAccel;
UDACCEL udAccel[NUM_UDACCELS];
UINT uHot;
int cReenterSetint; // To avoid recursion death in setint()
} UDSTATE, NEAR *PUDSTATE;
// Constants:
#define CLASS_UNKNOWN 0
#define CLASS_EDIT 1
#define CLASS_LISTBOX 2
#define MAX_INTLENGTH 18 // big enough for all intl stuff, too
// this is the space to the left and right of the arrow (in pixels)
#define XBORDER 0
#define BASE_DECIMAL 10
#define BASE_HEX 16
// Declarations:
LRESULT CALLBACK ArrowKeyProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, ULONG_PTR dwRefData);
// ***** Internal workhorses *****
// Validates the buddy.
void NEAR PASCAL isgoodbuddy(PUDSTATE np)
{
if (!np->hwndBuddy)
return;
if (!IsWindow(np->hwndBuddy))
{
#if defined(DEBUG) && !defined(WIN32)
DebugOutput(DBF_ERROR | DBF_USER,
TEXT("UpDown: invalid buddy handle 0x04X; ")
TEXT("resetting to NULL"), np->hwndBuddy);
#endif
np->hwndBuddy = NULL;
np->uClass = CLASS_UNKNOWN;
}
if (GetParent(np->hwndBuddy) != np->ci.hwndParent)
{
#if defined(DEBUG) && !defined(WIN32)
DebugOutput(DBF_ERROR | DBF_USER,
TEXT("UpDown: buddy has different parent; ")
TEXT("resetting to NULL"));
#endif
np->hwndBuddy = NULL;
np->uClass = CLASS_UNKNOWN;
}
}
// Picks a good buddy.
void NEAR PASCAL pickbuddy(PUDSTATE np)
{
if (np->ci.style & UDS_AUTOBUDDY)
np->hwndBuddy = GetWindow(np->ci.hwnd, GW_HWNDPREV);
}
void NEAR PASCAL unachor(PUDSTATE np)
{
RECT rc;
RECT rcBuddy;
RECT rcUD;
if ( np->hwndBuddy && (np->ci.style & (UDS_ALIGNLEFT | UDS_ALIGNRIGHT))) {
GetWindowRect(np->hwndBuddy, &rcBuddy);
GetWindowRect(np->ci.hwnd, &rcUD);
UnionRect(&rc, &rcUD, &rcBuddy);
MapWindowRect(NULL, np->ci.hwndParent, &rc);
MoveWindow(np->hwndBuddy, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, FALSE);
}
}
// Anchor this control to the buddy's edge, if appropriate.
void NEAR PASCAL anchor(PUDSTATE np)
{
BOOL bAlignToBuddy;
int nOver = 0, nHasBorder;
RECT rc, rcBuddy;
int nHeight, nWidth;
np->fSharedBorder = FALSE;
isgoodbuddy(np);
nHasBorder = (np->ci.style & WS_BORDER) == WS_BORDER;
bAlignToBuddy = np->hwndBuddy && (np->ci.style & (UDS_ALIGNLEFT | UDS_ALIGNRIGHT));
if (bAlignToBuddy)
{
if ((np->uClass == CLASS_EDIT) || (GetWindowLong(np->hwndBuddy, GWL_EXSTYLE) & WS_EX_CLIENTEDGE))
{
np->fSunkenBorder = TRUE;
}
GetWindowRect(np->hwndBuddy, &rc);
if ((np->uClass == CLASS_EDIT) || (GetWindowLong(np->hwndBuddy, GWL_STYLE) & WS_BORDER))
{
// BUGBUG for full generalization, should handle border AND clientedge
nOver = g_cxBorder * (np->fSunkenBorder ? 2 : 1);
np->fSharedBorder = TRUE;
// turn off border styles...
np->ci.style &= ~WS_BORDER;
SetWindowLong(np->ci.hwnd, GWL_STYLE, np->ci.style);
SetWindowLong(np->ci.hwnd, GWL_EXSTYLE, GetWindowLong(np->ci.hwnd, GWL_EXSTYLE) & ~(WS_EX_CLIENTEDGE));
}
}
else
{
GetWindowRect(np->ci.hwnd, &rc);
}
nHeight = rc.bottom - rc.top;
nWidth = rc.right - rc.left;
// If the parent is RTL mirrored, then placement of the
// child (i.e. anchor point) should be relative to the visual
// right edge (near edge). [samera]
if (IS_WINDOW_RTL_MIRRORED(np->ci.hwndParent))
{
rc.left = rc.right;
}
ScreenToClient(np->ci.hwndParent, (LPPOINT)&rc.left);
rc.right = rc.left + nWidth;
if (bAlignToBuddy)
{
nWidth = g_cxVScroll - g_cxBorder;
if (nWidth > nHeight) { // don't let the aspect ratio
nWidth = nHeight; // get worse than square
}
nWidth += nOver;
rcBuddy = rc;
if (np->ci.style & UDS_ALIGNLEFT)
{
// size buddy to right
rcBuddy.left += nWidth - nOver;
rc.right = rc.left + nWidth;
}
else
{
// size buddy to left
rcBuddy.right -= nWidth - nOver;
rc.left = rc.right - nWidth;
}
// size the buddy to fit the updown on the appropriate side
MoveWindow(np->hwndBuddy, rcBuddy.left, rcBuddy.top, rcBuddy.right - rcBuddy.left, nHeight, TRUE);
}
else if (!(np->ci.style & UDS_HORZ))
{
nWidth = g_cxVScroll + 2 * nHasBorder;
}
SetWindowPos(np->ci.hwnd, NULL, rc.left, rc.top, nWidth, nHeight, SWP_DRAWFRAME | SWP_NOZORDER | SWP_NOACTIVATE);
}
// Use this to make any and all comparisons involving the nPos,
// nUpper or nLower fields of the PUDSTATE. It determines
// whether to do a signed or unsigned comparison and returns
// > 0 for (x > y)
// < 0 for (x < y)
// == 0 for (x == y).
// fCompareType is SIGNED to force a signed comparison,
// fCompareType is UNSIGNED to force an unsigned comparison,
// fCompareType is DONTCARE to use the np->fUnsigned flag to decide.
// In comments, comparison operators are suffixed with "D", "U" or "S"
// to emphasize whether the comparison is DONTCARE, UNSIGNED, or SIGNED.
// For example "x <U y" means "x < y as UNSIGNED".
int NEAR PASCAL compare(PUDSTATE np, int x, int y, UINT fCompareType)
{
if ((fCompareType == UNSIGNED) || ((np->fUnsigned) && !(fCompareType == SIGNED)) )
{
// Do unsigned comparisons
if ((UINT)x > (UINT)y)
return 1;
else if ((UINT)x < (UINT)y)
return -1;
}
else
{
// Do signed comparisons
if (x > y)
return 1;
else if (x < y)
return -1;
}
return 0;
}
// Use this after any pos change to make sure pos stays in range.
// Wraps as necessary.
// returns nonzero if the current value was out of range (and therefore
// got changed so it fit into range again)
// BUGBUG -- doesn't handle values that exceed MAXINT or MININT.
BOOL NEAR PASCAL nudge(PUDSTATE np)
{
BOOL bOutOfRange = TRUE;
int min = np->nUpper;
int max = np->nLower;
// if (max <D min) swap(min, max)
if (compare(np,max,min, DONTCARE) < 0)
{
int t;
t = min;
min = max;
max = t;
}
if (np->ci.style & UDS_WRAP)
{
// if (nPos <D min) nPos = max -- wrap from below to above
// else if (nPos >D max) nPos = min -- wrap from above to below
if ((compare(np, np->nPos, min, DONTCARE) < 0))
np->nPos = max;
else if ((compare(np, np->nPos, max, DONTCARE) > 0))
np->nPos = min;
else bOutOfRange = FALSE;
}
else
{
// if (nPos <D min) nPos = min -- pin at min
// else if (nPos >D max) nPos = max -- pin at max
if (compare(np,np->nPos,min, DONTCARE) < 0)
np->nPos = min;
else if (compare(np,np->nPos,max, DONTCARE) > 0)
np->nPos = max;
else
bOutOfRange = FALSE;
}
return(bOutOfRange);
}
// Sets the state of the buttons (pushed, released).
void NEAR PASCAL squish(PUDSTATE np, UINT bTop, UINT bBottom)
{
BOOL bInvalidate = FALSE;
if (np->nUpper == np->nLower || !IsWindowEnabled(np->ci.hwnd))
{
bTop = FALSE;
bBottom = FALSE;
}
else
{
bTop = !!bTop;
bBottom = !!bBottom;
}
if (np->fUp != bTop)
{
np->fUp = bTop;
bInvalidate = TRUE;
MyNotifyWinEvent(EVENT_OBJECT_STATECHANGE, np->ci.hwnd, OBJID_CLIENT, 1);
}
if (np->fDown != bBottom)
{
np->fDown = bBottom;
bInvalidate = TRUE;
MyNotifyWinEvent(EVENT_OBJECT_STATECHANGE, np->ci.hwnd, OBJID_CLIENT, 2);
}
if (bInvalidate)
{
np->dwStart = GetTickCount();
InvalidateRect(np->ci.hwnd, NULL, FALSE);
}
}
// Gets the intl 1000 separator
void NEAR PASCAL getthousands(LPTSTR pszThousand)
{
#ifdef WIN32
if (!GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STHOUSAND, pszThousand, 2))
{
pszThousand[0] = TEXT(',');
pszThousand[1] = TEXT('\0');
}
#else
static DWORD uLast = 0;
static TCHAR cThou;
DWORD uNow;
/* Only check the intl setting every 5 seconds.
*/
uNow = GetTickCount();
if (uNow - uLast > 5000)
{
if (!GetProfileString(TEXT("intl"), TEXT("sThousand"), pszThousand, pszThousand, 2))
{
pszThousand[0] = TEXT(',');
pszThousand[1] = TEXT('\0');
}
cThou = pszThousand[0];
uLast = uNow;
}
else
{
pszThousand[0] = cThou;
pszThousand[1] = 0;
}
#endif
}
// Obtain NLS info about how numbers should be grouped.
// The annoying thing is that LOCALE_SGROUPING and NUMBERFORMAT
// have different ways of specifying number grouping.
// LOCALE NUMBERFMT Sample Country
// 3;0 3 1,234,567 United States
// 3;2;0 32 12,34,567 India
// 3 30 1234,567 ??
// Not my idea. That's the way it works.
// Bonus treat - Win9x doesn't support complex number formats,
// so we return only the first number.
UINT getgrouping(void)
{
UINT grouping;
LPTSTR psz;
TCHAR szGrouping[32];
// If no locale info, then assume Western style thousands
if (!GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SGROUPING, szGrouping, ARRAYSIZE(szGrouping)))
return 3;
grouping = 0;
psz = szGrouping;
#ifdef WINNT
for (;;)
{
if (*psz == '0') break; // zero - stop
else if ((UINT)(*psz - '0') < 10) // digit - accumulate it
grouping = grouping * 10 + (UINT)(*psz - '0');
else if (*psz) // punctuation - ignore it
{ }
else // end of string, no "0" found
{
grouping = grouping * 10; // put zero on end (see examples)
break; // and finished
}
psz++;
}
#else
// Win9x - take only the first grouping
grouping = StrToInt(szGrouping);
#endif
return grouping;
}
// Gets the caption of the buddy
// Returns the current position of the updown control
// and sets *pfError on error.
LRESULT NEAR PASCAL getint(PUDSTATE np, BOOL *pfError)
{
TCHAR szInt[MAX_INTLENGTH]; // big enough for all intl stuff, too
TCHAR szThousand[2];
TCHAR cTemp;
int nPos;
int sign = 1;
LPTSTR p = szInt;
BOOL bInValid = TRUE;
isgoodbuddy(np);
if (np->hwndBuddy && np->ci.style & UDS_SETBUDDYINT)
{
if (np->uClass == CLASS_LISTBOX)
{
np->nPos = (int)SendMessage(np->hwndBuddy, LB_GETCURSEL, 0, 0L);
bInValid = nudge(np);
}
else
{
GetWindowText(np->hwndBuddy, szInt, ARRAYSIZE(szInt));
switch (np->nBase)
{
case BASE_HEX:
if ((*p == TEXT('x')) || (*p == TEXT('X')))
// ignore first character
p++;
else if ((*p == TEXT('0')) && ((*(p + 1) == TEXT('x')) || (*(p + 1) == TEXT('X'))))
// ignore first two characters (TEXT("0x") or "0X")
p += 2;
for (nPos = 0; *p; p++)
{
if ((*p >= TEXT('A')) && (*p <= TEXT('F')))
cTemp = (TCHAR)(*p - TEXT('A') + 10);
else if ((*p >= TEXT('a')) && (*p <= TEXT('f')))
cTemp = (TCHAR)(*p - TEXT('a') + 10);
else if ((*p >= TEXT('0')) && (*p <= TEXT('9')))
cTemp = (TCHAR)(*p - TEXT('0'));
else
goto BadValue;
nPos = (nPos * 16) + cTemp;
}
np->nPos = nPos;
break;
case BASE_DECIMAL:
default:
getthousands(szThousand);
if (*p == TEXT('-') && !np->fUnsigned)
{
sign = -1;
++p;
}
for (nPos=0; *p; p++)
{
cTemp = *p;
// If there is a thousand separator, just ignore it.
// Do not validate that it's in the right place,
// because it prevents the user from editing the
// middle of a number.
if (cTemp == szThousand[0])
{
continue;
}
cTemp -= TEXT('0');
if ((UINT)cTemp > 9)
{
goto BadValue;
}
nPos = (nPos*10) + cTemp;
}
np->nPos = nPos*sign;
break;
}
bInValid = nudge(np);
}
}
BadValue:
if (pfError)
*pfError = bInValid;
return np->nPos;
}
// Sets the caption of the buddy if appropriate.
void NEAR PASCAL setint(PUDSTATE np)
{
TCHAR szInt[MAX_INTLENGTH];
TCHAR szThousand[2];
int pos = np->nPos;
LPTSTR p = szInt;
isgoodbuddy(np);
if (np->hwndBuddy && np->ci.style & UDS_SETBUDDYINT)
{
BOOL fError;
/*
* If we have reentered, then maybe the app has set up a loop.
* Check to see if the value has actually changed. If not,
* then there's no need to set it again. This breaks the
* recursion.
*/
if (np->cReenterSetint && (LRESULT)pos==getint(np, &fError) && !fError)
{
return;
}
np->nPos = pos;
np->cReenterSetint++;
if (np->uClass == CLASS_LISTBOX)
{
SendMessage(np->hwndBuddy, LB_SETCURSEL, pos, 0L);
FORWARD_WM_COMMAND(GetParent(np->hwndBuddy), GetDlgCtrlID(np->hwndBuddy),
np->hwndBuddy, LBN_SELCHANGE, SendMessage);
}
else
{
switch (np->nBase)
{
case BASE_HEX:
if ((np->nUpper | np->nLower) >= 0x00010000)
wsprintf(p, TEXT("0x%08X"), pos);
else
wsprintf(p, TEXT("0x%04X"), pos);
break;
case BASE_DECIMAL:
default:
if (pos < 0 && !np->fUnsigned)
{
*p++ = TEXT('-');
pos = -pos;
}
if (pos >= 1000 && !(np->ci.style & UDS_NOTHOUSANDS))
{
TCHAR szFmt[MAX_INTLENGTH];
NUMBERFMT nf;
nf.NumDigits = 0; // no digits after decimal point
nf.LeadingZero = 0; // no leading zeros
nf.Grouping = getgrouping();
nf.lpDecimalSep = TEXT(""); // no decimal point
nf.lpThousandSep = szThousand;
nf.NegativeOrder = 0; // (not used - we always pass positive numbers)
getthousands(szThousand);
wsprintf(szFmt, TEXT("%u"), pos);
GetNumberFormat(LOCALE_USER_DEFAULT, 0, szFmt, &nf, p, MAX_INTLENGTH - 1);
}
else
{
wsprintf(p, TEXT("%u"), pos);
}
break;
}
SetWindowText(np->hwndBuddy, szInt);
}
np->cReenterSetint;
}
}
// Use this to click the pos up or down by one.
void NEAR PASCAL bump(PUDSTATE np)
{
BOOL bChanged = FALSE;
UINT uElapsed, increment;
int direction, i;
/* So I'm not really getting seconds here; it's close enough, and
* dividing by 1024 keeps __aFuldiv from being needed.
*/
uElapsed = (UINT)((GetTickCount() - np->dwStart) / 1024);
increment = np->udAccel[0].nInc;
for (i=np->nAccel-1; i>=0; --i)
{
if (np->udAccel[i].nSec <= uElapsed)
{
increment = np->udAccel[i].nInc;
break;
}
}
if (increment == 0)
{
DebugMsg(DM_ERROR, TEXT("bad accelerator value"));
return;
}
direction = compare(np,np->nUpper,np->nLower, DONTCARE) < 0 ? -1 : 1;
if (np->fUp)
{
bChanged = TRUE;
}
if (np->fDown)
{
direction = -direction;
bChanged = TRUE;
}
if (bChanged)
{
/* Make sure we have a multiple of the increment
* Note that we should loop only when the increment changes
*/
NM_UPDOWN nm;
nm.iPos = np->nPos;
nm.iDelta = increment*direction;
if (CCSendNotify(&np->ci, UDN_DELTAPOS, &nm.hdr))
return;
np->nPos += nm.iDelta;
for ( ; ; )
{
if (!((int)np->nPos % (int)increment))
{
break;
}
np->nPos += direction;
}
nudge(np);
setint(np);
if (np->ci.style & UDS_HORZ)
FORWARD_WM_HSCROLL(np->ci.hwndParent, np->ci.hwnd, SB_THUMBPOSITION, np->nPos, SendMessage);
else
FORWARD_WM_VSCROLL(np->ci.hwndParent, np->ci.hwnd, SB_THUMBPOSITION, np->nPos, SendMessage);
MyNotifyWinEvent(EVENT_OBJECT_VALUECHANGE, np->ci.hwnd, OBJID_CLIENT, 0);
}
}
//#pragma data_seg(DATASEG_READONLY)
const TCHAR c_szListbox[] = TEXT("listbox");
//#pragma data_seg()
// Sets the new buddy
LRESULT NEAR PASCAL setbuddy(PUDSTATE np, HWND hwndBuddy)
{
HWND hOldBuddy;
TCHAR szClName[10];
hOldBuddy = np->hwndBuddy;
if ((np->hwndBuddy = hwndBuddy) == NULL)
{
pickbuddy(np);
hwndBuddy = np->hwndBuddy;
}
if ((hOldBuddy != hwndBuddy) && np->fSubclassed)
{
ASSERT(hOldBuddy);
RemoveWindowSubclass(hOldBuddy, ArrowKeyProc, 0);
np->fSubclassed = FALSE;
}
np->uClass = CLASS_UNKNOWN;
if (hwndBuddy)
{
if (np->ci.style & UDS_ARROWKEYS)
{
np->fSubclassed = TRUE;
SetWindowSubclass(hwndBuddy, ArrowKeyProc, 0, (ULONG_PTR)np);
}
GetClassName(hwndBuddy, szClName, ARRAYSIZE(szClName));
if (!lstrcmpi(szClName, c_szEdit))
{
np->uClass = CLASS_EDIT;
}
else if (!lstrcmpi(szClName, c_szListbox))
{
np->uClass = CLASS_LISTBOX;
}
}
anchor(np);
return (LRESULT)hOldBuddy;
}
// Paint the whole control
void NEAR PASCAL PaintUpDownControl(PUDSTATE np, HDC hdc)
{
UINT uFlags;
PAINTSTRUCT ps;
RECT rcBtn;
RECT rc;
BOOL bEnabled = (np->nUpper != np->nLower) && IsWindowEnabled(np->ci.hwnd);
if (np->hwndBuddy)
bEnabled = bEnabled && IsWindowEnabled(np->hwndBuddy);
if (hdc)
ps.hdc = hdc;
else
BeginPaint(np->ci.hwnd, &ps);
GetClientRect(np->ci.hwnd, &rcBtn);
// if we are autobuddy'd and anchored to a sunken-edge control, we draw the
// "nonclient" area of ourselves to blend in with our buddy.
if (np->fSharedBorder && np->fSunkenBorder)
{
UINT bf = BF_TOP | BF_BOTTOM | BF_ADJUST | (np->ci.style & UDS_ALIGNLEFT ? BF_LEFT : 0) | (np->ci.style & UDS_ALIGNRIGHT ? BF_RIGHT : 0);
DrawEdge(ps.hdc, &rcBtn, EDGE_SUNKEN, bf);
}
// with remaining space, draw appropriate scrollbar arrow controls in
// upper and lower halves
rc = rcBtn;
if (np->ci.style & UDS_HORZ)
{
uFlags = DFCS_SCROLLLEFT;
if (np->fDown)
uFlags |= DFCS_PUSHED;
if (!bEnabled)
uFlags |= DFCS_INACTIVE;
if (g_bRunOnNT5 || g_bRunOnMemphis)
{
if (np->uHot == UD_HITDOWN)
uFlags |= DFCS_HOT;
}
// Horizontal ones
rc.right = (rcBtn.right + rcBtn.left) / 2;
DrawFrameControl(ps.hdc, &rc, DFC_SCROLL, uFlags);
uFlags = DFCS_SCROLLRIGHT;
if (np->fUp)
uFlags |= DFCS_PUSHED;
if (!bEnabled)
uFlags |= DFCS_INACTIVE;
if (g_bRunOnNT5 || g_bRunOnMemphis)
{
if (np->uHot == UD_HITUP)
uFlags |= DFCS_HOT;
}
rc.left = rcBtn.right - (rc.right - rc.left); // handles odd-x case, too
rc.right = rcBtn.right;
DrawFrameControl(ps.hdc, &rc, DFC_SCROLL, uFlags);
}
else
{
uFlags = DFCS_SCROLLUP;
if (np->fUp)
uFlags |= DFCS_PUSHED;
if (!bEnabled)
uFlags |= DFCS_INACTIVE;
if (g_bRunOnNT5 || g_bRunOnMemphis)
{
if (np->uHot == UD_HITUP)
uFlags |= DFCS_HOT;
}
rc.bottom = (rcBtn.bottom + rcBtn.top) / 2;
DrawFrameControl(ps.hdc, &rc, DFC_SCROLL, uFlags);
uFlags = DFCS_SCROLLDOWN;
if (np->fDown)
uFlags |= DFCS_PUSHED;
if (!bEnabled)
uFlags |= DFCS_INACTIVE;
if (g_bRunOnNT5 || g_bRunOnMemphis)
{
if (np->uHot == UD_HITDOWN)
uFlags |= DFCS_HOT;
}
rc.top = rcBtn.bottom - (rc.bottom - rc.top); // handles odd-y case, too
rc.bottom = rcBtn.bottom;
DrawFrameControl(ps.hdc, &rc, DFC_SCROLL, uFlags);
}
if (hdc == NULL)
EndPaint(np->ci.hwnd, &ps);
}
LRESULT CALLBACK ArrowKeyProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, ULONG_PTR dwRefData)
{
PUDSTATE np = (PUDSTATE)dwRefData;
int cDetants;
switch (uMsg)
{
case WM_NCDESTROY:
RemoveWindowSubclass(hWnd, ArrowKeyProc, 0);
np->fSubclassed = FALSE;
np->hwndBuddy = NULL;
if (np->fUpDownDestroyed)
{
// The buddy was destroyed after updown so free the memory now
// And pass off to the message to who we subclassed...
LocalFree((HLOCAL)np);
}
break;
case WM_GETDLGCODE:
return (DefSubclassProc(hWnd, uMsg, wParam, lParam) | DLGC_WANTARROWS);
case WM_KEYDOWN:
switch (wParam)
{
case VK_UP:
case VK_DOWN:
if (GetCapture() != np->ci.hwnd)
{
/* Get the value from the buddy if this is the first key down
*/
if (!(lParam&(1L<<30)))
{
getint(np, NULL);
}
/* Update the visuals and bump the value
*/
np->bDown = (wParam == VK_DOWN);
squish(np, !np->bDown, np->bDown);
bump(np);
#ifdef KEYBOARDCUES
//notify of navigation key usage
CCNotifyNavigationKeyUsage(&(np->ci), UISF_HIDEFOCUS);
#endif
}
return(0L);
default:
break;
}
break;
case WM_KEYUP:
switch (wParam)
{
case VK_UP:
case VK_DOWN:
if (GetCapture() != np->ci.hwnd)
{
squish(np, FALSE, FALSE);
}
return(0L);
default:
break;
}
break;
// this is dumb.
// wm_char's aren't sent for arrow commands..
// what you're really eating here is & and (.
#if 0
case WM_CHAR:
switch (wParam)
{
case VK_UP:
case VK_DOWN:
return(0L);
default:
break;
}
break;
#endif
case WM_KILLFOCUS:
// Reset wheel scroll amount
gcWheelDelta = 0;
break;
case WM_SETFOCUS:
ASSERT(gcWheelDelta == 0);
break;
default:
if (uMsg == g_msgMSWheel && GetCapture() != np->ci.hwnd) {
int iWheelDelta;
if (g_bRunOnNT || g_bRunOnMemphis)
{
iWheelDelta = (int)(short)HIWORD(wParam);
}
else
{
iWheelDelta = (int)wParam;
}
// Update count of scroll amount
gcWheelDelta -= iWheelDelta;
cDetants = gcWheelDelta / WHEEL_DELTA;
if (cDetants != 0) {
gcWheelDelta %= WHEEL_DELTA;
if (g_bRunOnNT || g_bRunOnMemphis)
{
if (wParam & (MK_SHIFT | MK_CONTROL))
break;
}
else
{
if (GetKeyState(VK_SHIFT) < 0 || GetKeyState(VK_CONTROL) < 0)
break;
}
getint(np, NULL);
np->bDown = (cDetants > 0);
cDetants = abs(cDetants);
while (cDetants-- > 0) {
squish(np, !np->bDown, np->bDown);
bump(np);
}
squish(np, FALSE, FALSE);
}
return 1;
}
break;
}
return DefSubclassProc(hWnd, uMsg, wParam, lParam);
}
UINT NEAR PASCAL setbase(PUDSTATE np, UINT wNewBase)
{
UINT wOldBase;
switch (wNewBase)
{
case BASE_DECIMAL:
case BASE_HEX:
np->fUnsigned = (wNewBase != BASE_DECIMAL);
wOldBase = np->nBase;
np->nBase = wNewBase;
setint(np);
return wOldBase;
}
return 0;
}
HWND WINAPI CreateUpDownControl(DWORD dwStyle, int x, int y, int cx, int cy,
HWND hParent, int nID, HINSTANCE hInst,
HWND hwndBuddy, int nUpper, int nLower, int nPos)
{
HWND hWnd = CreateWindow(s_szUpdownClass, NULL, dwStyle, x, y, cx, cy,
hParent, (HMENU)nID, hInst, 0L);
if (hWnd)
{
SendMessage(hWnd, UDM_SETBUDDY, (WPARAM)hwndBuddy, 0L);
SendMessage(hWnd, UDM_SETRANGE, 0, MAKELONG(nUpper, nLower));
SendMessage(hWnd, UDM_SETPOS, 0, MAKELONG(nPos, 0));
}
return hWnd;
}
UINT UD_HitTest(PUDSTATE np, int x, int y)
{
RECT rc;
GetClientRect(np->ci.hwnd, &rc);
if (np->ci.style & UDS_HORZ)
{
// Horizontal placement
if (x < (rc.right / 2))
{
return UD_HITDOWN;
}
else if (x > (rc.right / 2))
{
return UD_HITUP;
}
}
else
{
if (y > (rc.bottom / 2))
{
return UD_HITDOWN;
}
else if (y < (rc.bottom / 2))
{
return UD_HITUP;
}
}
return UD_HITNOWHERE;
}
void UD_Invalidate(PUDSTATE np, UINT uWhich, BOOL fErase)
{
int iMid;
RECT rc;
GetClientRect(np->ci.hwnd, &rc);
if (np->ci.style & UDS_HORZ)
{
iMid = rc.right / 2;
if (uWhich == UD_HITDOWN) {
rc.right = iMid;
} else if (uWhich == UD_HITUP) {
rc.left = iMid;
} else
return;
}
else
{
iMid = rc.bottom /2;
if (uWhich == UD_HITDOWN) {
rc.top = iMid;
} else if (uWhich == UD_HITUP){
rc.bottom = iMid;
} else
return;
}
InvalidateRect(np->ci.hwnd, &rc, fErase);
}
void UD_OnMouseMove(PUDSTATE np, DWORD dwPos)
{
if (np->ci.style & UDS_HOTTRACK) {
UINT uHot = UD_HitTest(np, GET_X_LPARAM(dwPos), GET_Y_LPARAM(dwPos));
if (uHot != np->uHot) {
UD_Invalidate(np, np->uHot, FALSE);
UD_Invalidate(np, uHot, FALSE);
np->uHot = uHot;
}
}
}
LRESULT CALLBACK UpDownWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
RECT rc;
int i;
BOOL f;
LRESULT lres;
PUDSTATE np = GetWindowPtr(hwnd, 0);
if (np) {
if ((uMsg >= WM_MOUSEFIRST) && (uMsg <= WM_MOUSELAST) && (np->ci.style & UDS_HOTTRACK) && !np->fTrackSet) {
TRACKMOUSEEVENT tme;
np->fTrackSet = TRUE;
tme.cbSize = sizeof(tme);
tme.hwndTrack = np->ci.hwnd;
tme.dwFlags = TME_LEAVE;
TrackMouseEvent(&tme);
}
} else if (uMsg != WM_CREATE)
goto DoDefault;
switch (uMsg)
{
case WM_MOUSEMOVE:
UD_OnMouseMove(np, (DWORD) lParam);
break;
case WM_MOUSELEAVE:
np->fTrackSet = FALSE;
UD_Invalidate(np, np->uHot, FALSE);
np->uHot = UD_HITNOWHERE;
break;
case WM_LBUTTONDOWN:
{
// Don't set a timer if on the middle border
BOOL bTimeIt = TRUE;
if (np->hwndBuddy && !IsWindowEnabled(np->hwndBuddy))
break;
SetCapture(hwnd);
getint(np, NULL);
switch (np->uClass)
{
case CLASS_EDIT:
case CLASS_LISTBOX:
SetFocus(np->hwndBuddy);
break;
}
switch(UD_HitTest(np, GET_X_LPARAM(lParam), GET_Y_LPARAM(lParam)))
{
case UD_HITDOWN:
np->bDown = TRUE;
squish(np, FALSE, TRUE);
break;
case UD_HITUP:
np->bDown = FALSE;
squish(np, TRUE, FALSE);
break;
case UD_HITNOWHERE:
bTimeIt = FALSE;
break;
}
if (bTimeIt)
{
SetTimer(hwnd, 1, GetProfileInt(TEXT("windows"), TEXT("CursorBlinkRate"), 530), NULL);
bump(np);
}
break;
}
case WM_TIMER:
{
POINT pt;
if (GetCapture() != hwnd)
{
goto EndScroll;
}
SetTimer(hwnd, 1, 100, NULL);
GetWindowRect(hwnd, &rc);
if (np->ci.style & UDS_HORZ) {
i = (rc.left + rc.right) / 2;
if (np->bDown)
{
rc.right = i;
}
else
{
rc.left = i;
}
} else {
i = (rc.top + rc.bottom) / 2;
if (np->bDown)
{
rc.top = i;
}
else
{
rc.bottom = i;
}
}
InflateRect(&rc, (g_cxFrame+1)/2, (g_cyFrame+1)/2);
GetCursorPos(&pt);
if (PtInRect(&rc, pt))
{
squish(np, !np->bDown, np->bDown);
bump(np);
}
else
{
squish(np, FALSE, FALSE);
}
break;
}
case WM_LBUTTONUP:
if (np->hwndBuddy && !IsWindowEnabled(np->hwndBuddy))
break;
if (GetCapture() == hwnd)
{
EndScroll:
squish(np, FALSE, FALSE);
// We cannot call CCReleaseCapture() here, because it busts a lot of apps.
ReleaseCapture();
KillTimer(hwnd, 1);
if (np->uClass == CLASS_EDIT)
Edit_SetSel(np->hwndBuddy, 0, -1);
if (np->ci.style & UDS_HORZ)
FORWARD_WM_HSCROLL(np->ci.hwndParent, np->ci.hwnd, SB_ENDSCROLL, np->nPos, SendMessage);
else
FORWARD_WM_VSCROLL(np->ci.hwndParent, np->ci.hwnd, SB_ENDSCROLL, np->nPos, SendMessage);
}
break;
case WM_ENABLE:
InvalidateRect(hwnd, NULL, TRUE);
break;
case WM_WININICHANGE:
if (np && (!wParam || (wParam == SPI_SETNONCLIENTMETRICS) || (wParam == SPI_SETICONTITLELOGFONT))) {
InitGlobalMetrics(wParam);
unachor(np);
anchor(np);
}
break;
case WM_PRINTCLIENT:
case WM_PAINT:
PaintUpDownControl(np, (HDC)wParam);
break;
#ifdef KEYBOARDCUES
case WM_UPDATEUISTATE:
//not sure need to set bit, will probably not use it, on the other hand this
// is consistent with remaining of common controls and not very expensive
CCOnUIState(&(np->ci), WM_UPDATEUISTATE, wParam, lParam);
goto DoDefault;
#endif
case UDM_SETRANGE:
np->nUpper = GET_X_LPARAM(lParam);
np->nLower = GET_Y_LPARAM(lParam);
nudge(np);
break;
case UDM_SETRANGE32:
np->nUpper = (int)lParam;
np->nLower = (int)wParam;
break;
case UDM_GETRANGE32:
if (lParam) {
*((LPINT)lParam) = np->nUpper;
}
if (wParam) {
*((LPINT)wParam) = np->nLower;
}
break;
case UDM_GETRANGE:
return MAKELONG(np->nUpper, np->nLower);
case UDM_SETBASE:
// wParam: new base
// lParam: not used
// return: 0 if invalid base is specified,
// previous base otherwise
return (LRESULT)setbase(np, (UINT)wParam);
case UDM_GETBASE:
return np->nBase;
case UDM_SETPOS:
lParam = GET_X_LPARAM(lParam);
// FALL THROUGH
case UDM_SETPOS32:
{
int iNewPos = (int)lParam;
if (compare(np, np->nLower, np->nUpper, DONTCARE) < 0) {
if (compare(np, iNewPos, np->nUpper, DONTCARE) > 0) {
iNewPos = np->nUpper;
}
if (compare(np, iNewPos, np->nLower, DONTCARE) < 0) {
iNewPos = np->nLower;
}
} else {
if (compare(np, iNewPos, np->nUpper, DONTCARE) < 0) {
iNewPos = np->nUpper;
}
if (compare(np, iNewPos, np->nLower, DONTCARE) > 0) {
iNewPos = np->nLower;
}
}
i = np->nPos;
np->nPos = iNewPos;
setint(np);
MyNotifyWinEvent(EVENT_OBJECT_VALUECHANGE, np->ci.hwnd, OBJID_CLIENT, 0);
return (LRESULT)i;
}
case UDM_GETPOS:
lres = getint(np, &f);
return MAKELRESULT(lres, f);
case UDM_GETPOS32:
return getint(np, (BOOL *)lParam);
case UDM_SETBUDDY:
return setbuddy(np, (HWND)wParam);
case UDM_GETBUDDY:
return (LRESULT)np->hwndBuddy;
case UDM_SETACCEL:
if (wParam == 0)
return(FALSE);
if (wParam >= NUM_UDACCELS)
{
HANDLE npPrev = (HANDLE)np;
np = (PUDSTATE)LocalReAlloc((HLOCAL)npPrev, sizeof(UDSTATE)+(wParam-NUM_UDACCELS)*sizeof(UDACCEL),
LMEM_MOVEABLE);
if (!np)
{
return(FALSE);
}
else
{
SetWindowPtr(hwnd, 0, np);
if ((np->ci.style & UDS_ARROWKEYS) && np->hwndBuddy)
{
np->fSubclassed = TRUE;
SetWindowSubclass(np->hwndBuddy, ArrowKeyProc, 0,
(ULONG_PTR)np);
}
}
}
np->nAccel = (UINT) wParam;
for (i=0; i<(int)wParam; ++i)
{
np->udAccel[i] = ((LPUDACCEL)lParam)[i];
}
return(TRUE);
case UDM_GETACCEL:
if (wParam > np->nAccel)
{
wParam = np->nAccel;
}
for (i=0; i<(int)wParam; ++i)
{
((LPUDACCEL)lParam)[i] = np->udAccel[i];
}
return(np->nAccel);
case WM_NOTIFYFORMAT:
return CIHandleNotifyFormat(&np->ci, lParam);
case WM_CREATE:
// Allocate the instance data space.
np = (PUDSTATE)LocalAlloc(LPTR, sizeof(UDSTATE));
if (!np)
return -1;
SetWindowPtr(hwnd, 0, np);
#define lpCreate ((CREATESTRUCT FAR *)lParam)
CIInitialize(&np->ci, hwnd, lpCreate);
// np->fUp =
// np->fDown =
// np->fUnsigned =
// np->fSharedBorder =
// np->fSunkenBorder =
// FALSE;
if (lpCreate->style & UDS_UNSIGNED)
np->fUnsigned = TRUE;
if (lpCreate->dwExStyle & WS_EX_CLIENTEDGE)
np->fSunkenBorder = TRUE;
np->nBase = BASE_DECIMAL;
np->nUpper = 0;
np->nLower = 100;
np->nPos = 0;
np->hwndBuddy = NULL;
np->uClass = CLASS_UNKNOWN;
ASSERT(np->cReenterSetint == 0);
np->nAccel = NUM_UDACCELS;
np->udAccel[0].nSec = 0;
np->udAccel[0].nInc = 1;
np->udAccel[1].nSec = 2;
np->udAccel[1].nInc = 5;
np->udAccel[2].nSec = 5;
np->udAccel[2].nInc = 20;
/* This does the pickbuddy and anchor
*/
setbuddy(np, NULL);
setint(np);
break;
case WM_DESTROY:
if (np) {
if (np->hwndBuddy)
{
// Our buddy needs to be unsubclassed, which we'll do
// in response to WM_NCDESTROY; doing so now would
// bust any subsequent call to the suclass proc.
DebugMsg(DM_TRACE, TEXT("UpDown Destroyed while buddy subclassed"));
np->fUpDownDestroyed = TRUE;
}
else
LocalFree((HLOCAL)np);
SetWindowPtr(hwnd, 0, 0);
}
break;
case WM_GETOBJECT:
if( lParam == OBJID_QUERYCLASSNAMEIDX )
return MSAA_CLASSNAMEIDX_UPDOWN;
goto DoDefault;
default:
{
LRESULT lres;
if (CCWndProc(&np->ci, uMsg, wParam, lParam, &lres))
return lres;
}
DoDefault:
return DefWindowProc(hwnd, uMsg, wParam, lParam);
}
return 0L;
}
// InitUpDownClass:
// Adds our WNDCLASS to the system.
#pragma code_seg(CODESEG_INIT)
BOOL FAR PASCAL InitUpDownClass(HINSTANCE hInst)
{
WNDCLASS wndclass;
if (!GetClassInfo(hInst, s_szUpdownClass, &wndclass))
{
#ifndef WIN32
extern LRESULT CALLBACK _UpDownWndProc(HWND, UINT, WPARAM, LPARAM);
wndclass.lpfnWndProc = _UpDownWndProc;
#else
wndclass.lpfnWndProc = UpDownWndProc;
#endif
wndclass.lpszClassName = s_szUpdownClass;
wndclass.hInstance = hInst;
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
wndclass.hIcon = NULL;
wndclass.lpszMenuName = NULL;
wndclass.hbrBackground = (HBRUSH)(COLOR_BTNFACE + 1);
wndclass.style = CS_HREDRAW | CS_VREDRAW | CS_GLOBALCLASS;
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = sizeof(PUDSTATE);
return RegisterClass(&wndclass);
}
return TRUE;
}
#pragma code_seg()