HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
聽 聽hb_retl( TWAIN_GetDefaultSourceName( ( char * ) hb_parc( 1 ) ) );
}HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
聽 聽hb_retl( TWAIN_GetDefaultSourceName( ( char * ) hb_parc( 1 ) ) );
}He modificado el codigo, pero sigue saliendo lo mismo:
Warning W8075 TSCAN.prg 495: Suspicious pointer conversion in function HB_FUN_TW_GETNEXTSOURCENAME
Warning W8075 TSCAN.prg 505: Suspicious pointer conversion in function HB_FUN_TW_GETDEFAULTSOURCENAME
Por otro lado, cuando llama a un dialogo con recursos (uso Workshop) y en el recurso figura "|", no salen los says, como ocurr铆a con los STYLES:
ACCESO DIALOG 62, 37, 213, 125
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Clave de acceso"
FONT 8, "MS Sans Serif"
{
EDITTEXT 12, 137, 41, 40, 12, ES_PASSWORD | ES_WANTRETURN | WS_BORDER | WS_GROUP | WS_TABSTOP (este no sale)
PUSHBUTTON "&Aceptar", 20, 12, 78, 85, 25
PUSHBUTTON "&Cancelar", 13, 115, 78, 85, 25
EDITTEXT 11, 137, 18, 40, 12, ES_WANTRETURN | WS_BORDER | WS_GROUP | WS_TABSTOP (este no sale)
ICON "KEYS", 10, 21, 23, 18, 20
LTEXT "Usuario", 8, 70, 19, 56, 8
LTEXT "Contrase帽a", 9, 70, 43, 58, 8
GROUPBOX "", 14, 59, 5, 130, 60, BS_GROUPBOX
}
Manuel,
Voy a compilarlo aqui y te digo.
En cuanto al RC, lo pruebo en un rato. Justo ahora ando terminando de hacer unas cosas que no pueden esperar.
Antonio, ya d铆 con la tecla.
Tanto desde c贸digo como desde recursos, no se permite en GROUP omitir LABEL y que adem谩s tenga un contenido:
ESTO NO FUNCIONA
@ 34.0*nRalto, 5*nRancho GROUP oGrupo TO 130.9*nRalto, 190.0*nRancho ;
OF oDlg TRANSPARENT PIXEL
ESTO TAMPOCO
@ 34.0nRalto, 5nRancho GROUP oGrupo TO 130.9nRalto, 190.0nRancho ;
LABEL '' OF oDlg TRANSPARENT PIXEL
ESTO SI FUNCIONA, con al menos un SPACE en LABEL
@ 34.0nRalto, 5nRancho GROUP oGrupo TO 130.9nRalto, 190.0nRancho ;
LABEL ' ' OF oDlg TRANSPARENT PIXEL
En algunos GROUP no me gustar铆a mostrara ninguna LABEL, sino simplemente el rect谩ngulo. 驴Es posible?
Manuel,
Si usas LABEL "" te muestra alg煤n texto 贸 espacio ?
Antonio Linares wrote:Si usas LABEL "" te muestra alg煤n texto 贸 espacio ?
Manuel,
Has comparado el c贸digo fuente de la clase TGroup en versi贸n 12.03 con la del 2008 que has usado ?
Con FWH 14.06 funciona correctamente pero te dir茅 que solo hay una l铆nea de diferencia (entre la versi贸n 12.03 y la 14.06):
// FillRect( ::hDC, { 0, 7, aSize[ 2 ] + 2, aSize[ 1 ] + 11 }, ::oBrush:hBrush ) En la versi贸n 14.06 no se usa esta l铆nea
En cuanto al commando (preprocesado) no hay cambios entre ambas versiones.
Logicamente hay muchos cambios en todo FWH desde la versi贸n 12.03 a la versi贸n 14.06.
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
BOOL TWAIN_GetNextSourceName( LPSTR pzName );
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
hb_retl( TWAIN_GetNextSourceName( ( char * ) hb_parc( 1 ) ) );
}
#pragma ENDDUMPAntonio Linares wrote:Manuel,
Has comparado el c贸digo fuente de la clase TGroup en versi贸n 12.03 con la del 2008 que has usado ?
Antonio Linares wrote:
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
聽 聽hb_retl( TWAIN_GetNextSourceName( ( char * ) hb_parc( 1 ) ) );
}
muy bien 
Yo tuve el mismo problema y lo solucion茅 de la misma forma
copio aqui debajo el codigo anterior que usaba con xHarbour y ahora con Harbour
las unicas 2 modificaciones
realmente es sencillo pasar a Harbour
xHarbour
HB_FUNC( TW_GETNEXTSOURCENAME )
{
hb_retni( TWAIN_GetNextSourceName( hb_parc( 1 ) ) );
}
Harbour
HB_FUNC( TW_GETNEXTSOURCENAME )
{
hb_retni( TWAIN_GetNextSourceName( ( char * ) hb_parc( 1 ) ) );
}
xHarbour
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
hb_retni( TWAIN_GetDefaultSourceName( hb_parc( 1 ) ));
}
Harbour
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
hb_retl( TWAIN_GetDefaultSourceName( ( char * ) hb_parc( 1 ) ) );
}
Muchas gracias Postinelli