home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OListBox.cpp < prev    next >
C/C++ Source or Header  |  1996-08-12  |  6KB  |  246 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OListBox.cpp
  5.  
  6. /*
  7.  * Redistribution and use in source and binary forms, with or without
  8.  * modification, are permitted provided that the following conditions
  9.  * are met:
  10.  * 1. Redistributions of source code must retain the above copyright
  11.  *    notice, this list of conditions and the following disclaimer.
  12.  * 2. Neither the name Cubus nor the name Team OCL may be used to
  13.  *    endorse or promote products derived from this software
  14.  *    without specific prior written permission.
  15.  * 3. See OCL.INF for a detailed copyright notice.
  16.  *
  17.  *              THIS SOFTWARE IS PROVIDED ``AS IS'' AND
  18.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  21.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27.  * SUCH DAMAGE.
  28.  */
  29.  
  30.  
  31. // $Header: W:/Projects/OCL/Source/rcs/OListBox.cpp 1.50 1996/08/11 23:49:21 B.STEIN Release $
  32.  
  33. #define __OCL_SOURCE__
  34.  
  35. #define OINCL_OSTRING
  36. #define OINCL_BASE
  37.  
  38. #include <ocl.hpp>
  39. #include <OListBox.hpp>
  40.  
  41.  
  42.  
  43. OListBox::OListBox(const ULONG id,
  44.                    const HWND Parent,
  45.                    const ULONG Style,
  46.                    BOOL autoScrolling)
  47.   : OWindow(id, 0, 0),
  48.     autoScroll(autoScrolling)
  49. {
  50.  parent = Parent;
  51.  owner = Parent;
  52.  style = Style;
  53. }
  54.  
  55.  
  56.  
  57. OListBox::OListBox(const ULONG id,
  58.                    const OFrame& Parent,
  59.                    const ULONG Style,
  60.                    BOOL autoScrolling)
  61.   : OWindow(id, 0, 0),
  62.     autoScroll(autoScrolling)
  63. {
  64.  parent = Parent.hwnd;
  65.  owner = Parent.hwnd;
  66.  style = Style;
  67. }
  68.  
  69.  
  70.  
  71. OListBox::OListBox(const ULONG id,
  72.                    const pOFrame Parent,
  73.                    const ULONG Style,
  74.                    BOOL autoScrolling)
  75.   : OWindow(id, 0, 0),
  76.     autoScroll(autoScrolling)
  77. {
  78.  parent = Parent->hwnd;
  79.  owner = Parent->hwnd;
  80.  style = Style;
  81. }
  82.  
  83.  
  84.  
  85. OListBox::~OListBox()
  86.   {}
  87.  
  88.  
  89. PSZ OListBox::isOfType() const
  90. { 
  91.  return("OListBox"); 
  92. }
  93.  
  94.  
  95.  
  96. OListBox& OListBox::createListBox(const ULONG x, const ULONG y,
  97.                                   const ULONG cx, const ULONG cy)
  98. {
  99.  if ((hwnd = WinCreateWindow(parent, WC_LISTBOX, "",
  100.                              style | WS_VISIBLE,
  101.                              x, y, cx, cy, owner, HWND_TOP,
  102.                              res, NULL, NULL)) == NULLHANDLE)
  103.    throw OPMException(OCL::error(153), 0);
  104.  
  105.  return(*this);
  106. }
  107.  
  108.  
  109.  
  110. BOOL OListBox::deleteAll()
  111. {
  112.  return((BOOL)WinSendMsg(hwnd, LM_DELETEALL, NULL, NULL));
  113. }
  114.  
  115.  
  116.  
  117. ULONG OListBox::deleteItem(const ULONG itemIndex)
  118. {
  119.  return((ULONG)WinSendMsg(hwnd, LM_DELETEITEM, MPFROMSHORT(itemIndex), NULL));
  120. }
  121.  
  122.  
  123.  
  124. ULONG OListBox::insertItem(PCSZ text, const ULONG itemIndex)
  125. {
  126.  ULONG ul = 0;
  127.  
  128.  if (text)
  129.    ul = (ULONG)WinSendMsg(hwnd, LM_INSERTITEM, MPFROMSHORT(itemIndex), MPFROMP(text));
  130.  if (autoScroll)
  131.    auto_scroll();
  132.  return(ul);
  133. }
  134.  
  135.  
  136. ULONG OListBox::queryItemCount()
  137. {
  138.  return((ULONG)WinSendMsg(hwnd, LM_QUERYITEMCOUNT, NULL, NULL));
  139. }
  140.  
  141.  
  142. ULONG OListBox::queryItemHandle(const ULONG itemIndex)
  143. {
  144.  return((ULONG)WinSendMsg(hwnd, LM_QUERYITEMHANDLE, MPFROMSHORT(itemIndex), NULL));
  145. }
  146.  
  147.  
  148. ULONG OListBox::queryItemText(OString& Buffer, const ULONG itemIndex)
  149. {
  150.  PSZ   tmp = new CHAR[2*CCHMAXPATH];
  151.  ULONG ul;
  152.  
  153.  ul = (ULONG) WinSendMsg(hwnd, LM_QUERYITEMTEXT, MPFROM2SHORT(itemIndex, 2*CCHMAXPATH), MPFROMP(tmp));
  154.  Buffer << tmp;
  155.  delete[] tmp;
  156.  return(ul);
  157. }
  158.  
  159.  
  160. ULONG OListBox::queryItemTextLength(const ULONG itemIndex)
  161. {
  162.  return((ULONG)WinSendMsg(hwnd, LM_QUERYITEMTEXTLENGTH, MPFROMSHORT(itemIndex), NULL));
  163. }
  164.  
  165.  
  166. ULONG OListBox::querySelection(const ULONG itemStart)
  167. {
  168.  return((ULONG)WinSendMsg(hwnd, LM_QUERYSELECTION, MPFROMSHORT(itemStart), NULL));
  169. }
  170.  
  171.  
  172. ULONG OListBox::queryTopItem()
  173. {
  174.  return((ULONG)WinSendMsg(hwnd, LM_QUERYTOPINDEX, NULL, NULL));
  175. }
  176.  
  177.  
  178.  
  179. ULONG OListBox::searchString(PCSZ text, 
  180.                              const ULONG itemStart,
  181.                              const ULONG command)
  182. {
  183.  if (text)
  184.    return((ULONG)WinSendMsg(hwnd, LM_SEARCHSTRING, MPFROM2SHORT(command, itemStart), MPFROMP(text)));
  185.  return(0);
  186. }
  187.  
  188.  
  189.  
  190. BOOL  OListBox::selectItem(const ULONG itemIndex, const BOOL state)
  191. {
  192.  return((BOOL)WinSendMsg(hwnd, LM_SELECTITEM, MPFROMSHORT(itemIndex), MPFROMSHORT(state)));
  193. }
  194.  
  195.  
  196. BOOL  OListBox::setItemHandle(const ULONG itemIndex, const ULONG handle)
  197. {
  198.  return((BOOL)WinSendMsg(hwnd, LM_SETITEMHANDLE, MPFROMSHORT(itemIndex), MPFROMSHORT(handle)));
  199. }
  200.  
  201.  
  202. BOOL  OListBox::setItemHeight(const ULONG newHeight)
  203. {
  204.  return((BOOL)WinSendMsg(hwnd, LM_SETITEMHEIGHT, MPFROMSHORT(newHeight), NULL));
  205. }
  206.  
  207.  
  208. BOOL OListBox::setItemText(const ULONG itemIndex, PCSZ text)
  209. {
  210.  if (text)
  211.    return((BOOL)WinSendMsg(hwnd, LM_SETITEMTEXT, MPFROMSHORT(itemIndex), MPFROMP(text)));
  212.  return(FALSE);
  213. }
  214.  
  215.  
  216. BOOL  OListBox::setToTop(const ULONG itemIndex)
  217. {
  218.  return((BOOL)WinSendMsg(hwnd, LM_SETTOPINDEX, MPFROMSHORT(itemIndex), NULL));
  219. }
  220.  
  221.  
  222. void OListBox::auto_scroll()
  223. {
  224.  FONTMETRICS FontMetrics;
  225.  
  226.  WinQueryWindowRect(hwnd, &rcl);
  227.  hps = WinGetPS(hwnd);
  228.  GpiQueryFontMetrics(hps, sizeof(FONTMETRICS), &FontMetrics);
  229.  WinReleasePS(hps);
  230.  if (queryItemCount() > ((rcl.yTop - rcl.yBottom) / FontMetrics.lMaxBaselineExt))
  231.   {
  232.    if ((rcl.yTop - rcl.yBottom) % FontMetrics.lMaxBaselineExt)
  233.      setToTop(queryTopItem()+2); 
  234.    else
  235.      setToTop(queryTopItem()+1); 
  236.   }
  237. }
  238.  
  239. OListBox&  OListBox::setAutoScroll(BOOL autoScrolling)
  240. {
  241.  autoScroll = autoScrolling;
  242.  return(*this);
  243. }
  244.  
  245. // end of source
  246.