home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OEntryField.cpp < prev    next >
C/C++ Source or Header  |  1996-08-12  |  5KB  |  227 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OEntryField.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/OEntryField.cpp 1.50 1996/08/11 23:49:15 B.STEIN Release $
  32.  
  33. #define __OCL_SOURCE__
  34.  
  35. #define OINCL_OSTRING
  36. #define OINCL_BASE
  37.  
  38. #include <ocl.hpp>
  39. #include <OEntryField.hpp>
  40.  
  41.  
  42.  
  43. OEntryField::OEntryField(const ULONG id,
  44.                          const HWND Parent,
  45.                          const ULONG Style,
  46.                          const ULONG Limit)
  47.   : OWindow(id, 0, 0),
  48.     limit(Limit)
  49. {
  50.  parent = Parent;
  51.  owner = Parent;
  52.  style = Style;
  53. }
  54.  
  55.  
  56.  
  57. OEntryField::OEntryField(const ULONG id,
  58.                          const OFrame& Parent,
  59.                          const ULONG Style,
  60.                          const ULONG Limit)
  61.   : OWindow(id, 0, 0),
  62.     limit(Limit)
  63. {
  64.  parent = Parent.hwnd;
  65.  owner = Parent.hwnd;
  66.  style = Style;
  67. }
  68.  
  69.  
  70.  
  71. OEntryField::OEntryField(const ULONG id,
  72.                          const pOFrame Parent,
  73.                          const ULONG Style,
  74.                          const ULONG Limit)
  75.   : OWindow(id, 0, 0),
  76.     limit(Limit)
  77. {
  78.  parent = Parent->hwnd;
  79.  owner = Parent->hwnd;
  80.  style = Style;
  81. }
  82.  
  83.  
  84.  
  85. OEntryField::~OEntryField()
  86.   {}
  87.  
  88.  
  89. PSZ OEntryField::isOfType() const
  90. { 
  91.  return("OEntryField"); 
  92. }
  93.  
  94.  
  95.  
  96. OEntryField& OEntryField::createEntryField(const ULONG x, const ULONG y, 
  97.                                            const ULONG cx, const ULONG cy)
  98. {
  99.  if ((hwnd = WinCreateWindow(parent, WC_ENTRYFIELD, "",
  100.                              style | WS_VISIBLE,
  101.                              x, y, cx, cy, owner, HWND_TOP,
  102.                              res, NULL, NULL)) == NULLHANDLE)
  103.    throw OPMException(OCL::error(158), 0);
  104.  
  105.  setTextLimit(limit);
  106.  return(*this);
  107. }
  108.  
  109.  
  110.  
  111. OWindow& OEntryField::inherit(const HWND hwndDlg)
  112. {
  113.  OWindow::inherit(hwndDlg);
  114.  setTextLimit(limit);
  115.  return(*this);
  116. }
  117.  
  118. BOOL  OEntryField::getText(OString& Buffer)
  119. {
  120.  OString temp(limit+1);
  121.  ULONG   charsRead;
  122.  
  123.  if ((charsRead = (ULONG) WinQueryWindowText(hwnd, limit+1, temp)) != 0)
  124.    Buffer << temp;
  125.  else
  126.    Buffer << (PSZ) NULL;
  127.  return(charsRead != 0);
  128. }
  129.  
  130.  
  131.  
  132. BOOL  OEntryField::setText(PCSZ text)
  133. {
  134.  if (text)
  135.    return(WinSetWindowText(hwnd, (PSZ)text));
  136.  else
  137.    return(WinSetWindowText(hwnd, ""));
  138. }
  139.  
  140.  
  141.  
  142. BOOL  OEntryField::cutText()
  143. {
  144.  return((BOOL)WinSendMsg(hwnd, EM_CUT, NULL, NULL));
  145. }
  146.  
  147.  
  148. BOOL  OEntryField::copyText()
  149. {
  150.  return((BOOL)WinSendMsg(hwnd, EM_COPY, NULL, NULL));
  151. }
  152.  
  153.  
  154. BOOL  OEntryField::pasteText()
  155. {
  156.  return((BOOL)WinSendMsg(hwnd, EM_PASTE, NULL, NULL));
  157. }
  158.  
  159.  
  160. BOOL  OEntryField::clearText()
  161. {
  162.  return((BOOL)WinSendMsg(hwnd, EM_CLEAR, NULL, NULL));
  163. }
  164.  
  165.  
  166. BOOL  OEntryField::queryChanged()
  167. {
  168.  return((BOOL)WinSendMsg(hwnd, EM_QUERYCHANGED, NULL, NULL));
  169. }
  170.  
  171.  
  172. ULONG OEntryField::queryFirstChar()
  173. {
  174.  return((ULONG)WinSendMsg(hwnd, EM_QUERYFIRSTCHAR, NULL, NULL));
  175. }
  176.  
  177.  
  178.  
  179. BOOL  OEntryField::queryRDOnly()
  180. {
  181.  return((BOOL)WinSendMsg(hwnd, EM_QUERYREADONLY, NULL, NULL));
  182. }
  183.  
  184.  
  185. BOOL  OEntryField::querySelection(USHORT& firstChar, USHORT& lastChar)
  186. {
  187.  MRESULT temp = WinSendMsg(hwnd, EM_QUERYSEL, NULL, NULL);
  188.  
  189.  return((temp != NULL) &&
  190.         ((firstChar = SHORT1FROMMP(temp)) != 0) &&
  191.         ((lastChar = SHORT2FROMMP(temp)) != 0));
  192. }
  193.  
  194.  
  195.  
  196. BOOL  OEntryField::setFirstChar(const USHORT first)
  197. {
  198.  return((BOOL)WinSendMsg(hwnd, EM_SETFIRSTCHAR, MPFROMSHORT(first), NULL));
  199. }
  200.  
  201.  
  202. BOOL  OEntryField::setInsertMode(const BOOL insert)
  203. {
  204.  return((BOOL)WinSendMsg(hwnd, EM_SETINSERTMODE, MPFROMSHORT(insert), NULL));
  205. }
  206.  
  207.  
  208. BOOL  OEntryField::setRDOnly(const BOOL readOnly)
  209. {
  210.  return((BOOL)WinSendMsg(hwnd, EM_SETREADONLY, MPFROMSHORT(readOnly), NULL));
  211. }
  212.  
  213.  
  214. BOOL  OEntryField::setSelection(const USHORT firstChar, const USHORT lastChar)
  215. {
  216.  return((BOOL)WinSendMsg(hwnd, EM_SETSEL, MPFROM2SHORT(firstChar, lastChar), NULL));
  217. }
  218.  
  219.  
  220. BOOL  OEntryField::setTextLimit(const USHORT limit)
  221. {
  222.  return((BOOL)WinSendMsg(hwnd, EM_SETTEXTLIMIT, MPFROMSHORT(limit), NULL));
  223. }
  224.  
  225.  
  226. // end of source
  227.