FiveTech Software tech support forums

Estimado Colegas
Tengo un funcion en la clausula on change de TWBrowse

on change( imagen(cfoto,ofoto))

ReDEFINE image ofoto filename cfoto ID 108 OF oDlg update


Imagen (cfoto,ofoto)

imagen->Foto := cfoto
ofoto:refresh()

como hago para que cada vez que avanzo o retrocedo un registro
me actualice el objeto ofoto,

desde ya muchas gracias
Fabian
databaselab2002@yahoo.com.ar

Yo lo hago así y funciona perfectamente:

REDEFINE LISTBOX oBj[9] ;
FIELDS ;
" "+DOCU->Concepto+" ",;
" "+DOCU->Ubicado+" ";
FIELDSIZES 240,240 ;
HEADERS OemToAnSi(" Descripci¢n del documento"),OemToAnSi("Ubicaci¢n del archivo de imagen");
ID 509;
ON LEFT DBLCLICK (AltaDocu(oBj[9],"Ver/Modificar datos del documento ",.F.),PonFoto(oFoto,cFoto,oDlg),oBj[9]:SetFocus()); // Al doble click se editar  el registro
OF oDlg

REDEFINE IMAGE oFoto FILENAME LFN2SFN(cFoto) ID 800;
OF oDlg ADJUST UPDATE //SCROLL

oBj[9]:bChange:= {|| PonFoto(oFoto,cFoto,oDlg) }
//

****************************************
STATIC FUNCTION PONFOTO(oFoto,cFoto,oDlg)
****************************************
Local ctitulo:=ALLTRIM(DOCU->Concepto)+" de "+ALLTRIM(CLIENTES->NumCliente)+" - "+ALLTRIM(CLIENTES->Nombre)
cFoto:=LFN2SFN(ALLTRIM(DOCU->Ubicado))
ctitulo:=ALLTRIM(DOCU->Concepto)+" de "+ALLTRIM(CLIENTES->NumCliente)+" - "+ALLTRIM(CLIENTES->Nombre)
//
IF !FILE(LFN2SFN(cFoto))
cFoto="NOHAY.JPG"
ENDIF
//
oFoto:LoadImage(,cFoto)
oFoto:Refresh()
oDlg:cTitle:=cTitulo
oDlg:Refresh()
//
RETURN NIL

Espero te sea de ayuda.
Un saludo,
Manuel