Como incluyo codigo C

Como incluyo codigo C

Postby Mike Serra » 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  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 );
}
Mike Serra
 
Posts: 297
Joined: Fri Apr 14, 2006 5:52 pm
Location: Córdoba (España)

Postby Antonio Linares » Tue May 15, 2007 10:55 am

Mike,

Añade esto en el PRG de la clase BtnGet:
Code: Select all  Expand view  RUN
#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
User avatar
Antonio Linares
Site Admin
 
Posts: 42151
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Mike Serra » Tue May 15, 2007 3:03 pm

Perfecto!! Gracias Antonio :D
Mike Serra
 
Posts: 297
Joined: Fri Apr 14, 2006 5:52 pm
Location: Córdoba (España)


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests