home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OMLE.cpp < prev    next >
C/C++ Source or Header  |  1996-08-12  |  7KB  |  318 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OMLE.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/OMLE.cpp 1.50 1996/08/11 23:49:22 B.STEIN Release $
  32.  
  33. #define __OCL_SOURCE__
  34.  
  35. #define OINCL_OSTRING
  36. #define OINCL_BASE
  37.  
  38. #include <ocl.hpp>
  39. #include <OMLE.hpp>
  40.  
  41. #if defined(__EMX__)
  42.   template class OThread<OMLE>;
  43. #endif
  44.  
  45.  
  46. OMLE::OMLE(const ULONG id,
  47.            const HWND Parent,
  48.            const ULONG Style)
  49.      : OWindow(id, 0, 0),
  50.        imex(NULL),
  51.        imexLen(0),
  52.        imexOffset(0),
  53.        insertLargeThr(this, &OMLE::insertLarge)
  54. {
  55.  parent = owner = Parent;
  56.  style = Style;
  57. }
  58.  
  59.  
  60. OMLE::OMLE(const ULONG id,
  61.            const OFrame& Parent,
  62.            const ULONG Style)
  63.      : OWindow(id, 0, 0),
  64.        imex(NULL),
  65.        imexLen(0),
  66.        imexOffset(0),
  67.        insertLargeThr(this, &OMLE::insertLarge)
  68. {
  69.  parent = owner = Parent.hwnd;
  70.  style = Style;
  71. }
  72.  
  73. OMLE::OMLE(const ULONG id,
  74.            const pOFrame Parent,
  75.            const ULONG Style)
  76.      : OWindow(id, 0, 0),
  77.        imex(NULL),
  78.        imexLen(0),
  79.        imexOffset(0),
  80.        insertLargeThr(this, &OMLE::insertLarge)
  81. {
  82.  parent = owner = Parent->hwnd;
  83.  style = Style;
  84. }
  85.  
  86.  
  87.  
  88. OMLE::~OMLE()
  89.   {}
  90.  
  91.  
  92. PSZ OMLE::isOfType() const
  93. { 
  94.  return("OMLE"); 
  95. }
  96.  
  97.  
  98. BOOL OMLE::createMLE(const ULONG x,
  99.                      const ULONG y,
  100.                      const ULONG cx,
  101.                      const ULONG cy)
  102. {
  103.  hwnd = WinCreateWindow(parent, WC_MLE, NULL, style | WS_VISIBLE,
  104.                         x, y, cx, cy,
  105.                         owner, HWND_TOP, 0, NULL, NULL);
  106.  return(hwnd != NULLHANDLE);
  107. }
  108.  
  109.  
  110.  
  111. ULONG OMLE::getText(PVOID out, ULONG len)
  112. {
  113.  ULONG  exported;
  114.  
  115.  WinSendMsg(hwnd, MLM_SETIMPORTEXPORT, MPFROMP((PBYTE)out), MPFROMLONG(len));
  116.  exported = (ULONG) WinSendMsg(hwnd, MLM_EXPORT, MPFROMP(&imexOffset), MPFROMP(&len));
  117.  return(exported);
  118. }
  119.  
  120.  
  121. ULONG OMLE::getText(OString& Buffer)
  122. {
  123.  PSZ   temp = new CHAR[3*CCHMAXPATH];
  124.  ULONG charsRead;
  125.  
  126.  if ((charsRead = (ULONG) WinQueryWindowText(hwnd, 3*CCHMAXPATH, temp)) != 0)
  127.    Buffer << temp;
  128.  else
  129.    Buffer << (PSZ) NULL;
  130.  delete[] temp;
  131.  return(charsRead != 0);
  132. }
  133.  
  134.  
  135.  
  136. ULONG OMLE::setText(PVOID in, ULONG len)
  137. {
  138.  ULONG  inserted = imexOffset;
  139.  
  140.  WinSendMsg(hwnd, MLM_SETIMPORTEXPORT, MPFROMP((PBYTE)in), MPFROMLONG(len));
  141.  WinSendMsg(hwnd, MLM_IMPORT, MPFROMP(&imexOffset), MPFROMP(&len));
  142.  
  143.  inserted = imexOffset - inserted;
  144.  return(inserted);
  145. }
  146.  
  147.  
  148. ULONG OMLE::setText(PSZ text)
  149. {
  150.  if (text)
  151.    return(setText((PVOID)text, strlen(text)+1));
  152.  return(0);
  153. }
  154.  
  155.  
  156.  
  157. BOOL OMLE::insertText(PSZ text)
  158. {
  159.  if (text)
  160.    return((BOOL)WinSendMsg(hwnd, MLM_INSERT, MPFROMP(text), NULL));
  161.  return(FALSE);
  162. }
  163.  
  164.  
  165.  
  166. BOOL OMLE::insertFile(PCSZ fileName)
  167. {
  168.  openedFile << (PSZ) fileName;
  169.  insertLargeThr.run();
  170.  return(TRUE);
  171. }
  172.  
  173.  
  174.  
  175. BOOL OMLE::copy()
  176. {
  177.  return(FALSE);
  178. }
  179.  
  180.  
  181. BOOL OMLE::cut()
  182. {
  183.  return(FALSE);
  184. }
  185.  
  186.  
  187. BOOL OMLE::paste()
  188. {
  189.  return(FALSE);
  190. }
  191.  
  192.  
  193. BOOL OMLE::copy2Clip()
  194. {
  195.  return(FALSE);
  196. }
  197.  
  198.  
  199. BOOL OMLE::cut2Clip()
  200. {
  201.  return(FALSE);
  202. }
  203.  
  204.  
  205. BOOL OMLE::pasteFromClip()
  206. {
  207.  return(FALSE);
  208. }
  209.  
  210.  
  211. BOOL OMLE::clear()
  212. {
  213.  return(TRUE);
  214. }
  215.  
  216.  
  217.  
  218.  
  219. BOOL OMLE::undo()
  220. {
  221.  return(FALSE);
  222. }
  223.  
  224.  
  225.  
  226.  
  227. BOOL OMLE::deleteText(ULONG beginPoint, ULONG count)
  228. {
  229.  return(((ULONG)WinSendMsg(hwnd, MLM_DELETE,
  230.                            MPFROMSHORT(beginPoint), MPFROMSHORT(count))) == count);
  231. }
  232.  
  233. BOOL  OMLE::deleteAll()
  234. {
  235.  return(((ULONG)WinSendMsg(hwnd, MLM_DELETE, 
  236.                            MPFROMSHORT(0), MPFROMSHORT(length()))) == length());
  237. }
  238.  
  239.  
  240. void OMLE::insertLarge()
  241. {
  242.  FILESTATUS fileStatus;
  243.  PBYTE      rBuffer;
  244.  HFILE      hf;
  245.  ULONG      cbRead, ulAction;
  246.  PBYTE      Buffer;
  247.  ULONG      SIZE = 8192;
  248.  
  249.  DosOpen(openedFile, &hf, &ulAction, 0, FILE_NORMAL, FILE_OPEN | FILE_CREATE,
  250.          OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, NULL);
  251.  DosQueryFileInfo(hf, 1, (PVOID)&fileStatus,  sizeof(FILESTATUS));
  252.  DosAllocMem((PPVOID)&rBuffer, fileStatus.cbFile, PAG_READ | PAG_WRITE | PAG_COMMIT);
  253.  memset(rBuffer, 0, fileStatus.cbFileAlloc);
  254.  
  255.  DosRead(hf, rBuffer, fileStatus.cbFile, &cbRead);
  256.  DosClose(hf);
  257.  
  258.  if (!cbRead) {
  259.    DosFreeMem(rBuffer);
  260.    return; }
  261.  
  262.  if (cbRead > SIZE) {
  263.    ULONG steps = cbRead / SIZE;
  264.    ULONG rest = cbRead % SIZE;
  265.  
  266.    Buffer = rBuffer;
  267.    for (ULONG i = 1; i <= steps; ++i) {
  268.      setText(Buffer, SIZE);
  269.      Buffer = Buffer+SIZE; }
  270.    setText(Buffer, rest); }
  271.  else
  272.    setText(rBuffer, fileStatus.cbFile);
  273.  
  274.  DosFreeMem(rBuffer);
  275. }
  276.  
  277.  
  278.  
  279. ULONG OMLE::length()
  280. {
  281.  return((ULONG)WinSendMsg(hwnd, MLM_QUERYFORMATTEXTLENGTH, MPFROMLONG(0), MPFROMLONG(-1)));
  282. }
  283.  
  284.  
  285. ULONG OMLE::lines()
  286. {
  287.  return((ULONG)WinSendMsg(hwnd, MLM_QUERYLINECOUNT, NULL, NULL));
  288. }
  289.  
  290.  
  291.  
  292. BOOL OMLE::changed()
  293. {
  294.  return((BOOL)WinSendMsg(hwnd, MLM_QUERYCHANGED, NULL, NULL));
  295. }
  296.  
  297.  
  298. void OMLE::enableRefresh()
  299. {
  300.  WinSendMsg(hwnd, MLM_ENABLEREFRESH, NULL, NULL);
  301. }
  302.  
  303.  
  304. void OMLE::disableRefresh()
  305. {
  306.  WinSendMsg(hwnd, MLM_DISABLEREFRESH, NULL, NULL);
  307. }
  308.  
  309.  
  310. ULONG OMLE::setFormat(const ULONG format)
  311. {
  312.  return((ULONG)WinSendMsg(hwnd, MLM_FORMAT, MPFROMSHORT(format), NULL));
  313. }
  314.  
  315.  
  316.  
  317. // end of source
  318.