/*
 * Video subsystem for Windows using GUI windows instead of Console
 * with multiple windows support
 *   Copyright 2004 Budyanto Dj. <budyanto@centrin.net.id>
 * gtwvw edit functions
 * GTWVW is initially created based on:
 *
 * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp =
 * Video subsystem for Windows using GUI windows instead of Console
 *     Copyright 2003 Peter Rees <peter@rees.co.nz>
 *                    Rees Software & Systems Ltd
 * based on
 *   Bcc ConIO Video subsystem by
 *     Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
 *     Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
 *   Video subsystem for Windows compilers
 *     Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
 *     Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
 *
 * The following parts are Copyright of the individual authors.
 *
 *
 * Copyright 1999 David G. Holm <dholm@jsd-llc.com>
 *    hb_gt_wvw_Tone()
 *
 * See COPYING.txt for licensing terms.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option )
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this software; see the file COPYING.txt.   If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 * Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/ ).
 *
 * As a special exception, the Harbour Project gives permission for
 * additional uses of the text contained in its release of Harbour.
 *
 * The exception is that, if you link the Harbour libraries with other
 * files to produce an executable, this does not by itself cause the
 * resulting executable to be covered by the GNU General Public License.
 * Your use of that executable is in no way restricted on account of
 * linking the Harbour library code into it.
 *
 * This exception does not however invalidate any other reasons why
 * the executable file might be covered by the GNU General Public License.
 *
 * This exception applies only to the code released by the Harbour
 * Project under the name Harbour.  If you copy code from other
 * Harbour Project or Free Software Foundation releases into a copy of
 * Harbour, as the General Public License permits, the exception does
 * not apply to the code that you add in this way.   To avoid misleading
 * anyone as to the status of such modified files, you must delete
 * this exception notice from them.
 *
 * If you write modifications of your own for Harbour, it is your choice
 * whether to permit this exception to apply to your modifications.
 * If you do not wish that, delete this exception notice.
 *
 */

#include "hbgtwvw.h"

/* wvw_ebCreate( [nWinNum], nTop, nLeft, nBottom, nRight, cText, bBlock, ;
 *                         lMultiline, nMoreStyle, nMaxChar, nReserved, aOffset)
 * create editbox for window nWinNum
 * nTop: row of top/left corner (in character unit)
 * nLeft: col of top/left corner (in character unit)
 * nBottom: row of bottom/right corner (in character unit)
 * nRight: col of bottom/right corner (in character unit)
 * cText: initial text to display, default = ""
 *      WARNING!! must be of "C" typed!
 * bBlock: codeblock to execute on these events:
 *         event=EN_SETFOCUS(...): editbox got focus
 *         event=EN_KILLFOCUS(...): editbox lose focus
 *         This codeblock will be evaluated with these parameters:
 *         nWinNum: window number
 *         nEBid  : editbox id
 *         nType  : event type (EN_SETFOCUS/EN_KILLFOCUS supported)
 *
 *
 * lMultiline: .f. :: single line editbox (default)
 *            .t. :: multi line editbox
 * mapped internally into two types of editbox:
 *         WVW_EB_SINGLELINE (1): single line editbox
 *         WVW_EB_MULTILINE (2): multi line editbox
 *         default is WVW_EB_SINGLELINE (1)
 *
 * nMoreStyle: more style that will be added to the predefined style
 *            some examples: ES_PASSWORD, ES_READONLY
 *
 * nMaxChar: (FUTURE FEATURE) maximum number of chars allowed
 *
 * nReserved: reserved for future use
 *
 * aOffset: array {y1,x1,y2,x2} of offsets to corner pixels, to adjust
 *         dimension of editbox.
 *         defaults: {-2,-2,+2,+2}
 *
 * returns control id of newly created editbox of windows nWinNum
 * returns 0 if failed
 *
 * example:
 */

HB_FUNC( WVW_EBCREATE )
{
   HANDLE     hInstance   = NULL;
   UINT       usWinNum    = WVW_WHICH_WINDOW;
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   HWND       hWndParent  = pWindowData->hWnd;
   HWND       hWndEB;
   POINT      xy = { 0 };
   int        iTop, iLeft, iBottom, iRight;
   int        iOffTop, iOffLeft, iOffBottom, iOffRight;
   UINT       uiEBid;
   USHORT     usTop    = ( USHORT ) hb_parni( 2 ),
              usLeft   = ( USHORT ) hb_parni( 3 ),
              usBottom = ( USHORT ) hb_parni( 4 ),
              usRight  = ( USHORT ) hb_parni( 5 );
   LPTSTR lpszText     = ( LPTSTR ) hb_parcx( 6 );

   BOOL bMultiline = HB_ISLOG( 8 ) ? hb_parl( 8 ) : FALSE;
   BYTE bEBType    = ( BYTE ) ( bMultiline ? WVW_EB_MULTILINE : WVW_EB_SINGLELINE );

   DWORD dwMoreStyle = ( DWORD ) ( HB_ISNUM( 9 ) ? hb_parnl( 9 ) : 0 );

   USHORT usMaxChar = ( USHORT ) ( HB_ISNUM( 10 ) && hb_parni( 10 ) > 0 ? hb_parni( 10 ) : 0 );

   DWORD      dwStyle;
   WVW_DATA * pData = hb_getWvwData();

   if( pWindowData->hEBfont == NULL )
   {
      pWindowData->hEBfont = CreateFontIndirect( &pData->s_lfEB );
      if( pWindowData->hEBfont == NULL )
      {
         hb_retnl( 0 );
         return;
      }
   }

   iOffTop    = ! HB_ISNIL( 12 ) ? hb_parvni( 12, 1 ) : 0;
   iOffLeft   = ! HB_ISNIL( 12 ) ? hb_parvni( 12, 2 ) : 0;
   iOffBottom = ! HB_ISNIL( 12 ) ? hb_parvni( 12, 3 ) : 0;
   iOffRight  = ! HB_ISNIL( 12 ) ? hb_parvni( 12, 4 ) : 0;

   if( hb_gt_wvw_GetMainCoordMode() )
      hb_wvw_HBFUNCPrologue( usWinNum, &usTop, &usLeft, &usBottom, &usRight );

   xy    = hb_gt_wvwGetXYFromColRow( pWindowData, usLeft, usTop );
   iTop  = xy.y + iOffTop;
   iLeft = xy.x + iOffLeft;

   xy = hb_gt_wvwGetXYFromColRow( pWindowData, usRight + 1, usBottom + 1 );

   xy.y -= pWindowData->byLineSpacing;

   iBottom = xy.y - 1 + iOffBottom;
   iRight  = xy.x - 1 + iOffRight;

   uiEBid = LastControlId( usWinNum, WVW_CONTROL_EDITBOX );
   if( uiEBid == 0 )
      uiEBid = WVW_ID_BASE_EDITBOX;
   else
      uiEBid++;

   dwStyle = WS_BORDER | WS_GROUP | WS_TABSTOP | dwMoreStyle;

   if( ( bEBType & WVW_EB_MULTILINE ) == WVW_EB_MULTILINE )
      dwStyle |= ES_AUTOVSCROLL | ES_MULTILINE |
                 ES_WANTRETURN | WS_BORDER | WS_VSCROLL;
   else
      dwStyle |= ES_AUTOHSCROLL;

   if( pWindowData->CodePage == OEM_CHARSET )
      dwStyle |= ES_OEMCONVERT;


   hb_winmainArgGet( &hInstance, NULL, NULL );

   hWndEB = CreateWindowEx(
      0L,
      "EDIT",
      ( LPSTR ) NULL,
      WS_CHILD | WS_VISIBLE | ( DWORD ) dwStyle,
      iLeft,
      iTop,
      iRight - iLeft + 1,
      iBottom - iTop + 1,
      hWndParent,
      ( HMENU ) uiEBid,
      ( HINSTANCE ) hInstance,
      ( LPVOID ) NULL
      );

   if( hWndEB )
   {
      RECT    rXB = { 0 }, rOffXB = { 0 };
      WNDPROC OldProc;
      /* USHORT i; */
      BOOL bFromOEM = ( pWindowData->CodePage == OEM_CHARSET );

      if( bFromOEM )
      {
         ULONG  ulLen        = ( ULONG ) strlen( lpszText );
         LPTSTR lpszTextANSI = ( LPTSTR ) hb_xgrab( ulLen + 1 );
         OemToChar( lpszText, lpszTextANSI );
         lpszText = lpszTextANSI;
      }

      SendMessage(
         ( HWND ) hWndEB,
         WM_SETTEXT,
         0,
         ( LPARAM ) lpszText
         );

      if( bFromOEM )
         hb_xfree( lpszText );

      if( usMaxChar > 0 )
         SendMessage(
            ( HWND ) hWndEB,
            EM_LIMITTEXT,
            ( WPARAM ) usMaxChar,
            ( LPARAM ) 0
            );

      rXB.top       = usTop;     rXB.left = usLeft;
      rXB.bottom    = usBottom; rXB.right = usRight;
      rOffXB.top    = iOffTop;     rOffXB.left = iOffLeft;
      rOffXB.bottom = iOffBottom; rOffXB.right = iOffRight;

      AddControlHandle( usWinNum, WVW_CONTROL_EDITBOX, hWndEB, uiEBid, ( PHB_ITEM ) hb_param( 7, HB_IT_BLOCK ), rXB, rOffXB, ( byte ) bEBType );

      OldProc = ( WNDPROC ) SetWindowLongPtr( hWndEB,
                                              GWLP_WNDPROC, ( LONG_PTR ) hb_gt_wvwEBProc );

      StoreControlProc( usWinNum, WVW_CONTROL_EDITBOX, hWndEB, OldProc );

      SendMessage( hWndEB, WM_SETFONT, ( WPARAM ) pWindowData->hEBfont, ( LPARAM ) TRUE );

      hb_retnl( ( LONG ) uiEBid );
   }
   else
      hb_retnl( ( LONG ) 0 );
}

