MIGRACION DE XHARBOUR A HARBOUR

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Wed Jun 25, 2014 10:21 am

Manuel,

ok, se me pasó un detalle:

Code: Select all  Expand view
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
   hb_retl( TWAIN_GetDefaultSourceName( ( char * ) hb_parc( 1 ) ) );
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Wed Jun 25, 2014 10:22 am

Manuel,

ok, se me pasó este detalle:

Code: Select all  Expand view
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
   hb_retl( TWAIN_GetDefaultSourceName( ( char * ) hb_parc( 1 ) ) );
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Wed Jun 25, 2014 4:12 pm

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
}
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Wed Jun 25, 2014 4:37 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Wed Jun 25, 2014 4:47 pm

Manuel,

Aqui aparecen bien los GETs:

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Thu Jun 26, 2014 5:12 am

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.0*nRalto, 5*nRancho GROUP oGrupo TO 130.9*nRalto, 190.0*nRancho ;
LABEL '' OF oDlg TRANSPARENT PIXEL

ESTO SI FUNCIONA, con al menos un SPACE en LABEL
@ 34.0*nRalto, 5*nRancho GROUP oGrupo TO 130.9*nRalto, 190.0*nRancho ;
LABEL ' ' OF oDlg TRANSPARENT PIXEL


En algunos GROUP no me gustaría mostrara ninguna LABEL, sino simplemente el rectángulo. ¿Es posible?
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Thu Jun 26, 2014 8:10 am

Manuel,

Si usas LABEL "" te muestra algún texto ó espacio ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Thu Jun 26, 2014 9:17 am

Antonio Linares wrote:Si usas LABEL "" te muestra algún texto ó espacio ?


El comportamiento es distinto desde código que desde recurso:

En ambos casos, si no pones la etiqueta LABEL o la pones con dos comillas (sin espacio) no funciona. Es decir LABEL "" no funciona.


1) Desde código:
Si pones un espacio entre las comillas funciona,pero deja, logicamente, un espacio en blanco en el rectángulo.

Este sería el fichero ppo desde código con comillas + espacio
oGrupo := TGroup():New( 34.0*nRalto, 5*nRancho, 130.9*nRalto, 190.0*nRancho, " ", oDlg,,, .T.,,, .T.,, )

Este sería el fichero ppo desde código con un contenido en el LABEL "Label del Grupo"
oGrupo := TGroup():New( 34.0*nRalto, 5*nRancho, 130.9*nRalto, 190.0*nRancho, "Label del Grupo", oDlg,,, .T.,,, .T.,, )


2) Desde recursos:
Si pones un espacio entre las comillas NO FUNCIONA, necesita siempre un contenido en el LABEL.

Este sería el fichero ppo desde recurso con comillas + espacio QUE NO FUNCIONA
oGrupo := TGroup():ReDefine( 14, " ", oDlg,,,, .T. )

Este sería el fichero ppo desde recurso con un contenido en el LABEL "Acceso"
oGrupo := TGroup():ReDefine( 14, "Acceso", oDlg,,,, .T. )

EN RESUMEN, que para que funcione y quede bonito, tengo que poner siempre un contenido en el LABEL.

El problema está en la clase Tgroup de FWH-Marzo-2012. He cambiado por la clase tgroup del 2008 y ahora funciona correctamente.
Pero lo suyo es que funcionara con la de Marzo-2012.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Thu Jun 26, 2014 1:19 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Thu Jun 26, 2014 1:24 pm

Manuel,

En cuanto a las funciones en C que hemos comentado, esté código compila aqui correctamente sin ningún warning:

Code: Select all  Expand view
#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 ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Thu Jun 26, 2014 9:33 pm

Antonio 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 ?



Si las he comparado y hay muchas cambios, incluso varios métodos añadidos. Por eso, como la versión del 2008 funciona sin problemas, he añadido el módulo a la librería personal y solucionado.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Thu Jun 26, 2014 9:36 pm

Antonio Linares wrote:
HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
   hb_retl( TWAIN_GetNextSourceName( ( char * ) hb_parc( 1 ) ) );
}




Con este nuevo código, si compila perfectamente.

Muchas gracias.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Antonio Linares » Thu Jun 26, 2014 9:53 pm

muy bien :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby postinelli » Mon Jun 30, 2014 5:13 pm

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 ) ) );
}
postinelli
 
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

Re: MIGRACION DE XHARBOUR A HARBOUR

Postby Manuel Valdenebro » Tue Jul 01, 2014 8:51 am

Muchas gracias Postinelli
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: carlos vargas and 77 guests