home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / samples / refch27 / ccsample.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-30  |  7.7 KB  |  337 lines
  1. /************************************************
  2.  *
  3.  *  Realizer Reference Manual Sample Program
  4.  *
  5.  *  Chapter 27: CCSample.C
  6.  *
  7.  *  Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  8.  *  All rights reserved.
  9.  *
  10.  ************************************************/
  11.  
  12.  
  13. #include <windows.h> 
  14. #include "CustCtrl.h" 
  15.  
  16. HANDLE    hLibInstance; 
  17.  
  18. /* 
  19.  * Constants for the countdown timer 
  20.  */ 
  21.  
  22. #define TIMER_CLASS    "CountDownTimer" 
  23.  
  24. #define TIMER_FONT    0        /* 2 bytes, handle to font */ 
  25. #define TIMER_DOWNCT    2    /* 2 bytes, current count (65535 max) */ 
  26. #define TIMER_ON        4    /* 2 bytes, non-zero if on */ 
  27.                             /*  bit 0: set if timer is running */ 
  28.                             /*  bit 1: toggles display at 0 */ 
  29. #define TIMER_ENDTICK    6    /* 4 bytes, GetTickCount value at which */ 
  30.                             /*   TIMER_DOWNCT should hit zero */ 
  31. #define TIMER_EXTRA    10 
  32.  
  33.  
  34. /* 
  35.  * Constants for the size message generator 
  36.  */ 
  37.  
  38. #define SIZEMSG_CLASS    "SizeMsg" 
  39. #define SIZEMSG_EXTRA    0 
  40.  
  41.  
  42. /* 
  43.  * Notify Parent - notifies the custom control's form 
  44.  */ 
  45.  
  46. void NotifyParent (HWND hWnd) 
  47. { 
  48.     SendMessage( 
  49.         GetParent(hWnd),            /* this is the form */ 
  50.         WM_COMMAND, 
  51.         GetWindowWord(hWnd, GWW_ID),    /* this is hWnd's item num */ 
  52.         MAKELONG((int)hWnd, BN_CLICKED)    /* looks like a click */ 
  53.     ); 
  54. } 
  55.  
  56.  
  57. /* 
  58.  * FormatSecs - formats the display for the timer 
  59.  */ 
  60.  
  61. void FormatSecs(HWND hWnd, LPSTR buf) 
  62. { 
  63.     WORD    wOn, wSecs; 
  64.     int        len; 
  65.  
  66.     wOn = GetWindowWord(hWnd, TIMER_ON); 
  67.     wSecs = GetWindowWord(hWnd, TIMER_DOWNCT); 
  68.  
  69.     if (wSecs > 9999) 
  70.         wsprintf(buf, "****"); 
  71.     else { 
  72.         len = wsprintf(buf, "%d", wSecs); 
  73.         if ((wOn & 2) != 0) 
  74.             buf[len - 1] = '_'; 
  75.     } 
  76. } 
  77.  
  78.  
  79. /* 
  80.  * TimerServer - Window procedure for the countdown timer 
  81.  */ 
  82.  
  83. extern LONG FAR PASCAL 
  84. TimerServer(HWND hWnd, unsigned msg, WORD wP, LONG lP) 
  85. { 
  86.     PAINTSTRUCT    ps; 
  87.     RECT        cr; 
  88.     HFONT        hFont; 
  89.     HDC        hDC; 
  90.     HBRUSH    hBgndBrush; 
  91.     LPLONG    lpMods; 
  92.     LONG        lTick, lNewCount; 
  93.     WORD        wOn; 
  94.     int        height, wCount; 
  95.     char        buf[10]; 
  96.  
  97.     switch (msg) { 
  98.  
  99.     case WM_DESTROY: 
  100.  
  101.         /* If the timer is running, kill it */ 
  102.         if (GetWindowWord(hWnd, TIMER_ON)) 
  103.             KillTimer(hWnd, 1); 
  104.         break; 
  105.  
  106.     case WM_TIMER: 
  107.  
  108.         /* If the timer is still running... */ 
  109.         if (wOn = GetWindowWord(hWnd, TIMER_ON)) { 
  110.  
  111.             /* Force the display to be updated */ 
  112.             InvalidateRect(hWnd, NULL, TRUE); 
  113.  
  114.             if (wCount = GetWindowWord(hWnd, TIMER_DOWNCT)) { 
  115.  
  116.                 /* Adjust the count to the actual time */ 
  117.                 lTick = GetWindowLong(hWnd, TIMER_ENDTICK); 
  118.                 lTick = (lTick - GetTickCount() + 500) / 1000; 
  119.                 if (HIWORD(lTick)) 
  120.                     wCount = 0; 
  121.                 else 
  122.                     wCount = LOWORD(lTick); 
  123.                 SetWindowWord(hWnd, TIMER_DOWNCT, wCount); 
  124.  
  125.             } else { 
  126.  
  127.                 /* The timer is at zero. Toggle the display */ 
  128.                 SetWindowWord(hWnd, TIMER_ON, wOn ^ 2); 
  129.  
  130.             } 
  131.  
  132.             /* If the timer has hit zero, notify the form */ 
  133.             if (wCount == 0) 
  134.                 NotifyParent(hWnd); 
  135.         } 
  136.         break; 
  137.  
  138.     case WM_SETFONT: 
  139.  
  140.         /* Store the font handle in TIMER_FONT */ 
  141.         if (wP) { 
  142.             SetWindowWord(hWnd, TIMER_FONT, wP); 
  143.             InvalidateRect(hWnd, NULL, TRUE); 
  144.         } 
  145.         break; 
  146.  
  147.     case CCM_SETNUM: 
  148.  
  149.         /* Get the modifer list */ 
  150.         lpMods = (LPLONG)lP; 
  151.  
  152.         /* If the new count is out of range, return 0 */ 
  153.         lNewCount = lpMods[0]; 
  154.         if (lNewCount < 0 || lNewCount > 65535) 
  155.             return (0); 
  156.  
  157.         /* Store the new count and force a display update */ 
  158.         SetWindowWord(hWnd, TIMER_DOWNCT, LOWORD(lNewCount)); 
  159.         InvalidateRect(hWnd, NULL, TRUE); 
  160.  
  161.         /* Resynchronize the timer */ 
  162.         KillTimer(hWnd, 1);                     
  163.         if (lNewCount == 0) 
  164.             SetWindowWord(hWnd, TIMER_ON, 0); 
  165.         else { 
  166.             SetWindowWord(hWnd, TIMER_ON, 1); 
  167.             SetTimer(hWnd, 1, 1000, NULL); 
  168.             SetWindowLong(hWnd, TIMER_ENDTICK,  
  169.                     lNewCount * 1000 + GetTickCount()); 
  170.         } 
  171.         return (1);             
  172.  
  173.     case CCM_GETNUM: 
  174.  
  175.         /* Return the value of the timer, -1 if it's off */ 
  176.         if (GetWindowWord(hWnd, TIMER_ON)) 
  177.             return (GetWindowWord(hWnd, TIMER_DOWNCT)); 
  178.         else 
  179.             return (-1L); 
  180.  
  181.     case CCM_QDEFAULTSIZE: 
  182.  
  183.         /* Calculate the size of "9999" and return that size */ 
  184.         hDC = GetDC(hWnd); 
  185.         if (hFont = GetWindowWord(hWnd, TIMER_FONT)) 
  186.             SelectObject(hDC, hFont); 
  187.         cr.left = cr.top = 0; 
  188.         cr.right = cr.bottom = 100; 
  189.         height = DrawText(hDC, "9999", -1, &cr,  
  190.                             DT_SINGLELINE | DT_CALCRECT); 
  191.         ReleaseDC(hWnd, hDC); 
  192.         return (MAKELONG(cr.right - cr.left + 2, height + 2)); 
  193.  
  194.     case CCM_GETFLAGS: 
  195.     case CCM_FORMSIZED: 
  196.     case CCM_RESETCONTENT: 
  197.         break; 
  198.  
  199.     case WM_ERASEBKGND: 
  200.  
  201.         /* let WM_PAINT do it */ 
  202.         return (1L); 
  203.  
  204.     case WM_PAINT: 
  205.  
  206.         /* Always do the whole display */ 
  207.         InvalidateRect(hWnd, NULL, TRUE);     
  208.  
  209.         BeginPaint(hWnd, &ps); 
  210.  
  211.         /* Color the background */ 
  212.         hBgndBrush = (HBRUSH)SendMessage(GetParent(hWnd), 
  213.             WM_CTLCOLOR, ps.hdc, MAKELONG(hWnd, CTLCOLOR_STATIC)); 
  214.         FillRect(ps.hdc, &ps.rcPaint, hBgndBrush); 
  215.  
  216.         /* Display the timer count */ 
  217.         FormatSecs(hWnd, buf); 
  218.         GetClientRect(hWnd, &cr); 
  219.         if (hFont = GetWindowWord(hWnd, TIMER_FONT)) 
  220.             SelectObject(ps.hdc, hFont); 
  221.         SetBkMode(ps.hdc, TRANSPARENT); 
  222.         DrawText(ps.hdc, buf, -1, &cr,  
  223.                     DT_SINGLELINE | DT_RIGHT | DT_VCENTER); 
  224.         EndPaint(hWnd, &ps); 
  225.         break; 
  226.  
  227.     default: 
  228.         return (DefWindowProc(hWnd, msg, wP, lP)); 
  229.     } 
  230.  
  231.     return (0L); 
  232. } 
  233.  
  234.  
  235. /* 
  236.  * SizeMsgServer - Window procedure for the 
  237.  *   size message generator 
  238.  */ 
  239.  
  240.  
  241. extern LONG FAR PASCAL 
  242. SizeMsgServer(HWND hWnd, unsigned msg, WORD wP, LONG lP) 
  243. { 
  244.     switch (msg) { 
  245.  
  246.         case CCM_QDEFAULTSIZE: 
  247.             return(0L); 
  248.  
  249.         case CCM_GETFLAGS: 
  250.             return(0L); 
  251.  
  252.         case CCM_FORMSIZED: 
  253.             NotifyParent(hWnd); 
  254.             break; 
  255.  
  256.         default: 
  257.             return(DefWindowProc(hWnd, msg, wP, lP)); 
  258.         } 
  259.  
  260.     return (0L); 
  261. } 
  262.  
  263.  
  264. /* 
  265.  * LibMain(hInstance, wDataSegment, wHeapSize, lpszCmdLine) 
  266.  * 
  267.  *    hInstance      library instance handle 
  268.  *    wDataSegment   library data segment 
  269.  *    wHeapSize      default heap size 
  270.  *    lpszCmdLine    command line arguments 
  271.  * 
  272.  * LibMain is called by LibEntry, which is called by Windows  
  273.  * when the DLL is loaded.  The LibEntry routine is provided 
  274.  * in the LIBENTRY.OBJ in the SDK Link Libraries disk. The  
  275.  * source, LIBENTRY.ASM, is also provided.   
  276.  * 
  277.  * LibEntry initializes the DLL's heap, if a HEAPSIZE value is 
  278.  * specified in the DLL's DEF file.  LibEntry then calls 
  279.  * LibMain.  The LibMain function below satisfies that call. 
  280.  * 
  281.  * LibMain registers the custom control window classes. 
  282.  * 
  283.  */ 
  284.   
  285. int FAR PASCAL LibMain( 
  286.    HANDLE      hInstance, 
  287.    WORD        wDataSegment, 
  288.    WORD        wHeapSize, 
  289.    LPSTR       lpszCmdLine) 
  290. { 
  291.     WNDCLASS        wc; 
  292.  
  293.     if (hLibInstance) return (TRUE); 
  294.  
  295.     /* define class attributes */ 
  296.     wc.style =            CS_HREDRAW | CS_VREDRAW | CS_GLOBALCLASS; 
  297.     wc.lpfnWndProc =        TimerServer; 
  298.     wc.cbClsExtra =        0; 
  299.     wc.cbWndExtra =        TIMER_EXTRA; 
  300.     wc.hInstance =        hInstance; 
  301.     wc.hIcon =            NULL; 
  302.     wc.hCursor =        LoadCursor(NULL, IDC_ARROW); 
  303.     wc.hbrBackground =    (HBRUSH)(COLOR_WINDOW + 1); 
  304.     wc.lpszMenuName =        NULL; 
  305.     wc.lpszClassName =    TIMER_CLASS; 
  306.  
  307.     if (!RegisterClass(&wc)) return (FALSE); 
  308.      
  309.     /* 
  310.      * all the parameters for the size message class 
  311.      * are the same, except for these three 
  312.      */ 
  313.       
  314.     wc.lpfnWndProc =        SizeMsgServer; 
  315.     wc.cbWndExtra =        SIZEMSG_EXTRA; 
  316.     wc.lpszClassName =     SIZEMSG_CLASS;     
  317.      
  318.     if (!RegisterClass(&wc)) return (FALSE); 
  319.          
  320.     hLibInstance = hInstance; 
  321.     return (TRUE); 
  322. } 
  323.  
  324.  
  325. /* 
  326.  * WEP 
  327.  * 
  328.  * Performs cleanup tasks when the DLL is unloaded.  WEP is 
  329.  * called automatically by Windows when the DLL is unloaded. 
  330.  */ 
  331.  
  332. VOID FAR PASCAL WEP(int bSystemExit) 
  333. { 
  334.     return; 
  335. } 
  336.  
  337.