/*wvw_ebDestroy( [nWinNum], nEBid )
 * destroy editbox nEBid for window nWinNum
 */
HB_FUNC( WVW_EBDESTROY )
{
   UINT usWinNum = WVW_WHICH_WINDOW;
   WIN_DATA *     pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   UINT           uiEBid      = ( UINT ) ( HB_ISNIL( 2 ) ? 0  : hb_parni( 2 ) );
   CONTROL_DATA * pcd         = pWindowData->pcdCtrlList;
   CONTROL_DATA * pcdPrev     = ( CONTROL_DATA * ) NULL;

   while( pcd )
   {
      if( pcd->byCtrlClass == WVW_CONTROL_EDITBOX && pcd->uiCtrlid == uiEBid )
         break;

      pcdPrev = pcd;
      pcd     = pcd->pNext;
   }
   if( pcd == NULL )
      return;

   DestroyWindow( pcd->hWndCtrl );

   if( pcdPrev == NULL )
      pWindowData->pcdCtrlList = pcd->pNext;
   else
      pcdPrev->pNext = pcd->pNext;

   if( pcd->phiCodeBlock )
      hb_itemRelease( pcd->phiCodeBlock );


   hb_xfree( pcd );
}

/*wvw_ebSetFocus( [nWinNum], nEditId )
 * set the focus to editbox nEditId in window nWinNum
 */
HB_FUNC( WVW_EBSETFOCUS )
{
   UINT usWinNum = WVW_WHICH_WINDOW;
   UINT uiCtrlId = HB_ISNIL( 2 ) ? 0 : hb_parni( 2 );
   byte bStyle;
   HWND hWndEB = FindControlHandle( usWinNum, WVW_CONTROL_EDITBOX, uiCtrlId, &bStyle );

   if( hWndEB )
      hb_retl( SetFocus( hWndEB ) != NULL );
   else
      hb_retl( FALSE );
}

/*wvw_ebIsFocused( [nWinNum], nEditId )
 * returns .t. if the focus is on editbox nEditId in window nWinNum
 */
HB_FUNC( WVW_EBISFOCUSED )
{
   UINT usWinNum = WVW_WHICH_WINDOW;
   UINT uiCtrlId = HB_ISNIL( 2 ) ? 0 : hb_parni( 2 );
   byte bStyle;
   HWND hWndEB = FindControlHandle( usWinNum, WVW_CONTROL_EDITBOX, uiCtrlId, &bStyle );

   hb_retl( ( HWND ) GetFocus() == hWndEB );
}

/*wvw_ebEnable( [nWinNum], nEditId, [lEnable] )
 * enable/disable editbox nEditId on window nWinNum
 *(lEnable defaults to .t., ie. enabling the editbox)
 * return previous state of the editbox (TRUE:enabled FALSE:disabled)
 *(if nEditId is invalid, this function returns FALSE too)
 */
