Leaked source code of windows server 2003
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.
 
 
 
 
 
 

756 lines
18 KiB

//----------------------------------------------------------
//
// BUGBUG: make sure this stuff really works with the DWORD
// ranges
//
//----------------------------------------------------------
#include "ctlspriv.h"
#include "tracki.h"
#ifndef _WIN32
#include "muldiv32.h"
#else
#define MulDiv32 MulDiv
#endif
#define THUMBSLOP 2
#define TICKHEIGHT 2
#define ABS(X) (X >= 0) ? X : -X
#define BOUND(x,low,high) max(min(x, high),low)
#define LONG2POINT(l, pt) ((pt).x = (SHORT)LOWORD(l), (pt).y = (SHORT)HIWORD(l))
TCHAR aszTrackbarClassName[] = TRACKBAR_CLASS;
LPARAM FAR CALLBACK _loadds TrackBarWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam);
//
// convert a logical scroll-bar position to a physical pixel position
//
static int NEAR PASCAL TBLogToPhys(PTrackBar tb, DWORD dwPos)
{
if (tb->lLogMax == tb->lLogMin)
return tb->rc.left;
return (UINT)MulDiv32(dwPos - tb->lLogMin, tb->iSizePhys - 1,
tb->lLogMax - tb->lLogMin) + tb->rc.left;
}
static LONG NEAR PASCAL TBPhysToLog(PTrackBar tb, int iPos)
{
if (tb->iSizePhys <= 1)
return tb->lLogMin;
if (iPos <= tb->rc.left)
return tb->lLogMin;
if (iPos >= tb->rc.right)
return tb->lLogMax;
return MulDiv32(iPos - tb->rc.left, tb->lLogMax - tb->lLogMin,
tb->iSizePhys - 1) + tb->lLogMin;
}
/*
Initialize the trackbar code.
*/
BOOL FAR PASCAL InitTrackBar(HINSTANCE hInstance)
{
WNDCLASS wc;
if (!GetClassInfo(hInstance, aszTrackbarClassName, &wc)) {
// See if we must register a window class
wc.lpszClassName = aszTrackbarClassName;
wc.lpfnWndProc = TrackBarWndProc;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hIcon = NULL;
wc.lpszMenuName = NULL;
wc.hbrBackground = (HBRUSH)(NULL);
wc.hInstance = hInstance;
wc.style = CS_GLOBALCLASS | CS_DBLCLKS;
wc.cbClsExtra = 0;
wc.cbWndExtra = EXTRA_TB_BYTES;
if (!RegisterClass(&wc))
return FALSE;
}
return TRUE;
}
static void NEAR PASCAL PatRect(HDC hdc,int x,int y,int dx,int dy)
{
RECT rc;
rc.left = x;
rc.top = y;
rc.right = x + dx;
rc.bottom = y + dy;
ExtTextOut(hdc,0,0,ETO_OPAQUE,&rc,NULL,0,NULL);
}
static void NEAR PASCAL DrawTic(PTrackBar tb, int x, int yTic)
{
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNTEXT));
PatRect(tb->hdc,(x),yTic,1,TICKHEIGHT);
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNHIGHLIGHT));
PatRect(tb->hdc,(x)+1,yTic,1,TICKHEIGHT);
}
/* DrawTics() */
/* There is always a tick at the beginning and end of the bar, but you can */
/* add some more of your own with a TBM_SETTIC message. This draws them. */
/* They are kept in an array whose handle is a window word. The first */
/* element is the number of extra ticks, and then the positions. */
static void NEAR PASCAL DrawTics(PTrackBar tb)
{
PDWORD pTics;
int iPos;
int yTic;
int i;
yTic = tb->rc.bottom + THUMBSLOP + 1;
// !!! Not for MCIWnd
// DrawTic(tb, tb->rc.left, yTic); // first
// DrawTic(tb, tb->rc.right-1, yTic); // last
// those inbetween
pTics = tb->pTics;
if (pTics) {
for (i = 0; i < tb->nTics; ++i) {
iPos = TBLogToPhys(tb,pTics[i]);
DrawTic(tb, iPos, yTic);
}
}
// draw the selection range (triangles)
if ((tb->Flags & TBF_SELECTION) &&
(tb->lSelStart <= tb->lSelEnd) && (tb->lSelEnd >= tb->lLogMin)) {
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNTEXT));
iPos = TBLogToPhys(tb,tb->lSelStart);
for (i=0; i < TICKHEIGHT; i++)
PatRect(tb->hdc,iPos-i,yTic+i,1,TICKHEIGHT-i);
iPos = TBLogToPhys(tb,tb->lSelEnd);
for (i=0; i < TICKHEIGHT; i++)
PatRect(tb->hdc,iPos+i,yTic+i,1,TICKHEIGHT-i);
}
// !!! Not for MCIWnd
// line across the bottom
// SetBkColor(tb->hdc, GetSysColor(COLOR_BTNTEXT));
// PatRect(tb->hdc, tb->rc.left, yTic+TICKHEIGHT,tb->iSizePhys,1);
//
// SetBkColor(tb->hdc, GetSysColor(COLOR_BTNHIGHLIGHT));
// PatRect(tb->hdc, tb->rc.left, yTic+TICKHEIGHT+1,tb->iSizePhys,1);
}
/* This draws the track bar itself */
static void NEAR PASCAL DrawChannel(PTrackBar tb)
{
HBRUSH hbrTemp;
// draw the frame around the window
SetBkColor(tb->hdc, GetSysColor(COLOR_WINDOWFRAME));
PatRect(tb->hdc, tb->rc.left, tb->rc.top, tb->iSizePhys, 1);
PatRect(tb->hdc, tb->rc.left, tb->rc.bottom-2, tb->iSizePhys, 1);
PatRect(tb->hdc, tb->rc.left, tb->rc.top, 1, tb->rc.bottom-tb->rc.top-1);
PatRect(tb->hdc, tb->rc.right-1, tb->rc.top, 1, tb->rc.bottom-tb->rc.top-1);
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNHIGHLIGHT));
PatRect(tb->hdc, tb->rc.left, tb->rc.bottom-1, tb->iSizePhys, 1);
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNSHADOW));
PatRect(tb->hdc, tb->rc.left+1, tb->rc.top + 1, tb->iSizePhys-2,1);
// draw the background in dither gray
hbrTemp = SelectObject(tb->hdc, hbrDither);
if (hbrTemp) {
PatBlt(tb->hdc, tb->rc.left+1, tb->rc.top + 2,
tb->iSizePhys-2, tb->rc.bottom-tb->rc.top-4, PATCOPY);
SelectObject(tb->hdc, hbrTemp);
}
// now highlight the selection range
if ((tb->Flags & TBF_SELECTION) &&
(tb->lSelStart <= tb->lSelEnd) && (tb->lSelEnd > tb->lLogMin)) {
int iStart, iEnd;
iStart = TBLogToPhys(tb,tb->lSelStart);
iEnd = TBLogToPhys(tb,tb->lSelEnd);
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNTEXT));
PatRect(tb->hdc, iStart,tb->rc.top+1,1,tb->rc.bottom-tb->rc.top-2);
PatRect(tb->hdc, iEnd, tb->rc.top+1,1,tb->rc.bottom-tb->rc.top-2);
if (iStart + 2 <= iEnd) {
SetBkColor(tb->hdc, GetSysColor(COLOR_BTNHIGHLIGHT));
PatRect(tb->hdc, iStart+1, tb->rc.top+1, iEnd-iStart-1, tb->rc.bottom-tb->rc.top-3);
}
}
}
static void NEAR PASCAL MoveThumb(PTrackBar tb, LONG lPos)
{
InvalidateRect(tb->hwnd, &tb->Thumb, TRUE);
tb->lLogPos = BOUND(lPos,tb->lLogMin,tb->lLogMax);
tb->Thumb.left = TBLogToPhys(tb, tb->lLogPos) - tb->wThumbWidth/2;
tb->Thumb.right = tb->Thumb.left + tb->wThumbWidth;
tb->Thumb.top = tb->rc.top - THUMBSLOP;
tb->Thumb.bottom = tb->rc.bottom + THUMBSLOP;
InvalidateRect(tb->hwnd, &tb->Thumb, TRUE);
UpdateWindow(tb->hwnd);
}
static void NEAR PASCAL DrawThumb(PTrackBar tb)
{
HBITMAP hbmT;
HDC hdcT;
int x;
hdcT = CreateCompatibleDC(tb->hdc);
if( (tb->Cmd == TB_THUMBTRACK) || !IsWindowEnabled(tb->hwnd) )
x = tb->wThumbWidth;
else
x = 0;
hbmT = SelectObject(hdcT, hbmThumb);
if (hbmT) {
BitBlt(tb->hdc,tb->Thumb.left, tb->rc.top-THUMBSLOP,
tb->wThumbWidth, tb->wThumbHeight, hdcT, x + 2*tb->wThumbWidth, 0, SRCAND);
BitBlt(tb->hdc,tb->Thumb.left, tb->rc.top-THUMBSLOP,
tb->wThumbWidth, tb->wThumbHeight, hdcT, x, 0, SRCPAINT);
}
SelectObject(hdcT, hbmT);
DeleteDC(hdcT);
}
/* SetTBCaretPos() */
/* Make the caret flash in the middle of the thumb when it has the focus */
static void NEAR PASCAL SetTBCaretPos(PTrackBar tb)
{
// We only get the caret if we have the focus.
if (tb->hwnd == GetFocus())
SetCaretPos(tb->Thumb.left + tb->wThumbWidth / 2,
tb->Thumb.top + THUMBSLOP);
}
static void NEAR PASCAL DoAutoTics(PTrackBar tb)
{
LONG NEAR *pl;
LONG l;
if (!(GetWindowLong(tb->hwnd, GWL_STYLE) & TBS_AUTOTICKS))
return;
tb->nTics = (int)(tb->lLogMax - tb->lLogMin - 1);
// If our length is zero, we'll blow!
if (tb->nTics <= 0) {
tb ->nTics = 0;
return;
}
if (tb->pTics)
LocalFree((HANDLE)tb->pTics);
tb->pTics = (DWORD NEAR *)LocalAlloc(LPTR, sizeof(DWORD) * tb->nTics);
if (!tb->pTics) {
tb->nTics = 0;
return;
}
for (pl = (LONG NEAR *)tb->pTics, l = tb->lLogMin + 1; l < tb->lLogMax; l++)
*pl++ = l;
}
LPARAM FAR CALLBACK _loadds TrackBarWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
PTrackBar tb;
PAINTSTRUCT ps;
BITMAP bm;
HANDLE h;
HDC hdc;
HBRUSH hbr;
RECT rc;
tb = TrackBarLock(hwnd);
switch (message) {
case WM_CREATE:
if (!CreateDitherBrush(FALSE))
return -1;
// Get us our window structure.
TrackBarCreate(hwnd);
tb = TrackBarLock(hwnd);
tb->hwnd = hwnd;
tb->Cmd = (UINT)-1;
/* load the 2 thumb bitmaps (pressed and released) */
CreateThumb(FALSE);
GetObject(hbmThumb, sizeof(bm), &bm);
// bitmap has up and down thumb and up&down masks
tb->wThumbWidth = (UINT)(bm.bmWidth/4);
tb->wThumbHeight = (UINT)bm.bmHeight;
// all lLog fields are zero inited by
// the LocalAlloc();
// fall through to WM_SIZE
case WM_SIZE:
GetClientRect(hwnd, &tb->rc);
tb->rc.bottom = tb->rc.top + tb->wThumbHeight - THUMBSLOP;
tb->rc.top += THUMBSLOP;
tb->rc.left += tb->wThumbWidth/2;
tb->rc.right -= tb->wThumbWidth/2;
// Figure out how much room we have to move the thumb in
//!!! -2
tb->iSizePhys = tb->rc.right - tb->rc.left;
// Elevator isn't there if there's no room.
if (tb->iSizePhys == 0) {
// Lost our thumb.
tb->Flags |= TBF_NOTHUMB;
tb->iSizePhys = 1;
} else {
// Ah. We have a thumb.
tb->Flags &= ~TBF_NOTHUMB;
}
InvalidateRect(hwnd, NULL, TRUE);
MoveThumb(tb, tb->lLogPos);
break;
case WM_DESTROY:
TrackBarDestroy(hwnd);
FreeDitherBrush();
DestroyThumb();
break;
case WM_SETFOCUS:
// We gots the focus. We need a caret.
CreateCaret(hwnd, (HBITMAP)1,
3, tb->wThumbHeight - 2 * THUMBSLOP);
SetTBCaretPos(tb);
ShowCaret(hwnd);
break;
case WM_KILLFOCUS:
DestroyCaret();
break;
case WM_ERASEBKGND:
hdc = (HDC) wParam;
#ifdef _WIN32
hbr = (HBRUSH)(UINT)SendMessage(GetParent(hwnd),
WM_CTLCOLORSTATIC, (WPARAM) hdc, (LPARAM)hwnd);
#else
hbr = (HBRUSH)(UINT)SendMessage(GetParent(hwnd),
WM_CTLCOLOR, (WPARAM) hdc,
MAKELONG(hwnd, CTLCOLOR_STATIC);
#endif
if (hbr) {
GetClientRect(hwnd, &rc);
FillRect(hdc, &rc, hbr);
return(FALSE);
}
return(TRUE);
break;
case WM_ENABLE:
InvalidateRect(hwnd, NULL, FALSE);
break;
case WM_PAINT:
if (wParam == 0)
tb->hdc = BeginPaint(hwnd, &ps);
else
tb->hdc = (HDC)wParam;
// Update the dither brush if necessary.
CheckSysColors();
DrawTics(tb);
DrawThumb(tb);
ExcludeClipRect(tb->hdc, tb->Thumb.left, tb->Thumb.top,
tb->Thumb.right, tb->Thumb.bottom);
DrawChannel(tb);
SetTBCaretPos(tb);
if (wParam == 0)
EndPaint(hwnd, &ps);
tb->hdc = NULL;
break;
case WM_GETDLGCODE:
return DLGC_WANTARROWS;
break;
case WM_LBUTTONDOWN:
/* Give ourselves focus */
// !!! MCIWnd wants to keep focus
// SetFocus(hwnd);
TBTrackInit(tb, lParam);
break;
case WM_LBUTTONUP:
// We're through doing whatever we were doing with the
// button down.
TBTrackEnd(tb, lParam);
break;
case WM_TIMER:
// The only way we get a timer message is if we're
// autotracking.
lParam = GetMessagePos();
ScreenToClient(tb->hwnd, (LPPOINT)&lParam);
// fall through to WM_MOUSEMOVE
case WM_MOUSEMOVE:
// We only care that the mouse is moving if we're
// tracking the bloody thing.
if (tb->Cmd != (UINT)-1) {
if (GetCapture() != tb->hwnd) {
TBTrackEnd(tb, lParam);
return 0L;
}
TBTrack(tb, lParam);
}
return 0L;
case WM_KEYUP:
// If key was any of the keyboard accelerators, send end
// track message when user up clicks on keyboard
switch (wParam) {
case VK_HOME:
case VK_END:
case VK_PRIOR:
case VK_NEXT:
case VK_LEFT:
case VK_UP:
case VK_RIGHT:
case VK_DOWN:
DoTrack(tb, TB_ENDTRACK, 0);
break;
default:
break;
}
break;
case WM_KEYDOWN:
switch (wParam) {
case VK_HOME:
wParam = TB_TOP;
goto KeyTrack;
case VK_END:
wParam = TB_BOTTOM;
goto KeyTrack;
case VK_PRIOR:
wParam = TB_PAGEUP;
goto KeyTrack;
case VK_NEXT:
wParam = TB_PAGEDOWN;
goto KeyTrack;
case VK_LEFT:
case VK_UP:
wParam = TB_LINEUP;
goto KeyTrack;
case VK_RIGHT:
case VK_DOWN:
wParam = TB_LINEDOWN;
KeyTrack:
DoTrack(tb, wParam, 0);
break;
default:
break;
}
break;
case TBM_GETPOS:
return tb->lLogPos;
case TBM_GETSELSTART:
return tb->lSelStart;
case TBM_GETSELEND:
return tb->lSelEnd;
case TBM_GETRANGEMIN:
return tb->lLogMin;
case TBM_GETRANGEMAX:
return tb->lLogMax;
case TBM_GETPTICS:
return (LONG)(LPVOID)tb->pTics;
case TBM_CLEARSEL:
tb->Flags &= ~TBF_SELECTION;
tb->lSelStart = -1;
tb->lSelEnd = -1;
goto RedrawTB;
case TBM_CLEARTICS:
if (tb->pTics)
LocalFree((HLOCAL)tb->pTics);
tb->nTics = 0;
tb->pTics = NULL;
goto RedrawTB;
case TBM_GETTIC:
if (tb->pTics == NULL || (int)wParam >= tb->nTics)
return -1L;
return tb->pTics[wParam];
case TBM_GETTICPOS:
if (tb->pTics == NULL || (int)wParam >= tb->nTics)
return -1L;
return TBLogToPhys(tb,tb->pTics[wParam]);
case TBM_GETNUMTICS:
return tb->nTics;
case TBM_SETTIC:
/* not a valid position */
if (lParam < 0)
break;
if (tb->pTics)
h = LocalReAlloc((HLOCAL)tb->pTics,
sizeof(DWORD) * (UINT)(tb->nTics + 1),
LMEM_MOVEABLE | LMEM_ZEROINIT);
else
h = LocalAlloc(LPTR, sizeof(DWORD));
if (h)
tb->pTics = (PDWORD)h;
else
return (LONG)FALSE;
tb->pTics[tb->nTics++] = (DWORD)lParam;
InvalidateRect(hwnd, NULL, TRUE);
return (LONG)TRUE;
break;
case TBM_SETPOS:
/* Only redraw if it will physically move */
if (wParam && TBLogToPhys(tb, lParam) !=
TBLogToPhys(tb, tb->lLogPos))
MoveThumb(tb, lParam);
else
tb->lLogPos = BOUND(lParam,tb->lLogMin,tb->lLogMax);
break;
case TBM_SETSEL:
tb->Flags |= TBF_SELECTION;
tb->lSelStart = LOWORD(lParam);
tb->lSelEnd = HIWORD(lParam);
if (tb->lSelEnd < tb->lSelStart)
tb->lSelEnd = tb->lSelStart;
goto RedrawTB;
case TBM_SETSELSTART:
tb->Flags |= TBF_SELECTION;
tb->lSelStart = lParam;
if (tb->lSelEnd < tb->lSelStart || tb->lSelEnd == -1)
tb->lSelEnd = tb->lSelStart;
goto RedrawTB;
case TBM_SETSELEND:
tb->Flags |= TBF_SELECTION;
tb->lSelEnd = lParam;
if (tb->lSelStart > tb->lSelEnd || tb->lSelStart == -1)
tb->lSelStart = tb->lSelEnd;
goto RedrawTB;
case TBM_SETRANGE:
tb->lLogMin = LOWORD(lParam);
tb->lLogMax = HIWORD(lParam);
DoAutoTics(tb);
goto RedrawTB;
case TBM_SETRANGEMIN:
tb->lLogMin = (DWORD)lParam;
goto RedrawTB;
case TBM_SETRANGEMAX:
tb->lLogMax = (DWORD)lParam;
RedrawTB:
tb->lLogPos = BOUND(tb->lLogPos, tb->lLogMin,tb->lLogMax);
/* Only redraw if flag says so */
if (wParam) {
InvalidateRect(hwnd, NULL, TRUE);
MoveThumb(tb, tb->lLogPos);
}
break;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
/* DoTrack() */
static void NEAR PASCAL DoTrack(PTrackBar tb, int cmd, DWORD dwPos)
{
// note: we only send back a WORD worth of the position.
#ifdef _WIN32
SendMessage(GetParent(tb->hwnd), WM_HSCROLL,
MAKELONG(cmd, LOWORD(dwPos)), (LPARAM)tb->hwnd);
#else
SendMessage(GetParent(tb->hwnd), WM_HSCROLL, cmd,
MAKELONG(LOWORD(dwPos), tb->hwnd));
#endif
}
/* WTrackType() */
static WORD NEAR PASCAL WTrackType(PTrackBar tb, LONG lParam)
{
POINT pt;
#ifdef _WIN32
LONG2POINT(lParam, pt);
#else
pt = MAKEPOINT(lParam);
#endif
if (tb->Flags & TBF_NOTHUMB) // If no thumb, just leave.
return 0;
if (PtInRect(&tb->Thumb, pt))
return TB_THUMBTRACK;
if (!PtInRect(&tb->rc, pt))
return 0;
if (pt.x >= tb->Thumb.left)
return TB_PAGEDOWN;
else
return TB_PAGEUP;
}
/* TBTrackInit() */
static void NEAR PASCAL TBTrackInit(PTrackBar tb, LONG lParam)
{
UINT wCmd;
if (tb->Flags & TBF_NOTHUMB) // No thumb: just leave.
return;
wCmd = WTrackType(tb, lParam);
if (!wCmd)
return;
HideCaret(tb->hwnd);
SetCapture(tb->hwnd);
tb->Cmd = wCmd;
tb->dwDragPos = (DWORD)-1;
// Set up for auto-track (if needed).
if (wCmd != TB_THUMBTRACK) {
// Set our timer up
tb->Timer = (UINT)SetTimer(tb->hwnd, TIMER_ID, REPEATTIME, NULL);
}
TBTrack(tb, lParam);
}
/* EndTrack() */
static void near PASCAL TBTrackEnd(PTrackBar tb, long lParam)
{
lParam = lParam; // Just reference this variable
// If we lose mouse capture we need to call this
// if (GetCapture() != tb->hwnd)
// return;
// Let the mouse go.
ReleaseCapture();
// Decide how we're ending this thing.
if (tb->Cmd == TB_THUMBTRACK)
DoTrack(tb, TB_THUMBPOSITION, tb->dwDragPos);
if (tb->Timer)
KillTimer(tb->hwnd, TIMER_ID);
tb->Timer = 0;
// Always send TB_ENDTRACK message.
DoTrack(tb, TB_ENDTRACK, 0);
// Give the caret back.
ShowCaret(tb->hwnd);
// Nothing going on.
tb->Cmd = (UINT)-1;
MoveThumb(tb, tb->lLogPos);
}
static void NEAR PASCAL TBTrack(PTrackBar tb, LONG lParam)
{
DWORD dwPos;
// See if we're tracking the thumb
if (tb->Cmd == TB_THUMBTRACK) {
dwPos = TBPhysToLog(tb, LOWORD(lParam));
// Tentative position changed -- notify the guy.
if (dwPos != tb->dwDragPos) {
tb->dwDragPos = dwPos;
MoveThumb(tb, dwPos);
DoTrack(tb, TB_THUMBTRACK, dwPos);
}
}
else {
if (tb->Cmd != WTrackType(tb, lParam))
return;
DoTrack(tb, tb->Cmd, 0);
}
}