Page 1 of 1

rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 8:09 am
by 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.

Re: rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 10:46 am
by 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.

Re: rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 2:38 pm
by pedroluis
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 !

Re: rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 2:38 pm
by pedroluis
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 !

Re: rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 3:28 pm
by karinha
Hola, RPREVIEW.PRG:

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

Re: rpreview: como quitar icono de generación DOC

Posted: Fri Apr 05, 2019 7:17 pm
by cnavarro
Sólo quieres quitar ( desactivar ) ese boton?

Re: rpreview: como quitar icono de generación DOC

Posted: Sat Apr 06, 2019 2:37 am
by pedroluis
cnavarro wrote:Sólo quieres quitar ( desactivar ) ese boton?

si, solo quiero quitarlo

Re: rpreview: como quitar icono de generación DOC

Posted: Sat Apr 06, 2019 2:49 am
by pedroluis
karinha wrote:Hola, RPREVIEW.PRG:

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" )
 
Saludos
Gracias, pero no me funcionó con el WHEN (.f.)

Re: rpreview: como quitar icono de generación DOC

Posted: Sat Apr 06, 2019 7:57 am
by 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

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