HB_FUNC( WVW_EBENABLE )
{
   UINT       usWinNum = WVW_WHICH_WINDOW;
   UINT       uiCtrlId = HB_ISNIL( 2 ) ? 0 : hb_parni( 2 );
   BOOL       bEnable  = HB_ISNIL( 3 ) ? TRUE : hb_parl( 3 );
   byte       bStyle;
   HWND       hWndEB      = FindControlHandle( usWinNum, WVW_CONTROL_EDITBOX, uiCtrlId, &bStyle );
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );

   if( hWndEB )
   {
      hb_retl( EnableWindow( hWndEB, bEnable ) == 0 );

      if( ! bEnable )
         SetFocus( pWindowData->hWnd );
   }
   else
      hb_retl( FALSE );
}

/*wvw_ebEditable( [nWinNum], nEditId, [lEditable] )
 * get/set editability attribute from editbox nEditId on window nWinNum
 *(if lEditable is not specified, no change to editability)
 * return previous state of the editbox (TRUE:editable FALSE:not editable)
 *(if nEditId is invalid, this function returns FALSE too)
 */
HB_FUNC( WVW_EBEDITABLE )
{
   UINT usWinNum  = WVW_WHICH_WINDOW;
   UINT uiCtrlId  = HB_ISNIL( 2 ) ? 0 : hb_parni( 2 );
   BOOL bEditable = HB_ISNIL( 3 ) ? TRUE : hb_parl( 3 );
   byte bStyle;
   HWND hWndEB = FindControlHandle( usWinNum, WVW_CONTROL_EDITBOX, uiCtrlId, &bStyle );

   if( hWndEB )
   {
      DWORD dwStyle = ( DWORD ) GetWindowLong( hWndEB, GWL_STYLE );

      hb_retl( ! ( ( dwStyle & ES_READONLY ) == ES_READONLY ) );

      if( ! HB_ISNIL( 3 ) )
         SendMessage(
            ( HWND ) hWndEB,
            EM_SETREADONLY,
            ( WPARAM ) ! bEditable,
            ( LPARAM ) 0
            );
   }
   else
      hb_retl( FALSE );
}

/*wvw_ebSetCodeblock( [nWinNum], nEBid, bBlock )
 * assign (new) codeblock bBlock to editbox nEBid for window nWinNum
 *
 * return .t. if successful
 */
HB_FUNC( WVW_EBSETCODEBLOCK )
{
   UINT usWinNum = WVW_WHICH_WINDOW;

   UINT uiEBid                 = ( UINT ) ( HB_ISNIL( 2 ) ? 0  : hb_parni( 2 ) );
   CONTROL_DATA * pcd          = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   WVW_DATA *     pData        = hb_getWvwData();
   PHB_ITEM       phiCodeBlock = hb_param( 3, HB_IT_BLOCK );
   BOOL bOldSetting            = pData->s_bRecurseCBlock;

   if( ! phiCodeBlock || pcd == NULL || pcd->bBusy )
   {
      hb_retl( FALSE );
      return;
   }

   pData->s_bRecurseCBlock = FALSE;
   pcd->bBusy = TRUE;

   if( pcd->phiCodeBlock )
      hb_itemRelease( pcd->phiCodeBlock );


   pcd->phiCodeBlock = hb_itemNew( phiCodeBlock );

   pcd->bBusy = FALSE;
   pData->s_bRecurseCBlock = bOldSetting;

   hb_retl( TRUE );
}

/* wvw_ebSetFont([nWinNum], cFontFace, nHeight, nWidth, nWeight, nQUality,;
 *                             lItalic, lUnderline, lStrikeout
 *
 * this will initialize font for ALL editboxes in window nWinNum
 * (including ones created later on)
 *
 * TODO: ? should nHeight be ignored, and always forced to use standard char height?
 */
HB_FUNC( WVW_EBSETFONT )
{
   UINT       usWinNum    = WVW_WHICH_WINDOW;
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   BOOL       retval      = TRUE;
   WVW_DATA * pData       = hb_getWvwData();

   pData->s_lfEB.lfHeight      = HB_ISNIL( 3 ) ? pWindowData->fontHeight - 2 : hb_parnl( 3 );
   pData->s_lfEB.lfWidth       = HB_ISNIL( 4 ) ? pData->s_lfEB.lfWidth : hb_parni( 4 );
   pData->s_lfEB.lfEscapement  = 0;
   pData->s_lfEB.lfOrientation = 0;
   pData->s_lfEB.lfWeight      = HB_ISNIL( 5 ) ? pData->s_lfEB.lfWeight : hb_parni( 5 );
   pData->s_lfEB.lfItalic      = HB_ISNIL( 7 ) ? pData->s_lfEB.lfItalic    : ( BYTE ) hb_parl( 7 );
   pData->s_lfEB.lfUnderline   = HB_ISNIL( 8 ) ? pData->s_lfEB.lfUnderline : ( BYTE ) hb_parl( 8 );
   pData->s_lfEB.lfStrikeOut   = HB_ISNIL( 9 ) ? pData->s_lfEB.lfStrikeOut : ( BYTE ) hb_parl( 9 );
   pData->s_lfEB.lfCharSet     = DEFAULT_CHARSET;

   pData->s_lfEB.lfQuality        = HB_ISNIL( 6 ) ? pData->s_lfEB.lfQuality : ( BYTE ) hb_parni( 6 );
   pData->s_lfEB.lfPitchAndFamily = FF_DONTCARE;
   if( HB_ISCHAR( 2 ) )
      strcpy( pData->s_lfEB.lfFaceName, hb_parcx( 2 ) );

   if( pWindowData->hEBfont )
   {
      HFONT hOldFont = pWindowData->hEBfont;
      HFONT hFont    = CreateFontIndirect( &pData->s_lfEB );
      if( hFont )
      {
         CONTROL_DATA * pcd = pWindowData->pcdCtrlList;

         while( pcd )
         {
            if( ( pcd->byCtrlClass == WVW_CONTROL_EDITBOX ) &&
                ( ( HFONT ) SendMessage( pcd->hWndCtrl, WM_GETFONT, ( WPARAM ) 0, ( LPARAM ) 0 ) == hOldFont )
                )
               SendMessage( pcd->hWndCtrl, WM_SETFONT, ( WPARAM ) hFont, ( LPARAM ) TRUE );


            pcd = pcd->pNext;
         }

         pWindowData->hEBfont = hFont;
         DeleteObject( ( HFONT ) hOldFont );

      }
      else
         retval = FALSE;
   }

   hb_retl( retval );

}

/*wvw_ebIsMultiline( [nWinNum], nEBid )
 * returns .t. if editbox nEBid in window nWinNum is multiline
 * otherwise .f.
 * Also returns .f. if nEBid not valid
 */
HB_FUNC( WVW_EBISMULTILINE )
{
   UINT usWinNum      = WVW_WHICH_WINDOW;
   UINT uiEBid        = hb_parni( 2 );
   CONTROL_DATA * pcd = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   BOOL bMultiline;

   if( pcd == NULL )
   {
      hb_retl( FALSE );
      return;
   }

   bMultiline = ( ( pcd->bStyle & WVW_EB_MULTILINE ) == WVW_EB_MULTILINE );
   hb_retl( bMultiline );
}

/* wvw_ebGetText( [nWinNum], nEBid,;
 *                          lSoftBreak )
 * returns current text from editbox nEBid in window nWinNum
 * lSoftBreak: Default is FALSE.
 *             insert soft line break character (CR+CR+LF) at wordwrap positions
 *             can be usefull to convert the text to MEMO format
 *             eg. converting editbox's softbreaks into memoline softbreak:
 *                cStr := wvw_ebGetText( NIL, nEBid, .T. )
 *                cStr := StrTran( cStr, CR + CR + LF, Chr( 141 ) + LF )
 *
 * returns "" in case of error (eg. nEBid not valid)
 */
