Lo solucioné en Borland C, así. Por si a alguien le interesa:
- Code: Select all Expand view
- ...
...
#include <wingdi.h>
HB_FUNC( NPENWIDTH ) // nPenWidth( hPen )
{
HPEN hPen = ( HPEN ) hb_parnl( 1 ) ;
LOGPEN stPen ;
GetObject( ( HPEN ) hPen, sizeof( LOGPEN ), &stPen ) ;
hb__retnl( (LONG) stPen.lopnWidth.x ) ;
}
Si lo que quereis es saber cúal es su color retornad:
- Code: Select all Expand view
- hb__retnl( (LONG) stPen.lopnColor ) ;
Y si lo que quereis es el estilo que trae:
- Code: Select all Expand view
- hb__retnl( (LONG) stPen.lopnStyle ) ;
Un saludo.