FWH + xharbour
- Code: Select all Expand view RUN
/*
* $Id: getbtn.c,v 1.1 2001/09/05 17:34:44 RRamirez Exp $
*/
#define STRICT
#include <WinTen.h>
#include <Windows.h>
#include <ClipApi.h>
#ifdef __cplusplus
extern "C" {
#endif
#ifdef __cplusplus
}
#endif
#ifdef __HARBOUR__
HARBOUR HB_FUN_GETBTN( PARAMS )
#else
CLIPPER GETBTN( PARAMS ) // ( hWnd, nLen ) --> Nil
#endif
{
HWND hWnd = ( HWND ) _parnl( 1 );
RECT rect;
GetClientRect( hWnd, &rect );
rect.right -= (short)_parni( 2 ) ;
SendMessage( hWnd, EM_SETRECTNP, 0, ( LONG ) &rect );
}