HB_FUNC( WVW_EBGETTEXT )
{
   UINT usWinNum         = WVW_WHICH_WINDOW;
   UINT uiEBid           = hb_parni( 2 );
   CONTROL_DATA * pcd    = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   BOOL       bSoftBreak = HB_ISLOG( 3 ) ? hb_parl( 3 ) : FALSE;
   USHORT     usLen;
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   LPTSTR     lpszTextANSI;
   BOOL       bToOEM = ( pWindowData->CodePage == OEM_CHARSET );

   if( pcd == NULL )
   {
      hb_retl( FALSE );
      return;
   }

   if( bSoftBreak )
      SendMessage(
         ( HWND ) pcd->hWndCtrl,
         EM_FMTLINES,
         ( WPARAM ) TRUE,
         ( LPARAM ) 0
         );


   usLen = ( USHORT ) SendMessage( ( HWND ) pcd->hWndCtrl, WM_GETTEXTLENGTH, 0, 0 ) + 1;

   lpszTextANSI = ( LPTSTR ) hb_xgrab( usLen );

   SendMessage(
      ( HWND ) pcd->hWndCtrl,
      WM_GETTEXT,
      usLen,
      ( LPARAM ) lpszTextANSI
      );

   if( bToOEM )
   {
      ULONG  ulLen    = ( ULONG ) strlen( lpszTextANSI );
      LPTSTR lpszText = ( LPTSTR ) hb_xgrab( ulLen + 1 );
      CharToOem( lpszTextANSI, lpszText );
      hb_retc( lpszText );
      hb_xfree( lpszText );
   }
   else
      hb_retc( lpszTextANSI );

   hb_xfree( lpszTextANSI );
}

/*wvw_ebSetText( [nWinNum], nEBid, cText )
 * set current text of editbox nEBid in window nWinNum
 * returns .t. if successful, .f. in case of error (eg. nEBid not valid)
 */
HB_FUNC( WVW_EBSETTEXT )
{
   UINT usWinNum = WVW_WHICH_WINDOW;
   UINT uiEBid   = hb_parni( 2 );
   WIN_DATA *     pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   CONTROL_DATA * pcd         = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   BOOL   bRetval;
   LPTSTR lpszText = ( LPTSTR ) hb_parcx( 3 );
   BOOL   bFromOEM = ( pWindowData->CodePage == OEM_CHARSET );

   if( pcd == NULL )
   {
      hb_retl( FALSE );
      return;
   }

   if( bFromOEM )
   {
      ULONG  ulLen        = ( ULONG ) strlen( lpszText );
      LPTSTR lpszTextANSI = ( LPTSTR ) hb_xgrab( ulLen + 1 );
      OemToChar( lpszText, lpszTextANSI );
      lpszText = lpszTextANSI;
   }

   bRetval = SendMessage(
      ( HWND ) pcd->hWndCtrl,
      WM_SETTEXT,
      0,
      ( LPARAM ) lpszText
      );

   if( bFromOEM )
      hb_xfree( lpszText );

   hb_retl( bRetval );
}

/*wvw_ebGetSel( [nWinNum], nEBid, @nstart, @nend )
 * get selected text editbox nEBid in window nWinNum
 * the start selected text (0-based) is in nstart
 * the end selected text (0-based) is in nend
 * returns .t. if operation successful
 * returns .f. if not (eg. nEBid not valid)
 */
HB_FUNC( WVW_EBGETSEL )
{
   UINT usWinNum      = WVW_WHICH_WINDOW;
   UINT uiEBid        = hb_parni( 2 );
   CONTROL_DATA * pcd = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   DWORD          dwStart, dwEnd;

   if( pcd == NULL )
   {
      hb_retl( FALSE );
      return;
   }

   SendMessage( ( HWND ) pcd->hWndCtrl,
                EM_GETSEL,
                ( WPARAM ) &dwStart,
                ( LPARAM ) &dwEnd
                );

   if( HB_ISBYREF( 3 ) )
      hb_stornl( dwStart, 3 );
   if( HB_ISBYREF( 4 ) )
      hb_stornl( dwEnd, 4 );
   hb_retl( TRUE );
}

/*wvw_ebSetSel( [nWinNum], nEBid, nstart, nend )
 * set selected text editbox nEBid in window nWinNum
 * the start selected text (0-based) is in nstart
 * the end selected text (0-based) is in nend
 * notes: nstart may be > nend (flipped selection)
 * notes: to selet all text: wvw_ebSetSel(nwinnum, nebid, 0, -1)
 * returns .t. if operation successful
 * returns .f. if not (eg. nEBid not valid)
 */
