home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / SLIDCO.ZIP / SLIDDLG.C < prev    next >
C/C++ Source or Header  |  1993-02-02  |  24KB  |  807 lines
  1. #define INCL_DOS
  2. #define INCL_ERRORS
  3. #define INCL_DOSDEVIOCTL
  4. #define INCL_DOSDEVICES
  5. #define INCL_PM
  6. #include <os2.h>
  7. #include <process.h>
  8. #include <conio.h>
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <stddef.h>
  12. #include <string.h>
  13.  
  14. #include "protype.h"
  15. #include "sliddlg.h"
  16. #include "extern.h"
  17.  
  18.  
  19.  
  20. typedef struct
  21. {
  22.    HFILE  CommHandle;
  23.    char   CommName[10];
  24. } COMMSTRUCT;
  25.  
  26. COMMSTRUCT  CommStruct[4] =   {0,"COM1",
  27.                                0,"COM2",
  28.                                0,"COM3",
  29.                                0,"COM4" };
  30.  
  31. LINECONTROL DataPacket;
  32.  
  33. CHAR PrintBuf[80];
  34.  
  35.  
  36. #define TOTALSPINVALS   11
  37. static PSZ   SpinSelectVals[] = {"1200", "1800", "2000", "2400","3600",
  38.                      "4800", "7200", "9600", "19200", "38400",
  39.                      "57600"};
  40.  
  41. #define MaximumTicks      100
  42. #define MinorTickSpacing  1
  43. #define MinorTickSize     4
  44. #define MajorTickSpacing  5 
  45. #define MajorTickSize     8
  46. #define DetentSpacing     10
  47. #define TextSpacing       10
  48.  
  49. static USHORT LastVal;
  50.  
  51. /****************************************************************************
  52.  
  53. ****************************************************************************/
  54. MRESULT EXPENTRY ComSelectDlgProc( HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  55. {
  56.  
  57.    APIRET RetCode;
  58.  
  59.    switch(msg)
  60.    {
  61.       //*********************************
  62.       case WM_INITDLG:
  63.          RetCode = WmInitComSelect(  hwnd);
  64.          return (MRESULT)1;
  65.  
  66.  
  67.       //*********************************
  68.       case WM_COMMAND:
  69.          switch( SHORT1FROMMP( mp1 ) )     /* Extract the command value    */
  70.          {
  71.             case DID_OK:
  72.                RetCode = OpenComPort(  hwnd);
  73.                if (RetCode != 0)
  74.                   break;
  75.  
  76.             case DID_CANCEL: 
  77.                WinDismissDlg( hwnd, TRUE ); 
  78.                return (MRESULT)FALSE;
  79.  
  80.            default:
  81.                break;
  82.          }
  83.          break;
  84.  
  85.  
  86.       //*********************************
  87.       default:
  88.          return(WinDefDlgProc(hwnd, msg, mp1, mp2));
  89.    }
  90.    return (MRESULT)0;
  91. }
  92.  
  93. /****************************************************************************
  94.  
  95. ****************************************************************************/
  96. MRESULT EXPENTRY ComInitDlgProc( HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  97. {
  98.  
  99.    APIRET RetCode;
  100.  
  101.    switch(msg)
  102.    {
  103.       //*********************************
  104.       case WM_INITDLG:
  105.          
  106.          if ( CommPortOpen(hwnd) == FALSE)
  107.             {
  108.             WinDismissDlg( hwnd, TRUE );  
  109.             return (MRESULT)FALSE;
  110.             }
  111.  
  112.          InitLineBits(hwnd);
  113.          InitializeSpinButton( hwnd);
  114.  
  115.          return (MRESULT)1;
  116.  
  117.  
  118.       //*********************************
  119.       case WM_COMMAND:
  120.          switch( SHORT1FROMMP( mp1 ) )     /* Extract the command value    */
  121.          {
  122.             case DID_OK:
  123.                RetCode = SetLineBitVals( hwnd);
  124.                if (RetCode != 0)
  125.                   break;
  126.                RetCode = SetBiteRate( hwnd);
  127.                if (RetCode != 0)
  128.                   break;
  129.             
  130.                
  131.             case DID_CANCEL: 
  132.                WinDismissDlg( hwnd, TRUE ); 
  133.                return (MRESULT)FALSE;
  134.  
  135.            default:
  136.                break;
  137.          }
  138.          break;
  139.  
  140.  
  141.       //*********************************
  142.       default:
  143.          return(WinDefDlgProc(hwnd, msg, mp1, mp2));
  144.    }
  145.    return (MRESULT)0;
  146. }
  147.  
  148.  
  149. /****************************************************************************
  150.  
  151. First time through HandleComm = 0, no port initially selected
  152.  
  153. On "exit" either no port was selected or an initial port was selected or
  154. a different port was selected.
  155.  
  156.  
  157. ****************************************************************************/
  158. APIRET OpenComPort( HWND hwnd)
  159. {
  160.    MRESULT QueryButtonCheck;
  161.    short ButtonIndex;
  162.    APIRET rc;
  163.    ULONG ulAction;
  164.    CHAR PrintBuf[100];
  165.    int i;
  166.  
  167.  
  168.    if (HandleComm != 0) //HandleComm does = 0 first time through
  169.       {                 //find open port and close, so can open new selection
  170.       for (i=0; i < 4; i++)
  171.          {
  172.          if (CommStruct[i].CommHandle == HandleComm)
  173.             {
  174.             rc = DosClose(CommStruct[i].CommHandle);
  175.             CommStruct[i].CommHandle = 0;
  176.             if (rc)
  177.                {
  178.                sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  179.                WinDebugMsg(PrintBuf,hwnd);
  180.                }
  181.             break;
  182.             }
  183.          }
  184.       }
  185.  
  186.    
  187.    //Determine which port selected by user if any
  188.    
  189.    for (ButtonIndex=0; ButtonIndex < 4; ButtonIndex++)
  190.       {
  191.       QueryButtonCheck = WinSendDlgItemMsg(hwnd,
  192.          IDC_COMM1_SELECT+ButtonIndex,
  193.          BM_QUERYCHECK,
  194.          (MPARAM) 0,
  195.          (MPARAM) 0);
  196.  
  197.       if (SHORT1FROMMP(QueryButtonCheck) == 1)
  198.          {
  199.          //Open the selected comm port
  200.          rc = DosOpen(CommStruct[ButtonIndex].CommName,
  201.                      &CommStruct[ButtonIndex].CommHandle,
  202.                      &ulAction,
  203.                      0,
  204.                      FILE_NORMAL,
  205.                      FILE_OPEN,
  206.                      OPEN_ACCESS_READWRITE | OPEN_SHARE_DENYNONE,
  207.                      (PEAOP2) NULL);
  208.  
  209.          if (rc)
  210.             {
  211.             sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  212.             WinDebugMsg(PrintBuf,hwnd);
  213.             WinSetFocus (HWND_DESKTOP,
  214.                            WinWindowFromID(hwnd,DID_OK));
  215.             HandleComm = 0;
  216.             return 1;
  217.             }
  218.  
  219.          // Set the global variable
  220.          HandleComm = CommStruct[ButtonIndex].CommHandle;
  221.  
  222.          return 0;
  223.  
  224.          }
  225.       }
  226.  
  227.    return 0;
  228.  
  229. }
  230. /****************************************************************************
  231.  
  232. ****************************************************************************/
  233. APIRET WmInitComSelect( HWND hwnd)
  234. {
  235.  
  236.    int i;
  237.  
  238.    if (HandleComm == 0) //no comm port open, uncheck all buttons
  239.       {
  240.       for (i=0; i < 4; i++)
  241.          {
  242.           WinSendDlgItemMsg(hwnd,
  243.                         IDC_COMM1_SELECT+i,
  244.                         BM_SETCHECK,
  245.                         MPFROM2SHORT(FALSE,0),
  246.                         NULL);
  247.          WinSetFocus (HWND_DESKTOP,
  248.             WinWindowFromID(hwnd,IDC_COMM1_SELECT+i));
  249.          }
  250.          WinSetFocus (HWND_DESKTOP,
  251.             WinWindowFromID(hwnd,DID_OK));
  252.       return 0;
  253.       }
  254.  
  255.    //otherwise, search for the open comm port and check corresponding button  
  256.  
  257.    for (i=0; i < 4; i++)
  258.       {
  259.       if (CommStruct[i].CommHandle == HandleComm)
  260.          {
  261.           WinSendDlgItemMsg(hwnd,
  262.                         IDC_COMM1_SELECT+i,
  263.                         BM_SETCHECK,
  264.                         MPFROM2SHORT(TRUE,0),
  265.                         NULL);
  266.          WinSetFocus (HWND_DESKTOP,
  267.             WinWindowFromID(hwnd,IDC_COMM1_SELECT+i));
  268.          }
  269.       }
  270.       return 0;
  271.  
  272. }
  273.  
  274.  
  275. /****************************************************************************
  276.  
  277. ****************************************************************************/
  278. APIRET InitLineBits(HWND hwnd)
  279. {
  280.  
  281.    APIRET rc;
  282.    ULONG DataPacketLen;
  283.  
  284.  
  285.  
  286.    rc = DosDevIOCtl (HandleComm,
  287.                      IOCTL_ASYNC,
  288.                      ASYNC_GETLINECTRL,
  289.                      NULL,                  //no parameter packet
  290.                      0,                  // = 0
  291.                      NULL,                  // length of parm packet
  292.                      (PULONG) &DataPacket,
  293.                      sizeof(DataPacket),
  294.                      &DataPacketLen);
  295.  
  296.    rc = DosDevIOCtl (HandleComm,
  297.                      IOCTL_ASYNC,
  298.                      ASYNC_GETLINECTRL,
  299.                      NULL,                  //no parameter packet
  300.                      0,                  // = 0
  301.                      NULL,                  // length of parm packet
  302.                      (PULONG) &DataPacket,
  303.                      sizeof(DataPacket),
  304.                      &DataPacketLen);
  305.  
  306.    if (rc)
  307.       {
  308.       sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  309.       WinDebugMsg(PrintBuf,hwnd);
  310.       }
  311.  
  312.  
  313.    WinSendDlgItemMsg(hwnd,
  314.                      (ULONG) IDC_DATA_BIT5 + (DataPacket.bDataBits - 5),
  315.                      (ULONG) BM_SETCHECK,
  316.                      MPFROM2SHORT(TRUE,0),
  317.                      NULL);
  318.  
  319.    WinSendDlgItemMsg(hwnd,IDC_PARITY_NO + DataPacket.bParity,
  320.                         BM_SETCHECK,
  321.                         MPFROM2SHORT(TRUE,0),
  322.                         NULL);
  323.  
  324.    WinSendDlgItemMsg(hwnd,IDC_STOP_BIT1 + DataPacket.bStopBits,
  325.                         BM_SETCHECK,
  326.                         MPFROM2SHORT(TRUE,0),
  327.                         NULL);
  328.  
  329.  
  330.  
  331.  
  332.    WinSetFocus (HWND_DESKTOP, WinWindowFromID(hwnd,DID_OK));
  333.  
  334.  
  335.    return 0;
  336. }
  337. /****************************************************************************
  338.  
  339. ****************************************************************************/
  340. APIRET SetLineBitVals( HWND hwnd)
  341. {
  342.  
  343.  
  344.    APIRET rc;
  345.    ULONG DataPacketLen;
  346.  
  347.    MRESULT QueryButtonCheck;
  348.    short ButtonIndex;
  349.  
  350.    
  351.    for (ButtonIndex=0; ButtonIndex < 4; ButtonIndex++)
  352.       {
  353.       QueryButtonCheck = WinSendDlgItemMsg(hwnd,
  354.          IDC_DATA_BIT5+ButtonIndex,
  355.          BM_QUERYCHECK,
  356.          (MPARAM) 0,
  357.          (MPARAM) 0);
  358.  
  359.       if (SHORT1FROMMP(QueryButtonCheck) == 1)
  360.          {
  361.          DataPacket.bDataBits = ButtonIndex + 5;
  362.          }
  363.       }
  364.  
  365.    for (ButtonIndex=0; ButtonIndex < 5; ButtonIndex++)
  366.       {
  367.       QueryButtonCheck = WinSendDlgItemMsg(hwnd,
  368.          IDC_PARITY_NO+ButtonIndex,
  369.          BM_QUERYCHECK,
  370.          (MPARAM) 0,
  371.          (MPARAM) 0);
  372.  
  373.       if (SHORT1FROMMP(QueryButtonCheck) == 1)
  374.          {
  375.          DataPacket.bParity = ButtonIndex;
  376.          }
  377.       }
  378.    for (ButtonIndex=0; ButtonIndex < 3; ButtonIndex++)
  379.       {
  380.       QueryButtonCheck = WinSendDlgItemMsg(hwnd,
  381.          IDC_STOP_BIT1+ButtonIndex,
  382.          BM_QUERYCHECK,
  383.          (MPARAM) 0,
  384.          (MPARAM) 0);
  385.  
  386.       if (SHORT1FROMMP(QueryButtonCheck) == 1)
  387.          {
  388.          DataPacket.bStopBits = ButtonIndex;
  389.          }
  390.       }
  391.  
  392.  
  393.    rc = DosDevIOCtl (HandleComm,
  394.                      IOCTL_ASYNC,
  395.                      ASYNC_SETLINECTRL,
  396.                      (PULONG) &DataPacket,
  397.                      sizeof(DataPacket),
  398.                      &DataPacketLen,
  399.                      NULL,              
  400.                      0,                 
  401.                      NULL);
  402.  
  403.  
  404.    rc = DosDevIOCtl (HandleComm,
  405.                      IOCTL_ASYNC,
  406.                      ASYNC_SETLINECTRL,
  407.                      (PULONG) &DataPacket,
  408.                      sizeof(DataPacket),
  409.                      &DataPacketLen,
  410.                      NULL,              
  411.                      0,                 
  412.                      NULL);
  413.  
  414.  
  415.    if (rc)
  416.       {
  417.       sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  418.       WinDebugMsg(PrintBuf,hwnd);
  419.       }
  420.  
  421.    return 0;
  422.  
  423. }
  424.  
  425.  
  426. /*****************************************************************************
  427. *****************************************************************************/
  428. BOOL InitializeSpinButton(HWND hwnd)
  429. {
  430.  
  431.    USHORT usBitRate;
  432.    USHORT ArrayIndex;
  433.    char buffer[35];
  434.    char *p;
  435.  
  436.    if ( !WinSendDlgItemMsg( hwnd, IDC_SET_BIT_RATE, SPBM_SETARRAY, SpinSelectVals,
  437.              MPFROMLONG(TOTALSPINVALS)))
  438.       return FALSE;
  439.  
  440.  
  441.    usBitRate = Get_IOCTL_Bit_Rate(hwnd);
  442.  
  443.  
  444.    p = _itoa(usBitRate,buffer,10);
  445.  
  446.    for (ArrayIndex=0; ArrayIndex<TOTALSPINVALS; ArrayIndex++)
  447.       {
  448.       if ( strcmp( (const char * )SpinSelectVals[ArrayIndex],&buffer[0] ) == 0 )
  449.          {
  450.          WinSendDlgItemMsg( hwnd, IDC_SET_BIT_RATE, SPBM_SETCURRENTVALUE,
  451.              MPFROMLONG(ArrayIndex), NULL);
  452.          return TRUE;
  453.          }
  454.       }
  455.  
  456.    WinSetFocus (HWND_DESKTOP, WinWindowFromID(hwnd,DID_OK));
  457.  
  458.    return TRUE;
  459. } 
  460.  
  461. /****************************************************************************
  462.  
  463. ****************************************************************************/
  464. USHORT SetBiteRate( HWND hwnd)
  465. {
  466.  
  467.    ULONG ArrayIndex=0;
  468.    USHORT usBitRate;
  469.  
  470.    WinSendDlgItemMsg(hwnd,
  471.                         IDC_SET_BIT_RATE,
  472.                         SPBM_QUERYVALUE,
  473.                         &ArrayIndex,
  474.                         MPFROM2SHORT(0,0));
  475.      
  476.  
  477.    usBitRate = atoi( SpinSelectVals[ArrayIndex] );
  478.    Set_IOCTL_Bit_Rate(usBitRate,hwnd );
  479.  
  480.    return 0;
  481.  
  482.    
  483. }
  484.  
  485. /***************************************************************************/
  486. /*                                                                         */
  487. /***************************************************************************/
  488. void Set_IOCTL_Bit_Rate(USHORT BitRate,HWND hwnd)
  489. {
  490.    APIRET rc;
  491.    ULONG ParmPacketLen;
  492.    ParmPacketLen = 2;  //size of Parmpacket
  493.  
  494.    rc = DosDevIOCtl (HandleComm,
  495.                      IOCTL_ASYNC,
  496.                      ASYNC_SETBAUDRATE,
  497.                      (PULONG) &BitRate, 
  498.                      sizeof(BitRate),    //size input parm packet
  499.                      &ParmPacketLen,         // length of parm packet
  500.                      NULL,
  501.                      0,
  502.                      NULL);
  503.  
  504.    rc = DosDevIOCtl (HandleComm,
  505.                      IOCTL_ASYNC,
  506.                      ASYNC_SETBAUDRATE,
  507.                      (PULONG) &BitRate, 
  508.                      sizeof(BitRate),    //size input parm packet
  509.                      &ParmPacketLen,         // length of parm packet
  510.                      NULL,
  511.                      0,
  512.                      NULL);
  513.  
  514.  
  515.    if (rc)
  516.       {
  517.       sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  518.       WinDebugMsg(PrintBuf,hwnd);
  519.       }
  520.  
  521. }
  522. /***************************************************************************/
  523. /*                                                                         */
  524. /***************************************************************************/
  525. USHORT Get_IOCTL_Bit_Rate(HWND hwnd)
  526. {
  527.    APIRET rc;
  528.    USHORT DataPacket=0;
  529.    ULONG DataPacketLen;
  530.    DataPacket = 0;
  531.  
  532.    rc = DosDevIOCtl ( (HFILE) HandleComm,
  533.                      (ULONG) IOCTL_ASYNC,
  534.                      (ULONG) ASYNC_GETBAUDRATE,
  535.                      (PVOID) NULL,                  //no parameter packet
  536.                      (ULONG) NULL,                  // = 0
  537.                      (PULONG) NULL,                  // length of parm packet
  538.                      (PVOID) &DataPacket,
  539.                      (ULONG) sizeof(DataPacket),
  540.                      (PULONG) &DataPacketLen);
  541.  
  542.    rc = DosDevIOCtl ( (HFILE) HandleComm,
  543.                      (ULONG) IOCTL_ASYNC,
  544.                      (ULONG) ASYNC_GETBAUDRATE,
  545.                      (PVOID) NULL,                  //no parameter packet
  546.                      (ULONG) NULL,                  // = 0
  547.                      (PULONG) NULL,                  // length of parm packet
  548.                      (PVOID) &DataPacket,
  549.                      (ULONG) sizeof(DataPacket),
  550.                      (PULONG) &DataPacketLen);
  551.  
  552.  
  553.    if (rc)
  554.       {
  555.       sprintf(PrintBuf,"RC=%u Line=%u\nFile: %s",rc,__LINE__,__FILE__);
  556.       WinDebugMsg(PrintBuf,hwnd);
  557.       }
  558.  
  559.       return DataPacket;
  560.  
  561. }
  562.  
  563. /****************************************************************************
  564.  
  565. ****************************************************************************/
  566. MRESULT EXPENTRY SliderDlgProc( HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  567. {
  568.  
  569.    CHAR      acBuffer[10];
  570.    CHAR      *cData;
  571.    USHORT  usNewPctDone;
  572.    SHORT ulValue;
  573.    static SHORT sPtVal=0;
  574.    APIRET rc;
  575.  
  576.     switch(msg)
  577.     {
  578.        //*********************************
  579.        case WM_INITDLG:
  580.  
  581.          if ( CommPortOpen(hwnd) == FALSE)
  582.             {
  583.             WinDismissDlg( hwnd, TRUE );  
  584.             return (MRESULT)FALSE;
  585.             }
  586.          hwndDlg = hwnd; //used in read task to send term input
  587.          
  588.          InitSlider (hwnd, IDC_SLIDER_CONTROL,MaximumTicks,
  589.                          MinorTickSpacing,MinorTickSize, 
  590.                          MajorTickSpacing,MajorTickSize, 
  591.                          DetentSpacing, TextSpacing,    
  592.                         "10.Courier");
  593.  
  594.         //set the limit of the entry field    
  595.          WinSendDlgItemMsg(hwnd,
  596.                      IDC_SLIDER_DATA,
  597.                      EM_SETTEXTLIMIT,
  598.                      (MPARAM)3,
  599.                      (MPARAM)0);
  600.          
  601.          WinStartTimer( hab, hwnd,
  602.                      TMID_QUERY_TIMER,
  603.                      750);  //every 750 msec
  604.          LastVal = 0;        
  605.     
  606.          return 0;
  607.  
  608.       //*********************************
  609.       case WM_TERMINAL_MSG:
  610.          //sent from the DOS read thread
  611.          usNewPctDone    =    (USHORT) mp1;
  612.          if ( (usNewPctDone >= 0)  && (usNewPctDone <= MaximumTicks) )
  613.             {
  614.  
  615.             WinSendDlgItemMsg (hwnd, IDC_SLIDER_CONTROL,
  616.                         SLM_SETSLIDERINFO,
  617.                         MPFROM2SHORT (SMA_SLIDERARMPOSITION,
  618.                                         SMA_INCREMENTVALUE),
  619.                         MPFROMSHORT (usNewPctDone));
  620.              LastVal = usNewPctDone;
  621.              }
  622.  
  623.             return 0;
  624.  
  625.       //*********************************
  626.       case WM_TIMER:
  627.          
  628.             switch(SHORT1FROMMP(mp1))
  629.                {
  630.                case TMID_QUERY_TIMER:
  631.                  {
  632.                  ulValue = (SHORT) WinSendDlgItemMsg(hwnd, IDC_SLIDER_CONTROL,
  633.                      SLM_QUERYSLIDERINFO,
  634.                   MPFROM2SHORT(SMA_SLIDERARMPOSITION,SMA_INCREMENTVALUE),
  635.                   NULL);
  636.                  
  637.                   if ( ulValue != LastVal)
  638.                      {
  639.                      LastVal = ulValue;
  640.                      cData = _ltoa(ulValue,acBuffer,10);
  641.                      WinSetDlgItemText(hwnd,IDC_SLIDER_DATA, cData);
  642.                      strcat( acBuffer, " ");
  643.                      PrintTerm(acBuffer);
  644.                      }
  645.                   break;
  646.                   }
  647.                default: break;
  648.                }
  649.          break;
  650.  
  651.       //*********************************
  652.       case WM_CONTROL:
  653.          switch(SHORT2FROMMP(mp1))
  654.          {
  655.             case SLN_SLIDERTRACK:
  656.             case  SLN_CHANGE:
  657.                {
  658.                ulValue = (SHORT) WinSendDlgItemMsg(hwnd, IDC_SLIDER_CONTROL,
  659.                   SLM_QUERYSLIDERINFO,
  660.                   MPFROM2SHORT(SMA_SLIDERARMPOSITION,SMA_INCREMENTVALUE),
  661.                   NULL);
  662.                cData = _ltoa(ulValue,acBuffer,10);
  663.                WinSetDlgItemText(hwnd,IDC_SLIDER_DATA, cData);
  664.                break;
  665.                }
  666.          
  667.          default:
  668.             break;
  669.          
  670.          }
  671.  
  672.         break;
  673.  
  674.         case WM_COMMAND:
  675.             switch (SHORT1FROMMP(mp1))
  676.             {
  677.                 case DID_OK:
  678.                   WinStopTimer( hab,  hwnd, TMID_QUERY_TIMER);
  679.                   WinDismissDlg (hwnd, FALSE);
  680.                   return 0;
  681.  
  682.                 case IDC_MID_POINT:
  683.                 
  684.                       WinSendDlgItemMsg (hwnd, IDC_SLIDER_CONTROL,
  685.                                   SLM_SETSLIDERINFO,
  686.                                   MPFROM2SHORT (SMA_SLIDERARMPOSITION,
  687.                                                   SMA_INCREMENTVALUE),
  688.                                   MPFROMSHORT (MaximumTicks/2));
  689.                      return 0;
  690.             }
  691.          return 0;
  692.  
  693.         default:
  694.             return (WinDefDlgProc (hwnd, msg, mp1, mp2));
  695.     }
  696.     return FALSE;
  697. }
  698. /****************************************************************************
  699.  
  700. ****************************************************************************/
  701.  
  702. VOID InitSlider (HWND    hwnd,                    
  703.                  ULONG   idSlider,                
  704.                  USHORT  usMaximumTicks,          
  705.                  USHORT  usMinorTickSpacing,      
  706.                  USHORT  usMinorTickSize,         
  707.                  USHORT  usMajorTickSpacing,      
  708.                  USHORT  usMajorTickSize,         
  709.                  USHORT  usDetentSpacing,         
  710.                  USHORT  usTextSpacing,           
  711.                  PSZ     pszFont)                 
  712. {
  713.     USHORT     i;                          
  714.     CHAR       buffer[20];                 
  715.     USHORT     usIncrements;
  716.     USHORT     usSpacing;
  717.     WNDPARAMS  wprm;                   
  718.     SLDCDATA   sldcd;                  
  719.     HWND       hwndSlider = WinWindowFromID (hwnd, idSlider);
  720.  
  721.     wprm.fsStatus   = WPM_CTLDATA;      
  722.     wprm.cbCtlData  = sizeof (SLDCDATA);
  723.     wprm.pCtlData   = &sldcd;
  724.  
  725.    WinSendMsg (hwndSlider, WM_QUERYWINDOWPARAMS,
  726.                      MPFROMP(&wprm), 0);
  727.  
  728.    //*********************************************************************
  729.    // Set the total-max num of increments for slider
  730.    sldcd.usScale1Increments = usMaximumTicks +1;
  731.    sldcd.usScale1Spacing = 0;  //let slider do spacing
  732.  
  733.    wprm.fsStatus   = WPM_CTLDATA;  
  734.    wprm.cbCtlData  = sizeof (SLDCDATA);
  735.    wprm.pCtlData   = &sldcd;
  736.  
  737.    //set these paramaters
  738.    WinSendMsg (hwndSlider, WM_SETWINDOWPARAMS,
  739.                     MPFROMP(&wprm), 0);
  740.  
  741.    //*********************************************************************
  742.    //Read these parameters back so we can use them
  743.    wprm.fsStatus   = WPM_CTLDATA;      
  744.    wprm.cbCtlData  = sizeof (SLDCDATA);
  745.    wprm.pCtlData   = &sldcd;
  746.  
  747.    WinSendMsg (hwndSlider, WM_QUERYWINDOWPARAMS,
  748.                      MPFROMP(&wprm), 0);
  749.  
  750.    usIncrements =  sldcd.usScale1Increments;
  751.    usSpacing    =  sldcd.usScale1Spacing;
  752.  
  753.     //*********************************************************************
  754.    if (usMinorTickSpacing != 0)
  755.       {
  756.       for (i = 0; i <= usIncrements; i += usMinorTickSpacing)
  757.          {
  758.           WinSendMsg (hwndSlider,     // Set minor tick
  759.                         SLM_SETTICKSIZE,
  760.                         MPFROM2SHORT(i, usMinorTickSize),
  761.                         NULL);
  762.          }
  763.       }
  764.  
  765.    
  766.     //*********************************************************************
  767.    if (usMajorTickSpacing != 0)
  768.       {
  769.       for (i = 0; i <= usIncrements; i += usMajorTickSpacing)
  770.         {
  771.         WinSendMsg (hwndSlider,     // Set major tick
  772.                         SLM_SETTICKSIZE,
  773.                         MPFROM2SHORT(i, usMajorTickSize),
  774.                         NULL);
  775.         }
  776.       }
  777.  
  778.     //*********************************************************************
  779.     if (usDetentSpacing != 0)
  780.       {
  781.       for (i = 0; i <= usIncrements; i += usDetentSpacing)
  782.         {
  783.         WinSendMsg (hwndSlider,     // Set the detent
  784.                    SLM_ADDDETENT,
  785.                    MPFROM2SHORT((i*usSpacing), usDetentSpacing),
  786.                    NULL);
  787.         }
  788.       }
  789.     //*********************************************************************
  790.     if (usTextSpacing != 0)
  791.       {
  792.       if (pszFont != NULL)
  793.          {
  794.           WinSetPresParam (hwndSlider, PP_FONTNAMESIZE,
  795.                              (strlen(pszFont)+1),  pszFont);
  796.          }
  797.       for (i = 0; i <= usIncrements; i += usTextSpacing)
  798.         {
  799.         _itoa (i, buffer, 10);  
  800.         WinSendMsg (hwndSlider,SLM_SETSCALETEXT,
  801.                         MPFROMSHORT(i),
  802.                         MPFROMP(buffer));
  803.         }
  804.     }
  805.  
  806. }
  807.