rpreview: como quitar icono de generación DOC

[pedroluis]

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

[Garbi]

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.

[pedroluis]

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 !

[pedroluis]

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 !

[karinha]

Hola, RPREVIEW.PRG:

Code: Select all  Expand view  RUN

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

[cnavarro]

Sólo quieres quitar ( desactivar ) ese boton?

[pedroluis]

Sólo quieres quitar ( desactivar ) ese boton?

si, solo quiero quitarlo

[pedroluis]

Hola, RPREVIEW.PRG:

Code: Select all  Expand view  RUN

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

[Garbi]

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  RUN

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