HB_FUNC( WVW_EBSETSEL )
{
   UINT usWinNum          = WVW_WHICH_WINDOW;
   UINT uiEBid            = hb_parni( 2 );
   CONTROL_DATA * pcd     = GetControlData( usWinNum, WVW_CONTROL_EDITBOX, NULL, uiEBid );
   DWORD          dwStart = ( DWORD ) ( HB_ISNUM( 3 ) ? hb_parnl( 3 ) : 0 );
   DWORD          dwEnd   = ( DWORD ) ( HB_ISNUM( 4 ) ? hb_parnl( 4 ) : 0 );

   if( pcd == NULL )
   {
      hb_retl( FALSE );
      return;
   }

   SendMessage( ( HWND ) pcd->hWndCtrl,
                EM_SETSEL,
                ( WPARAM ) dwStart,
                ( LPARAM ) dwEnd
                );
   hb_retl( TRUE );
}
/* Static controls */

HB_FUNC( WVW_STCREATE )
{
   HANDLE     hInstance   = NULL;
   UINT       usWinNum    = WVW_WHICH_WINDOW;
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   WVW_DATA * pData       = hb_getWvwData();
   HWND       hWndParent  = pWindowData->hWnd;
   HWND       hWndCB;

#if 0
   RECT r;
   HDC  hDc;
#endif

   POINT xy = { 0 };
   int   iTop, iLeft, iBottom, iRight;
   int   iOffTop, iOffLeft, iOffBottom, iOffRight;
   UINT  uiCBid;
   BOOL  bBorder   = hb_parnl( 7 );
   ULONG ulExStyle = 0 | ( bBorder ? WS_EX_CLIENTEDGE : 0 );

   USHORT usWidth  = ( USHORT ) hb_parni( 4 );
   USHORT usTop    = ( USHORT ) hb_parni( 2 ),
          usLeft   = ( USHORT ) hb_parni( 3 ),
          usBottom = HB_ISNUM( 11 ) ? ( USHORT ) hb_parni( 11 ) : usTop,
          usRight  = HB_ISNUM( 12 ) ? ( USHORT ) hb_parni( 12 ) : usLeft + usWidth - 1;
   /* char * sText = hb_parc( 5 ); */


   int   iStyle = ( bBorder ? WS_BORDER : 0 );
   int   iBox   = HB_ISNUM( 10 ) ? hb_parni( 10 ) : 0;
   HFONT hFont  = NULL;

   if( iBox > 0 )
      iStyle |= iBox;


   if( HB_ISNUM( 8 ) )
      hFont = ( HFONT ) HB_PARHANDLE( 8 );
   else
   if( pWindowData->hSTfont == NULL )
   {
      pWindowData->hSTfont = CreateFontIndirect( &pData->s_lfST );
      if( pWindowData->hSTfont == NULL )
      {
         hb_retnl( 0 );
         return;
      }
   }


   iOffTop  = ! HB_ISNIL( 6 ) ? hb_parvni( 6, 1 ) : 0;
   iOffLeft = ! HB_ISNIL( 6 ) ? hb_parvni( 6, 2 ) : 0;

   iOffBottom = ! HB_ISNIL( 6 ) ? hb_parvni( 6, 3 ) : 0;
   iOffRight  = ! HB_ISNIL( 6 ) ? hb_parvni( 6, 4 ) : 0;

   if( hb_gt_wvw_GetMainCoordMode() )
      hb_wvw_HBFUNCPrologue( usWinNum, &usTop, &usLeft, &usBottom, &usRight );

   xy    = hb_gt_wvwGetXYFromColRow( pWindowData, usLeft, usTop );
   iTop  = xy.y + iOffTop;
   iLeft = xy.x + iOffLeft;

   xy = hb_gt_wvwGetXYFromColRow( pWindowData, usRight + 1, usBottom + 1 );

   xy.y -= pWindowData->byLineSpacing;

   iBottom = xy.y - 1 + iOffBottom;
   iRight  = xy.x - 1 + iOffRight;

   uiCBid = LastControlId( usWinNum, WVW_CONTROL_STATIC );
   if( uiCBid == 0 )
      uiCBid = WVW_ID_BASE_STATIC;
   else
      uiCBid++;

   hb_winmainArgGet( &hInstance, NULL, NULL );

   hWndCB = CreateWindowEx(
      ulExStyle,
      "STATIC",
      ( LPSTR ) NULL,
      WS_CHILD | WS_VISIBLE | ( DWORD ) iStyle,
      iLeft,
      iTop,
      iRight - iLeft + 1,
      iBottom - iTop + 1,
      hWndParent,
      ( HMENU ) uiCBid,
      ( HINSTANCE ) hInstance,
      ( LPVOID ) NULL
      );

   if( hWndCB )
   {
      if( HB_ISCHAR( 5 ) )
         SendMessage( hWndCB, WM_SETTEXT, 0, ( LPARAM ) hb_parc( 5 ) );
      if( hFont )
         SendMessage( hWndCB, WM_SETFONT, ( WPARAM ) hFont, ( LPARAM ) TRUE );
      else
         SendMessage( hWndCB, WM_SETFONT, ( WPARAM ) pWindowData->hSTfont, ( LPARAM ) TRUE );
      hb_retnl( ( LONG ) uiCBid );
      HB_STOREHANDLE( hWndCB, 9 );
   }
   else
      hb_retnl( ( LONG ) 0 );
}


