FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Customizar el PREVIEW
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Customizar el PREVIEW
Posted: Mon Oct 25, 2021 08:25 AM

Hola.

Quiero customizar el preview del fwh, como ser que solo aparezca el boton "exportar a pdf" eso se puede hacer?
hay info?

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Customizar el PREVIEW
Posted: Mon Oct 25, 2021 10:28 AM

Mira el RPREVIEW.PRG

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Customizar el PREVIEW
Posted: Mon Oct 25, 2021 08:01 PM
karinha wrote:Mira el RPREVIEW.PRG

Regards, saludos.



no me estaría ayudando esa respuesta.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Customizar el PREVIEW
Posted: Mon Oct 25, 2021 08:28 PM
Inicia por aqui:

Code (fw): Select all Collapse
   METHOD BuildMenu() CLASS TPreview


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Customizar el PREVIEW
Posted: Tue Oct 26, 2021 11:13 AM
Hola como vas?

En las primeras líneas de tu prg principal
Code (fw): Select all Collapse
//PERSONALIZAMOS LA BARRA DE BOTONES DE LA VISTA PREVIA
TPreview():bButtonBar := {| oPreview, oWnd | YourButtonBar (oPreview, oWnd)}


Code (fw): Select all Collapse
**************************************
*BUTTON BAR PERSONALIZADA PARA PREVIEW
**************************************
function YourButtonBar (oPreview, oWnd)
LOCAL oBar
Local nCopia := 1

DEFINE BUTTONBAR oBar OF oWnd SIZE 60,60 2015
oPreview:oBar := oBar

DEFINE BUTTON OF oBar RESOURCE "#8517" PROMPT "Imprimir" TOOLTIP "Imprimir Factura" ;
    ACTION oPreview:PrintPage()
DEFINE BUTTON OF oBar RESOURCE "#8545" PROMPT "Zoom" TOOLTIP "Zoom" ;
    ACTION oPreview:Zoom() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "PDF" TOOLTIP "Exportar a PDF" ;
    ACTION oPreview:SaveAs(.T.) GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "WORD" TOOLTIP "Exportar a WORD" ;
    ACTION oPreview:SaveAs(.F.) 
    
DEFINE BUTTON OF oBar RESOURCE "#8548" PROMPT "Primera" TOOLTIP "Primera Página " ;
    ACTION oPreview:TopPage() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8546" PROMPT "Anterior" TOOLTIP "Página Anterior" ;
    ACTION oPreview:PrevPage() 
DEFINE BUTTON OF oBar RESOURCE "#8547" PROMPT "Siguiente" TOOLTIP "Página Siguiente" ;
    ACTION oPreview:NextPage()  
DEFINE BUTTON OF oBar RESOURCE "#8549" PROMPT "Ultima" TOOLTIP "Ultima Página" ;
    ACTION oPreview:BottomPage()    
    
DEFINE BUTTON OF oBar RESOURCE "#8513" PROMPT "Cerrar" TOOLTIP "Salir de la Previsualización" ;
        ACTION (oPreview:oWnd:End() ) GROUP
oBar:GoTop()

Return nil
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Customizar el PREVIEW
Posted: Wed Oct 27, 2021 12:46 AM
leandro wrote:Hola como vas?

En las primeras líneas de tu prg principal
Code (fw): Select all Collapse
//PERSONALIZAMOS LA BARRA DE BOTONES DE LA VISTA PREVIA
TPreview():bButtonBar := {| oPreview, oWnd | YourButtonBar (oPreview, oWnd)}


Code (fw): Select all Collapse
**************************************
*BUTTON BAR PERSONALIZADA PARA PREVIEW
**************************************
function YourButtonBar (oPreview, oWnd)
LOCAL oBar
Local nCopia := 1

DEFINE BUTTONBAR oBar OF oWnd SIZE 60,60 2015
oPreview:oBar := oBar

DEFINE BUTTON OF oBar RESOURCE "#8517" PROMPT "Imprimir" TOOLTIP "Imprimir Factura" ;
    ACTION oPreview:PrintPage()
DEFINE BUTTON OF oBar RESOURCE "#8545" PROMPT "Zoom" TOOLTIP "Zoom" ;
    ACTION oPreview:Zoom() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "PDF" TOOLTIP "Exportar a PDF" ;
    ACTION oPreview:SaveAs(.T.) GROUP
DEFINE BUTTON OF oBar RESOURCE "#8506" PROMPT "WORD" TOOLTIP "Exportar a WORD" ;
    ACTION oPreview:SaveAs(.F.) 
    
DEFINE BUTTON OF oBar RESOURCE "#8548" PROMPT "Primera" TOOLTIP "Primera Página " ;
    ACTION oPreview:TopPage() GROUP
DEFINE BUTTON OF oBar RESOURCE "#8546" PROMPT "Anterior" TOOLTIP "Página Anterior" ;
    ACTION oPreview:PrevPage() 
DEFINE BUTTON OF oBar RESOURCE "#8547" PROMPT "Siguiente" TOOLTIP "Página Siguiente" ;
    ACTION oPreview:NextPage()  
DEFINE BUTTON OF oBar RESOURCE "#8549" PROMPT "Ultima" TOOLTIP "Ultima Página" ;
    ACTION oPreview:BottomPage()    
    
DEFINE BUTTON OF oBar RESOURCE "#8513" PROMPT "Cerrar" TOOLTIP "Salir de la Previsualización" ;
        ACTION (oPreview:oWnd:End() ) GROUP
oBar:GoTop()

Return nil




gracias!
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion

Static archive · New replies & topics via GitHub Discussions