www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Hola Garbi !Garbi wrote:Saludos,
No creo que haya opción para hacerlo sin modificar el rpreview.prg
Puedes modificar el rpreview.prg quitando el boton del DOC y compilarlo con tu aplicación. Puedes encontrar el prg dentro fivewin\sources\classes (Lo he probado yo y si me lo quita)
Yo he modificado el fichero rpreview.prg por el tema del envió por mail, hacer la barra más grande y lo compilo con mi aplicación.
Hola Garbi !Garbi wrote:Saludos,
No creo que haya opción para hacerlo sin modificar el rpreview.prg
Puedes modificar el rpreview.prg quitando el boton del DOC y compilarlo con tu aplicación. Puedes encontrar el prg dentro fivewin\sources\classes (Lo he probado yo y si me lo quita)
Yo he modificado el fichero rpreview.prg por el tema del envió por mail, hacer la barra más grande y lo compilo con mi aplicación.
Code: Select all
METHOD BuildButtonBar() CLASS TPreview
DEFINE TBBUTTON OF oBar WHEN( .F. ) ; // Aqui
ACTION ::ExportToMSWord() ;
TOOLTIP FWString( "Export to MS Word" ) ;
MESSAGE FWString( "Export to MS Word" )
cnavarro wrote:Sólo quieres quitar ( desactivar ) ese boton?
Gracias, pero no me funcionó con el WHEN (.f.)karinha wrote:Hola, RPREVIEW.PRG:
SaludosCode: Select all
METHOD BuildButtonBar() CLASS TPreview DEFINE TBBUTTON OF oBar WHEN( .F. ) ; // Aqui ACTION ::ExportToMSWord() ; TOOLTIP FWString( "Export to MS Word" ) ; MESSAGE FWString( "Export to MS Word" )
Code: Select all
DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Send by email as PDF" ) ;
ACTION ::SendEmail() ;
TOOLTIP FWString( "Send by email as PDF" )
oBtn:hBitmap1 = FWBitmap( "email" )
/*
DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Export to MS Word" ) ;
ACTION ::ExportToMSWord() ;
TOOLTIP FWString( "Export to MS Word" ) ;
WHEN ::CanExportToWord
oBtn:hBitmap1 = FWBitmap( "Word2" )
*/
DEFINE BUTTON oBtn OF oBar ;
MESSAGE FWString( "Export to Excel" ) ;
ACTION ::ExportToMSExcel() ;
TOOLTIP FWString( "Export to Excel" ) ;
WHEN ::CanExportToExcel
oBtn:hBitmap1 = FWBitmap( "Excel" )