HB_FUNC( WVW_STSETTEXT )
{
   HWND hWndCB = ( HWND ) HB_PARHANDLE( 2 );

   if( hWndCB )
   {

      SetWindowText( ( HWND ) hWndCB, ( LPCTSTR ) hb_parc( 3 ) );
      hb_retl( 1 );
   }
   else
      hb_retl( FALSE );
}


HB_FUNC( WVW_STSETFONT )
{
   UINT       usWinNum    = WVW_WHICH_WINDOW;
   WIN_DATA * pWindowData = hb_gt_wvw_GetWindowsData( usWinNum );
   WVW_DATA * pData       = hb_getWvwData();
   BOOL       retval      = TRUE;

   pData->s_lfST.lfHeight      = HB_ISNIL( 3 ) ? pWindowData->fontHeight - 2 : hb_parnl( 3 );
   pData->s_lfST.lfWidth       = HB_ISNIL( 4 ) ? pData->s_lfST.lfWidth : hb_parni( 4 );
   pData->s_lfST.lfEscapement  = 0;
   pData->s_lfST.lfOrientation = 0;
   pData->s_lfST.lfWeight      = HB_ISNIL( 5 ) ? pData->s_lfST.lfWeight : hb_parni( 5 );
   pData->s_lfST.lfItalic      = HB_ISNIL( 7 ) ? pData->s_lfST.lfItalic    : ( BYTE ) hb_parl( 7 );
   pData->s_lfST.lfUnderline   = HB_ISNIL( 8 ) ? pData->s_lfST.lfUnderline : ( BYTE ) hb_parl( 8 );
   pData->s_lfST.lfStrikeOut   = HB_ISNIL( 9 ) ? pData->s_lfST.lfStrikeOut : ( BYTE ) hb_parl( 9 );
   pData->s_lfST.lfCharSet     = DEFAULT_CHARSET;

   pData->s_lfST.lfQuality        = HB_ISNIL( 6 ) ? pData->s_lfST.lfQuality : ( BYTE ) hb_parni( 6 );
   pData->s_lfST.lfPitchAndFamily = FF_DONTCARE;
   if( HB_ISCHAR( 2 ) )
      strcpy( pData->s_lfST.lfFaceName, hb_parcx( 2 ) );

   if( pWindowData->hSTfont )
   {
      HFONT hOldFont = pWindowData->hSTfont;
      HFONT hFont    = CreateFontIndirect( &pData->s_lfST );
      if( hFont )
      {
         CONTROL_DATA * pcd = pWindowData->pcdCtrlList;

         while( pcd )
         {
            if( ( pcd->byCtrlClass == WVW_CONTROL_STATIC ) &&
                ( ( HFONT ) SendMessage( pcd->hWndCtrl, WM_GETFONT, ( WPARAM ) 0, ( LPARAM ) 0 ) == hOldFont )
                )
               SendMessage( pcd->hWndCtrl, WM_SETFONT, ( WPARAM ) hFont, ( LPARAM ) TRUE );


            pcd = pcd->pNext;
         }

         pWindowData->hSTfont = hFont;
         DeleteObject( ( HFONT ) hOldFont );

      }
      else
         retval = FALSE;
   }

   hb_retl( retval );

}