topic-6996

Board index FiveWin para Harbour/xHarbour Como incluyo codigo C

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Como incluyo codigo C
Posted: Tue May 15, 2007 10:31 AM

Buenas Foro, Mirad tengo la clase btnget que quiero usarla, pero me viene con un fichero C, que tiene una función que me pide al compilar. ¿Cómo hago para incluir este fichero .c en mi proyecto? muchas gracias

FWH + xharbour

Code: Select all Collapse

/*
 * $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 );
}

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como incluyo codigo C
Posted: Tue May 15, 2007 10:55 AM

Mike,

Añade esto en el PRG de la clase BtnGet:

Code: Select all Collapse

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETBTN )
{
    HWND hWnd = ( HWND ) hb_parnl( 1 ); 
    RECT rect; 

    GetClientRect( hWnd, &rect ); 
    rect.right -= (short) hb_parni( 2 ) ; 
    SendMessage( hWnd, EM_SETRECTNP, 0, ( LONG ) &rect ); 
} 

#pragma ENDDUMP

regards, saludos

Antonio Linares
www.fivetechsoft.com

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Como incluyo codigo C
Posted: Tue May 15, 2007 03:03 PM

Perfecto!! Gracias Antonio

FiveTech Support Forums

Continue the discussion