home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OSlider.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-12  |  8.4 KB  |  317 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // (c) 1994 Matthias Stübner
  5. // All Rights Reserved
  6. // OSlider.cpp
  7.  
  8.  
  9. /*
  10.  * Redistribution and use in source and binary forms, with or without
  11.  * modification, are permitted provided that the following conditions
  12.  * are met:
  13.  * 1. Redistributions of source code must retain the above copyright
  14.  *    notice, this list of conditions and the following disclaimer.
  15.  * 2. Neither the name Cubus nor the name Team OCL may be used to
  16.  *    endorse or promote products derived from this software
  17.  *    without specific prior written permission.
  18.  * 3. See OCL.INF for a detailed copyright notice.
  19.  *
  20.  *              THIS SOFTWARE IS PROVIDED ``AS IS'' AND
  21.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30.  * SUCH DAMAGE.
  31.  */
  32.  
  33. // $Header: W:/Projects/OCL/Source/rcs/OSlider.cpp 1.50 1996/08/11 23:49:30 B.STEIN Release $
  34.  
  35. #define __OCL_SOURCE__
  36.  
  37. #define OINCL_OSTRING
  38. #define OINCL_BASE
  39.  
  40. #include <ocl.hpp>
  41. #include <OSlider.hpp>
  42.  
  43.  
  44. OSlider::OSlider(const ULONG id,
  45.                  const HWND  Parent,  // becomes parent and owner of the slider
  46.                  const ULONG scale1,
  47.                  const ULONG space1,
  48.                  const ULONG scale2,
  49.                  const ULONG space2,
  50.                  const ULONG Style)
  51.   : OWindow(id, 0, 0),
  52.     Scale1(scale1),
  53.     Space1(space1),
  54.     Scale2(scale2),
  55.     Space2(space2)
  56. {
  57.  parent = Parent;
  58.  owner  = Parent;
  59.  style  = Style;
  60. }
  61.  
  62.  
  63. OSlider::OSlider(const ULONG id,
  64.                  const OFrame& Parent,
  65.                  const ULONG scale1,
  66.                  const ULONG space1,
  67.                  const ULONG scale2,
  68.                  const ULONG space2,
  69.                  const ULONG Style)
  70.   : OWindow(id, 0, 0),
  71.     Scale1(scale1),
  72.     Space1(space1),
  73.     Scale2(scale2),
  74.     Space2(space2)
  75. {
  76.  parent = Parent.hwnd;
  77.  owner  = Parent.hwnd;
  78.  style  = Style;
  79. }
  80.  
  81.  
  82. OSlider::OSlider(const ULONG id,
  83.                  const pOFrame Parent,
  84.                  const ULONG scale1,
  85.                  const ULONG space1,
  86.                  const ULONG scale2,
  87.                  const ULONG space2,
  88.                  const ULONG Style)
  89.  : OWindow(id, 0, 0),
  90.    Scale1(scale1),
  91.    Space1(space1),
  92.    Scale2(scale2),
  93.    Space2(space2)
  94. {
  95.  parent = Parent->hwnd;
  96.  owner  = Parent->hwnd;
  97.  style  = Style;
  98. }
  99.  
  100.  
  101. // dtor
  102. OSlider::~OSlider()
  103.   {}
  104.  
  105.  
  106. PSZ OSlider::isOfType() const
  107. { 
  108.  return("OSlider"); 
  109. }
  110.  
  111.  
  112. OSlider& OSlider::createSlider(const SHORT x, const SHORT y, 
  113.                            const SHORT cx, const SHORT cy)
  114. {
  115.  ctlData.cbSize = sizeof(SLDCDATA);
  116.  ctlData.usScale1Increments = Scale1;
  117.  ctlData.usScale1Spacing = Space1;
  118.  ctlData.usScale2Increments = Scale2;
  119.  ctlData.usScale2Spacing = Space2;
  120.  
  121.  if ((hwnd = WinCreateWindow(parent, WC_SLIDER, NULL,
  122.                              style | WS_VISIBLE,
  123.                              x, y, cx, cy,
  124.                              owner, HWND_TOP, 0,
  125.                              (PVOID)&ctlData, NULL)) == NULLHANDLE)
  126.    throw OPMException(OCL::error(170), 0);
  127.  
  128.  return (*this);
  129. }
  130.  
  131.  
  132. OWindow& OSlider::inherit(const HWND Parent)
  133. {
  134.  OWindow::inherit(Parent);
  135.  return(createSlider());
  136. }
  137.  
  138.  
  139. OSlider& OSlider::setSliderStyles(const ULONG Style)
  140. {
  141.  style = Style;
  142.  return(*this); 
  143. }
  144.  
  145.  
  146. OSlider& OSlider::setSliderSize(const ULONG x, const ULONG y, 
  147.                             const ULONG cx, const ULONG cy)
  148. {
  149.  sizepos.x = x;
  150.  sizepos.y = y;
  151.  sizepos.cx = cx;
  152.  sizepos.cy = cy;
  153.  WinSetWindowPos(hwnd, HWND_TOP, x, y, cx, cy, SWP_SIZE);
  154.  return(*this);
  155. }
  156.  
  157.  
  158. OSlider& OSlider::setSliderArmSize(ULONG x, ULONG y)
  159. {
  160.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  161.                        MPFROMSHORT (SMA_SLIDERARMDIMENSIONS),
  162.                        MPFROM2SHORT (x,y)))
  163.    throw OPMException(OCL::error(171), 0);
  164.    
  165.  return(*this);
  166. }
  167.  
  168. OSlider& OSlider::setSliderArmPos(SHORT pos)
  169. {
  170.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  171.                        MPFROM2SHORT(SMA_SLIDERARMPOSITION,SMA_INCREMENTVALUE),
  172.                        MPFROMSHORT(pos)))
  173.    throw OPMException(OCL::error(172), 0);
  174.  
  175.  return(*this);
  176. }
  177.  
  178. OSlider& OSlider::setSliderShaftPos(SHORT x, SHORT y)
  179. {
  180.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  181.                        MPFROMSHORT (SMA_SHAFTPOSITION),
  182.                        MPFROM2SHORT (x, y)))
  183.    throw OPMException(OCL::error(173), 0);
  184.  
  185.  return(*this);
  186. }
  187.  
  188.  
  189. OSlider& OSlider::setSliderShaftDim(SHORT dim)
  190. {
  191.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  192.                        MPFROMSHORT (SMA_SHAFTDIMENSIONS),
  193.                        MPFROMSHORT (dim)))
  194.    throw OPMException(OCL::error(174), 0);
  195.  
  196.  return(*this);
  197. }
  198.  
  199. OSlider& OSlider::setSliderScaleText(PCSZ Text, USHORT pos)
  200. {
  201.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSCALETEXT,
  202.                        MPFROMSHORT (pos),MPFROMP(Text)))
  203.    throw OPMException(OCL::error(175), 0);
  204.  
  205.  return(*this);
  206. }
  207.  
  208. OSlider& OSlider::setTickSize(ULONG size, ULONG num)
  209. {
  210.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETTICKSIZE,
  211.                        MPFROM2SHORT (num,size), NULL))
  212.    throw OPMException(OCL::error(176), 0);
  213.  
  214.  return(*this);
  215. }
  216.  
  217. ULONG OSlider::addDetent(SHORT pos)
  218. {
  219.  return((ULONG) WinSendMsg(hwnd, SLM_ADDDETENT, MPFROMSHORT (pos), 0));
  220. }
  221.  
  222. ULONG OSlider::getDetentPos(ULONG id)
  223. {
  224.  return(LONGFROMMP(WinSendMsg(hwnd, SLM_QUERYDETENTPOS, MPFROMLONG(id), 0)));
  225. }
  226.  
  227.  
  228. PSZ OSlider::getScaleText(SHORT loc, PSZ buf,SHORT len)
  229. {
  230.  WinSendMsg(hwnd, SLM_QUERYSCALETEXT,
  231.             MPFROM2SHORT(loc,len),MPFROMP(buf));
  232.  return((PSZ)buf);
  233. }
  234.  
  235. OSlider& OSlider::getSliderShaftDim(SHORT *lenght, SHORT *height)
  236. {
  237.  ULONG  tmp;
  238.  
  239.  tmp = LONGFROMMP(WinSendMsg(hwnd,SLM_QUERYSLIDERINFO,
  240.                              MPFROM2SHORT(SMA_SHAFTDIMENSIONS,SMA_INCREMENTVALUE),0));
  241.  *lenght = SHORT1FROMMP(tmp);
  242.  *height = SHORT2FROMMP(tmp);
  243.  
  244.  return(*this);
  245. }
  246.  
  247. OSlider& OSlider::getSliderShaftPos(SHORT *x, SHORT *y)
  248. {
  249.  ULONG   tmp;
  250.  
  251.  tmp = LONGFROMMP(WinSendMsg(hwnd,SLM_QUERYSLIDERINFO,
  252.                              MPFROM2SHORT(SMA_SHAFTPOSITION,SMA_INCREMENTVALUE),0));
  253.  *x = SHORT1FROMMP(tmp);
  254.  *y = SHORT2FROMMP(tmp);
  255.  
  256.  return(*this);
  257. }
  258.  
  259. OSlider& OSlider::getSliderArmSize(SHORT *x, SHORT *y)
  260. {
  261.  ULONG   tmp;
  262.  
  263.  tmp = LONGFROMMP(WinSendMsg(hwnd,SLM_QUERYSLIDERINFO,
  264.                              MPFROM2SHORT(SMA_SLIDERARMDIMENSIONS,SMA_INCREMENTVALUE),0));
  265.  *x = SHORT1FROMMP(tmp);
  266.  *y = SHORT2FROMMP(tmp);
  267.  
  268.  return(*this);
  269. }
  270.  
  271. ULONG OSlider::getSliderArmPos()
  272. {
  273.  return((ULONG)WinSendMsg(hwnd,SLM_QUERYSLIDERINFO,
  274.                           MPFROM2SHORT(SMA_SLIDERARMPOSITION,SMA_INCREMENTVALUE),0));
  275. }
  276.  
  277. ULONG OSlider::getTickSize(SHORT pos)
  278. {
  279.  return((ULONG)WinSendMsg(hwnd,SLM_QUERYTICKSIZE, MPFROMSHORT(pos), 0));
  280. }
  281.  
  282.  
  283. OSlider& OSlider::incSliderArm(SHORT delta)
  284. {
  285.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  286.             MPFROM2SHORT(SMA_SLIDERARMPOSITION, SMA_INCREMENTVALUE),
  287.             MPFROMSHORT((ULONG)WinSendMsg(hwnd, SLM_QUERYSLIDERINFO,
  288.             MPFROM2SHORT(SMA_SLIDERARMPOSITION, SMA_INCREMENTVALUE),NULL) + delta)))
  289.    throw OPMException(OCL::error(177), 0);
  290.  
  291.  return(*this);
  292. }
  293.  
  294.  
  295. OSlider& OSlider::decSliderArm(SHORT delta)
  296. {
  297.  if (!(BOOL)WinSendMsg(hwnd, SLM_SETSLIDERINFO,
  298.             MPFROM2SHORT (SMA_SLIDERARMPOSITION, SMA_INCREMENTVALUE),
  299.             MPFROMSHORT((ULONG)WinSendMsg(hwnd, SLM_QUERYSLIDERINFO,
  300.             MPFROM2SHORT(SMA_SLIDERARMPOSITION, SMA_INCREMENTVALUE),NULL) - delta)))
  301.    throw OPMException(OCL::error(178), 0);
  302.  
  303.  return(*this);
  304. }
  305.  
  306.  
  307.  
  308. OSlider& OSlider::drawSliderElement(POWNERITEM  item, COLOR color)
  309. {
  310.  WinQueryWindowRect(item->hwnd, &item->rclItem);
  311.  GpiSetColor(item->hps, color);
  312.  GpiBox(item->hps, DRO_FILL, (PPOINTL) &item->rclItem.xRight, 0L, 0L);
  313.  return(*this);
  314. }
  315.  
  316. // end of source
  317.