FiveTech Software tech support forums

Hola amigos !
Tengo el fwh 17.09 y quisiera saber como quitar el icono de generación de archivos DOC del rpreview.
Gracias !
Pedro.

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.

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 !
Sería mucho pedir que me mandes tu rpreview modificado ?
lavallen61@hotmail.com
Muy amable !

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 !
Sería mucho pedir que me mandes tu rpreview modificado ?
lavallen61@hotmail.com
Muy amable !

Hola, RPREVIEW.PRG:

Code: Select all  Expand view

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" )
 

Saludos

Sólo quieres quitar ( desactivar ) ese boton?

cnavarro wrote:Sólo quieres quitar ( desactivar ) ese boton?

si, solo quiero quitarlo

karinha wrote:Hola, RPREVIEW.PRG:

Code: Select all  Expand view

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" )
 

Saludos

Gracias, pero no me funcionó con el WHEN (.f.)

En mi rpreview.prg solo he puesto indicadores de ignoración de código para que no aparezca el boton de word :

En mi rpeview.prg para la barra de botones hay un if,else,endif y lo he puesto después del else

Code: Select all  Expand view

         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" )