home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / zfamily.zip / zfamily / ZDTFUNCS / SAMPLE / TSTSLIDR.INC < prev    next >
Text File  |  1993-09-20  |  3KB  |  68 lines
  1. /*
  2. ** /----------------------------------------------------------------------\
  3. ** |             IBM Z Family Reusable Libraries/2 (5641-504)             |
  4. ** |----------------------------------------------------------------------|
  5. ** | (C) Copyright International Business Machines Corporation 1993, 1994 |
  6. ** |----------------------------------------------------------------------|
  7. ** |                       DISCLAIMER OF WARRANTIES                       |
  8. ** |                       ------------------------                       |
  9. ** | The following code is sample code created by IBM Corporation.        |
  10. ** | Such a code is provided to you solely for the purpose of assisting   |
  11. ** | you in the development of your applications. The code is provided    |
  12. ** | "AS IS", without warranty of any kind.  IBM shall not be liable for  |
  13. ** | any damages arising out of your use of the following code, even if   |
  14. ** | they have been advised of the possibility of such damages.           |                                                                         *
  15. ** \----------------------------------------------------------------------/
  16. **
  17. **  Include : TSTSLIDR.INC
  18. **  Author  : Dario de Judicibus (DEJUDICI at ROMEPPC)
  19. **  Created : 21 Sep 1992
  20. **  Updated : 20 Sep 1993
  21. **  Version : 4.12
  22. **  Content : Called in WM_CONTROL (case TMEZONOFFSLD)
  23. **
  24. */
  25.  {
  26.    CHAR szWorkBuf[12] ; // Local scratch memory
  27.  
  28.    switch(SHORT2FROMMP(mp1)) // Switch on Notification Code
  29.    {
  30.      case SLN_CHANGE :       // Changed position (cursor)
  31.      case SLN_SLIDERTRACK :  // Continuos dragging
  32.           {
  33.             MPARAM mp  ;
  34.  
  35.             Tmezon = (TMEZONStruct *)WinQueryWindowULong(hWndClient, OFFSET_TMEZON) ;
  36.  
  37.            /*
  38.            **  Avoid looping between slider TMEZONOFFSLD and field TMEZONOFFFLD
  39.            */
  40.             if (! Tmezon->fromField)
  41.             {
  42.               mp = WinSendDlgItemMsg(hWndDlg, TMEZONOFFSLD,
  43.                                      SLM_QUERYSLIDERINFO,
  44.                                      MPFROM2SHORT(SMA_SLIDERARMPOSITION,
  45.                                      SMA_INCREMENTVALUE),
  46.                                      0L) ;
  47.  
  48.               Tmezon->TmeZonOffset = (ULONG)(SHORT1FROMMP(mp) - 12) ;
  49.  
  50.               _ltoa(Tmezon->TmeZonOffset, szWorkBuf, 10) ;
  51.  
  52.               Tmezon->fromSlider = TRUE ;  // Message to FIELD from SLIDER
  53.               WinSetDlgItemText(hWndDlg, TMEZONOFFFLD, szWorkBuf) ;
  54.               Tmezon->fromSlider = FALSE ; // Reset flag                   
  55.             }
  56.             else
  57.             {
  58.               return(WinDefDlgProc(hWndDlg, message, mp1, mp2)) ;
  59.             }
  60.           }
  61.           break ;
  62.  
  63.      default :                // Default other messages
  64.           return(WinDefDlgProc(hWndDlg, message, mp1, mp2)) ;
  65.           break ;
  66.    }
  67.  }
  68.