Con el siguiente código puedo visualizar un archivo pdf asociado a un listbox. La idea es que al cambiar de registro se refresque el pdf, pero no lo consigo. Si activo oPdf con bchange en vez del ON INIT de ACTIVATE DIALOG se produce un cuelgue. ¿Alguna idea?
***************************
STATIC FUNCTION VerPdf()
***************************
Local oDlg
Local oLbx
Local oPdf
Local cPdf:=ALLTRIM(DOCU->Ubicado)
//
DEFINE DIALOG oDlg RESOURCE "IMAGEN"
REDEFINE LISTBOX oLbx ;
FIELDS ;
" "+DOCU->Concepto+" ",;
" "+DOCU->Ubicado+" ";
FIELDSIZES 240,240 ;
HEADERS "Descripción del documento","Ubicación del documento");
ID 509
OF oDlg
REDEFINE ACTIVEX oPdf ID 800 OF oDlg PROGID "AcroPDF.PDF.1"
//oLbx:bChange:= {|| cFoto:=ALLTRIM(DOCU->Ubicado),PonPdf(oPdf,cPdf,oDlg) }
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT (oPdf:Do( "LoadFile", cPdf ),oPdf:Do( "SetCurrentPage", 1 ) )
//
oPdf: End()
//
RETURN NIL
//
****************************************
STATIC FUNCTION PonPdf(oPdf,cPdf,oDlg)
****************************************
//
oPdf:Do( "LoadFile", cPdf )
oPdf:Do( "SetCurrentPage", 1 )
oPdf:Refresh()
//
RETURN NIL
//Un saludo,
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC