Carlos
Por favor proporciona un ejemplo que no te funcione para hacer pruebas
gracias
//-------------------------------------------------------------------------------------------------------------------
//Tengo una una funcion en donde esta el dialogo en donde se piden unos datos de nomina de empleados, y entre ellos esta la fotografia, por lo que hago la llamada a la funcion __BucaFoto()
//Por lo que para el ejemplo que me pedis, hice esta funcion que llama a la otra funcion, y me da el mismo error con Windos 7
FUNCTION PruebaFoto()
local cFoto
If MsgNoYes( "Desea buscar una fotografia...","Confirme por favor..." )
cFoto := __BuscaFoto( )
? cFoto
End
Return .t.
//-------------------------------------------------------------------------------------------------------------------
FUNCTION __BuscaFoto( )
local cFile
cFile := cGetFile( "BITMAP (*.bmp)| *.bmp|" + ;
"JPG (*.jpg)| *.jpg|" ;
,"Por Favor Seleccione un Archivo de Imágen" )
if ! Empty( cFile ) .and. File( cFile )
Return cFile
End
return ""#include "fivewin.ch"
function main
local oWnd
define window oWnd
activate window oWnd;
ON CLICK PruebaFoto()
return nil
//-------------------------------------------------------------------------------------------------------------------
//Tengo una una funcion en donde esta el dialogo en donde se piden unos datos de nomina de empleados, y entre ellos esta la fotografia, por lo que hago la llamada a la funcion __BucaFoto()
//Por lo que para el ejemplo que me pedis, hice esta funcion que llama a la otra funcion, y me da el mismo error con Windos 7
FUNCTION PruebaFoto()
local cFoto
If MsgNoYes( "Desea buscar una fotografia...","Confirme por favor..." )
cFoto := __BuscaFoto( )
? cFoto
End
Return .t.
//-------------------------------------------------------------------------------------------------------------------
FUNCTION __BuscaFoto( )
local cFile
cFile := cGetFile( "BITMAP (*.bmp)| *.bmp|" + ;
"JPG (*.jpg)| *.jpg|" ;
,"Por Favor Seleccione un Archivo de Imágen" )
if ! Empty( cFile ) .and. File( cFile )
Return cFile
End
return ""Gracias Daniel por tu ayuda.
Con tu ejemplo, no tengo ningun problema, levanta la ventana de busqueda de archivos sin salirse dle sistema.
Por lo que entonces mi problema es la version de FWH Dic/2007 y xHarbour 1.0.0 que estoy utilizado.
Que versiones estas utilizaste para construir el ejemplo que me enviaste?
Saludos cordiales.
Carlos Sincuir
Carlos
uso el ultimo build de fivewin / harbour
no lo probe con xharbour, pero lo hago de inmediato
Daniel, es correcta la version de xharbour 1.0.0, es la que estoy utilizando.
Hice las pruebas con el nuevo ejemplo, y no tengo ningun problema tampoco.
Voy a recompilar todo mi sistema con la version del xHarbour 1.1.0 que me estas enviando, y te comento como me va.
Gracias de nuevo por tu ayuda.
Saludos cordiales.
Carlos Sincuir