SPIN_DLL.C

Go to the documentation of this file.

/* file SPIN_DLL.C DLL to do SPIN buttons */

#include <windows.h>

#pragma warning( disable : 4312)

#include "spin_dll.h"

#if __SC__
#pragma ZTC align 1
#endif

#define CBWNDEXTRA            (16)
#define GWL_RANGE             (0)
#define GWL_CRNTVALUE         (4)
#define GWL_TRIANGLEPRESSED   (8)
#define GWL_EDITCTRL          (12)

#define SPNM_SCROLLVALUE      (WM_USER + 500)

   // Time delay between scrolling events in milliseconds.
#define TIME_DELAY            (150)

typedef enum { TP_NONE, TP_UP, TP_DOWN } TRIANGLEPRESSED;

char _szControlName[] = "Spin";

ATOM  RegisterControlClass (HINSTANCE hInstance);
LRESULT CALLBACK SpinWndFn
   (HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

/*** Window's Dynamic-Link Library Initialization Routines ******/

#if __WATCOMC__
int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#elif __BCC__
int APIENTRY DllEntryPoint(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#else
BOOL WINAPI DllMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#endif
  static BOOL unregister=TRUE;
  switch (dwReason) {
    case DLL_PROCESS_ATTACH: {
//      MessageBox (GetFocus(),"Spin","Process attaching",MB_OK|MB_SYSTEMMODAL);
      if(!RegisterControlClass(hDLL)){
        unregister=FALSE;
      }
      break;
    }
    case DLL_PROCESS_DETACH:
      if(unregister)UnregisterClass(_szControlName, hDLL);
//      MessageBox (GetFocus(),"Spin","Process detaching",MB_OK|MB_SYSTEMMODAL);
      break;
  }
  return (int)TRUE;
}

#if __SC__
#pragma startaddress(DllMain)
#endif

/****************************************************************/

ATOM  RegisterControlClass (HINSTANCE hInstance) {
   WNDCLASS wc;
   wc.style         = CS_GLOBALCLASS | CS_HREDRAW | CS_VREDRAW;
   wc.lpfnWndProc   = (WNDPROC)SpinWndFn;
   wc.cbClsExtra    = 0;
   wc.cbWndExtra    = CBWNDEXTRA;
   wc.hInstance     = hInstance;
   wc.hIcon         = (HICON) NULL;
   wc.hCursor       = LoadCursor((HINSTANCE) NULL, IDC_ARROW);
   wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
   wc.lpszMenuName  = NULL;
   wc.lpszClassName = _szControlName;
   return(RegisterClass(&wc));
}

static LRESULT  NotifyParent
           (HWND hWndControl, WORD wNotifyCode) {
   LRESULT lResult;
   lResult = SendMessage(GetParent(hWndControl), WM_COMMAND,
             MAKELPARAM((WORD)GetWindowLong(hWndControl,GWL_ID),wNotifyCode),
             (LPARAM)hWndControl);
   return(lResult);
}

#if 0
//  old function //
LRESULT CALLBACK SpinWndFn(HWND hWnd,UINT uMsg,WPARAM wParam,LPARAM lParam){
   HWND hEdit;
   LRESULT lResult = 0;
   HDC hDC;
   POINT pt;
   RECT rc,rc1;
   PAINTSTRUCT ps;
   int i, nCrntVal, nNewVal, x, y;
   TRIANGLEPRESSED TrianglePressed, OldTrianglePressed;
   DWORD dwEventTime, dwRange;
   BOOL fWrap;
   switch (uMsg) {
      case WM_GETDLGCODE:
         lResult = DLGC_STATIC;
         break;
      case WM_ENABLE:
         InvalidateRect(hWnd, NULL, FALSE);
         break;
      case WM_CREATE:
         SendMessage(hWnd, SPNM_SETRANGE, 0, MAKELPARAM(0, 0));
         SendMessage(hWnd, SPNM_SETEDITCTRL,0,(LPARAM)NULL);
         SendMessage(hWnd, SPNM_SETCRNTVALUE, 0, 0);
         break;
      case WM_PAINT:
         hDC = BeginPaint(hWnd, &ps);
         GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
         x = rc.right / 2;
         y = rc.bottom / 2;
         MoveToEx(hDC, 0, y, NULL);           // Draw middle separator bar
         LineTo(hDC, rc.right, y);
         // Draw rectangle round control
         SelectObject(hDC, GetStockObject(HOLLOW_BRUSH));
         Rectangle(hDC,0,0,rc.right+1,rc.bottom);
         SelectObject(hDC, GetStockObject(BLACK_BRUSH));
         MoveToEx(hDC, x, 2, NULL);
         LineTo(hDC, rc.right - 2, y - 2);
         LineTo(hDC, 2, y - 2);
         LineTo(hDC, x, 2);
         FloodFill(hDC, x, y - 3, RGB(0, 0, 0));
         MoveToEx(hDC, 2, y + 2, NULL);
         LineTo(hDC, rc.right - 2, y + 2);
         LineTo(hDC, x, rc.bottom - 2);
         LineTo(hDC, 2, y + 2);
         FloodFill(hDC, x, y + 3, RGB(0, 0, 0));
         EndPaint(hWnd, &ps);
         break;
      case WM_LBUTTONDOWN:
         // first if attached to edit control get the integer value
         // and check that itis in range
         if((hEdit=(HWND)GetWindowLong(hWnd, GWL_EDITCTRL)) != NULL){
           char str[32];
           dwRange = SendMessage(hWnd, SPNM_GETRANGE, 0, 0l);
           nCrntVal=(int)SendMessage(hWnd,SPNM_GETCRNTVALUE,0,0l);
           i=(int)SendMessage(hEdit,WM_GETTEXT,(WPARAM)32,(LPARAM)str);
           if(i > 0){
             nNewVal=atoi(str);
             if (nNewVal > (int)HIWORD(dwRange))nNewVal=(int)HIWORD(dwRange);
             if (nNewVal < (int)LOWORD(dwRange))nNewVal=(int)LOWORD(dwRange);
           }
           else nNewVal=nCrntVal;
           SendMessage(hWnd, SPNM_SETCRNTVALUE, nNewVal, 0l);
         }
         GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
         if ((int) HIWORD(lParam) < rc.bottom / 2) {  // Up arrow
            TrianglePressed = TP_UP;
            rc.bottom /= 2;
         } else {
            TrianglePressed = TP_DOWN;
            rc.top = rc.bottom / 2;
         }
         SetWindowLong(hWnd, GWL_TRIANGLEPRESSED, TrianglePressed);
         hDC = GetDC(hWnd);
         CopyRect(&rc1,&rc); rc1.left+= 1; rc1.top += 1; rc1.bottom -= 1;
         InvertRect(hDC, &rc1);
         ReleaseDC(hWnd, hDC);
         SetCapture(hWnd);
         dwEventTime = GetTickCount() - TIME_DELAY;
         do {
            if (dwEventTime > GetTickCount()) continue;
            SendMessage(hWnd, SPNM_SCROLLVALUE, 0, 0l);
            dwEventTime = GetTickCount() + TIME_DELAY;
         } while (GetAsyncKeyState(VK_LBUTTON) & 0x8000);
         ReleaseCapture();
         InvalidateRect(hWnd, NULL, TRUE);
         break;
      case SPNM_SCROLLVALUE:
         GetCursorPos(&pt);
         ScreenToClient(hWnd, &pt);
         GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
         if (!PtInRect(&rc, pt)) break;
         nNewVal = (int)SendMessage(hWnd, SPNM_GETCRNTVALUE, 0, 0l);
         nCrntVal = nNewVal;
         dwRange = SendMessage(hWnd, SPNM_GETRANGE, 0, 0l);
         fWrap = (BOOL)(GetWindowLong(hWnd, GWL_STYLE) & SPNS_WRAP);
         OldTrianglePressed = (TRIANGLEPRESSED)
            GetWindowLong(hWnd, GWL_TRIANGLEPRESSED);
         // Determine which triangle the mouse is now over
         TrianglePressed = (pt.y < rc.bottom / 2)
            ? TP_UP : TP_DOWN;
         // If the user has switched triangles, invert the entire
         // rectangle. This restores the half that was inverted in
         // the WM_LBUTTONDOWN message and inverts the new half.
         if (OldTrianglePressed != TrianglePressed) {
            hDC = GetDC(hWnd);
            CopyRect(&rc1,&rc); rc1.left+= 1; rc1.top += 1; rc1.bottom -= 1;
            InvertRect(hDC, &rc1);
            ReleaseDC(hWnd, hDC);
         }
         if (TrianglePressed == TP_UP) {
            // If value is not at top of range, increment it.
            if ((int) HIWORD(dwRange) > nCrntVal) nNewVal++;
            else {
               // If value at top of range and the "wrap" flag
               // is set, set value to the bottom of the range.
               if (fWrap) nNewVal = (int) LOWORD(dwRange);
            }
         }
         else {
            // If value is not at bottom of range, decrement it.
            if ((int) LOWORD(dwRange) < nCrntVal) nNewVal--;
            else {
               // If value at bottom of range and the "wrap" flag
               // is set, set the value to the top of the range.
               if (fWrap) nNewVal = (int) HIWORD(dwRange);
            }
         }
         // If the value has been changed, set the new value.
         if (nNewVal != nCrntVal)
            SendMessage(hWnd, SPNM_SETCRNTVALUE, nNewVal, 0l);
         // Set the new triangle pressed for the next call to here
         SetWindowLong(hWnd,
            GWL_TRIANGLEPRESSED, TrianglePressed);
         break;
      case SPNM_SETRANGE:
         SetWindowLong(hWnd, GWL_RANGE, lParam);
         break;
      case SPNM_GETRANGE:
         lResult = GetWindowLong(hWnd, GWL_RANGE);
         break;
      case SPNM_SETCRNTVALUE:
         SetWindowLong(hWnd, GWL_CRNTVALUE, wParam);
         if((hEdit=(HWND)GetWindowLong(hWnd, GWL_EDITCTRL)) != NULL){
           char str[16];
           sprintf(str,"%ld",wParam);
           SendMessage(hEdit,WM_SETTEXT,0,(LPARAM)str);
           InvalidateRect(hEdit,NULL,TRUE);
           UpdateWindow(hEdit);
         }
         NotifyParent(hWnd, SPNN_VALUECHANGE);
         break;
      case SPNM_GETCRNTVALUE:
         lResult = (LRESULT) GetWindowLong(hWnd, GWL_CRNTVALUE);
         break;
      case SPNM_SETEDITCTRL:
         SetWindowLong(hWnd, GWL_EDITCTRL, lParam);
         break;
      default:
         lResult = DefWindowProc(hWnd, uMsg, wParam, lParam);
         break;
   }
   return(lResult);
}
// end of old function //
#endif

static void DrawSpinUp(HDC dc, LPRECT lpr){
 HBRUSH hbr;
 int width,height;
 width  = lpr->right - lpr->left;
 height = lpr->bottom - lpr->top;
 hbr = SelectObject (dc, CreateSolidBrush (GetSysColor (COLOR_BTNFACE)));
 PatBlt(dc,lpr->left,lpr->top, width, height, PATCOPY);
 DeleteObject (SelectObject (dc, hbr));
 PatBlt(dc,lpr->left,lpr->top, 1, height - 1, WHITENESS);
 PatBlt(dc,lpr->left,lpr->top, width - 1, 1, WHITENESS);
 hbr = SelectObject (dc, CreateSolidBrush (GetSysColor (COLOR_BTNSHADOW)));
 PatBlt(dc,lpr->right - 1, lpr->top, 1, height, PATCOPY);
 PatBlt(dc,lpr->left, lpr->bottom - 1, width, 1, PATCOPY);
 DeleteObject (SelectObject (dc, hbr));
}

static void DrawSpinDn(HDC dc, LPRECT lpr){
 HBRUSH hbr;
 int width, height;
 width  = lpr->right - lpr->left;
 height = lpr->bottom - lpr->top;
 hbr = SelectObject(dc,CreateSolidBrush (GetSysColor (COLOR_BTNFACE)));
 PatBlt(dc,lpr->left,lpr->top,width, height, PATCOPY);
 DeleteObject (SelectObject (dc, hbr));
 hbr=SelectObject(dc,CreateSolidBrush(GetSysColor(COLOR_BTNHIGHLIGHT)));
 PatBlt(dc,lpr->right,lpr->top, 1, height, PATCOPY);
 PatBlt(dc,lpr->left,lpr->bottom, width, 1, PATCOPY);
 DeleteObject(SelectObject(dc,CreateSolidBrush(GetSysColor(COLOR_BTNSHADOW))));
 PatBlt(dc,lpr->left,lpr->top, 1, height, PATCOPY);
 PatBlt(dc,lpr->left,lpr->top, width, 1, PATCOPY);
 DeleteObject(SelectObject (dc, hbr));
}

static void DrawSpinArrow(HDC hDC,int x,int y,int ud){
 int i,k;
 for(i=0;i<5;i++){
   if(ud > 0)k=y+i;
   else      k=y+4-i;
   MoveToEx(hDC,x-i,k,NULL); LineTo(hDC,x+i+1,k);
 }
}

static void DrawSpinButtons(HWND hWnd, HDC hDCin, int id){
 HDC hDC;
 RECT rc,rc1;
 int x,y,yi;
 if(hDCin == NULL)hDC = GetDC(hWnd);
 else             hDC = hDCin;
 GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
 rc1.left=1; rc1.top=1; rc1.right=rc.right; rc1.bottom=rc.bottom/2;
 if(id > 0)DrawSpinDn(hDC,&rc1);
 else      DrawSpinUp(hDC,&rc1);
 rc1.top=rc.bottom/2+1; rc1.bottom=rc.bottom;
 if(id < 0)DrawSpinDn(hDC,&rc1);
 else      DrawSpinUp(hDC,&rc1);
 x = rc.right / 2;
 y = rc.bottom / 2;
 SelectObject(hDC, GetStockObject(HOLLOW_BRUSH));
 Rectangle(hDC,0,0,rc.right+1,rc.bottom);
 MoveToEx(hDC, 0, y, NULL);
 LineTo(hDC, rc.right, y);
 if(id > 0)yi=1; else yi=0;
 DrawSpinArrow(hDC,x+yi,(rc.bottom/2-5)/2+yi, 1);
 if(id < 0)yi=1; else yi=0;
 DrawSpinArrow(hDC,x+yi,y+1+(rc.bottom/2-5)/2+yi,-1);
 if(hDCin == NULL)ReleaseDC(hWnd, hDC);
}

LRESULT CALLBACK SpinWndFn(HWND hWnd,UINT uMsg,WPARAM wParam,LPARAM lParam){
   HWND hEdit;
   LRESULT lResult = 0;
   HDC hDC;
   POINT pt;
   RECT rc,rc1;
   PAINTSTRUCT ps;
   int i, nCrntVal, nNewVal, x, y;
   TRIANGLEPRESSED TrianglePressed, OldTrianglePressed;
   DWORD dwEventTime, dwRange;
   BOOL fWrap;
   switch (uMsg) {
      case WM_GETDLGCODE:
         lResult = DLGC_STATIC;
         break;
      case WM_ENABLE:
         InvalidateRect(hWnd, NULL, FALSE);
         break;
      case WM_CREATE:
         SendMessage(hWnd, SPNM_SETRANGE, 0, MAKELPARAM(0, 0));
         SendMessage(hWnd, SPNM_SETEDITCTRL,0,(LPARAM)NULL);
         SendMessage(hWnd, SPNM_SETCRNTVALUE, 0, 0);
         break;
      case WM_PAINT:
         hDC = BeginPaint(hWnd, &ps);
         DrawSpinButtons(hWnd,hDC,0);
         EndPaint(hWnd, &ps);
         break;
      case WM_LBUTTONDOWN:
         if((hEdit=(HWND)GetWindowLong(hWnd, GWL_EDITCTRL)) != NULL){
           char str[32];
           dwRange = SendMessage(hWnd, SPNM_GETRANGE, 0, 0l);
           nCrntVal=(int)SendMessage(hWnd,SPNM_GETCRNTVALUE,0,0l);
           i=(int)SendMessage(hEdit,WM_GETTEXT,(WPARAM)32,(LPARAM)str);
           if(i > 0){
             nNewVal=atoi(str);
             if (nNewVal > (int)HIWORD(dwRange))nNewVal=(int)HIWORD(dwRange);
             if (nNewVal < (int)LOWORD(dwRange))nNewVal=(int)LOWORD(dwRange);
           }
           else nNewVal=nCrntVal;
           SendMessage(hWnd, SPNM_SETCRNTVALUE, nNewVal, 0l);
         }
         GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
         if((int) HIWORD(lParam) < rc.bottom / 2) {  // Up arrow
           TrianglePressed = TP_UP;
           DrawSpinButtons(hWnd,NULL,1);
//           rc.bottom /= 2;
         }
         else{
           TrianglePressed = TP_DOWN;
           DrawSpinButtons(hWnd,NULL,-1);
//           rc.top = rc.bottom / 2;
         }
         SetWindowLong(hWnd, GWL_TRIANGLEPRESSED, TrianglePressed);
//         hDC = GetDC(hWnd);
//         CopyRect(&rc1,&rc); rc1.left+= 1; rc1.top += 1; rc1.bottom -= 1;
//         InvertRect(hDC, &rc1);
//         ReleaseDC(hWnd, hDC);
         SetCapture(hWnd);
         dwEventTime = GetTickCount() - TIME_DELAY;
         do {
           if(dwEventTime > GetTickCount()) continue;
           SendMessage(hWnd, SPNM_SCROLLVALUE, 0, 0l);
           dwEventTime = GetTickCount() + TIME_DELAY;
         } while (GetAsyncKeyState(VK_LBUTTON) & 0x8000);
         ReleaseCapture();
         InvalidateRect(hWnd, NULL, TRUE);
         break;
      case SPNM_SCROLLVALUE:
         GetCursorPos(&pt);
         ScreenToClient(hWnd, &pt);
         GetClientRect(hWnd, &rc); rc.right=rc.bottom/2;
         if (!PtInRect(&rc, pt)) break;
         nNewVal = (int)SendMessage(hWnd, SPNM_GETCRNTVALUE, 0, 0l);
         nCrntVal = nNewVal;
         dwRange = SendMessage(hWnd, SPNM_GETRANGE, 0, 0l);
         fWrap = (BOOL)(GetWindowLong(hWnd, GWL_STYLE) & SPNS_WRAP);
         OldTrianglePressed = (TRIANGLEPRESSED)
            GetWindowLong(hWnd, GWL_TRIANGLEPRESSED);
         TrianglePressed = (pt.y < rc.bottom / 2)
            ? TP_UP : TP_DOWN;
         if(OldTrianglePressed != TrianglePressed) {
            if(TrianglePressed == TP_UP)DrawSpinButtons(hWnd,NULL, 1);
            else                        DrawSpinButtons(hWnd,NULL,-1);
//            hDC = GetDC(hWnd);
//            CopyRect(&rc1,&rc); rc1.left+= 1; rc1.top += 1; rc1.bottom -= 1;
//            InvertRect(hDC, &rc1);
//            ReleaseDC(hWnd, hDC);
         }
         if(TrianglePressed == TP_UP) {
           if((int) HIWORD(dwRange) > nCrntVal) nNewVal++;
           else {
            if(fWrap)nNewVal = (int) LOWORD(dwRange);
           }
         }
         else{
           if((int) LOWORD(dwRange) < nCrntVal) nNewVal--;
           else {
             if(fWrap) nNewVal = (int) HIWORD(dwRange);
           }
         }
         if(nNewVal != nCrntVal)
            SendMessage(hWnd,SPNM_SETCRNTVALUE,nNewVal,0l);
         SetWindowLong(hWnd,GWL_TRIANGLEPRESSED,TrianglePressed);
         break;
      case SPNM_SETRANGE:
         SetWindowLong(hWnd, GWL_RANGE, lParam);
         break;
      case SPNM_GETRANGE:
         lResult = GetWindowLong(hWnd, GWL_RANGE);
         break;
      case SPNM_SETCRNTVALUE:
         SetWindowLong(hWnd, GWL_CRNTVALUE, wParam);
         if((hEdit=(HWND)GetWindowLong(hWnd, GWL_EDITCTRL)) != NULL){
           char str[16];
           sprintf(str,"%ld",wParam);
           SendMessage(hEdit,WM_SETTEXT,0,(LPARAM)str);
           InvalidateRect(hEdit,NULL,TRUE);
           UpdateWindow(hEdit);
         }
         NotifyParent(hWnd, SPNN_VALUECHANGE);
         break;
      case SPNM_GETCRNTVALUE:
         lResult = (LRESULT) GetWindowLong(hWnd, GWL_CRNTVALUE);
         break;
      case SPNM_SETEDITCTRL:
         SetWindowLong(hWnd, GWL_EDITCTRL, lParam);
         break;
      default:
         lResult = DefWindowProc(hWnd, uMsg, wParam, lParam);
         break;
   }
   return(lResult);
}