- Author / Company
- idlagam.com
Após analisar o código da classe TPreview do Fivewin, encontrei a função RPrevUserBtns, útil para ocultar alguns botões do preview.
Como é um efeito global, você deve restaurá-lo se desejar. Veja o código abaixo.
Com botões:
Sem botões:
Lembre-se: Para modificar certos comportamentos, primeiramente comece pelo básico e óbvio... tente analisar, entender, via de regra, não altere arquivos fontes do Fivewin. Não siga orientações erradas de veteranos desinformados.
Como é um efeito global, você deve restaurá-lo se desejar. Veja o código abaixo.
Com botões:
Sem botões:
Lembre-se: Para modificar certos comportamentos, primeiramente comece pelo básico e óbvio... tente analisar, entender, via de regra, não altere arquivos fontes do Fivewin. Não siga orientações erradas de veteranos desinformados.
C-like:
#include "FiveWin.ch"
#include "report.ch"
request dbfcdx
/* Eric.Developer
https://devclub.idlagam.com
https://www.facebook.com/MDevClub
*/
Function main()
local bBtn
USE TEST NEW VIA "DBFCDX"
REPORT oReport TITLE "*** DEVCLUB.IDLAGAM.COM ***",;
"Date: "+dtoc(date()) ;
HEADER "This is the first line of the header", ;
"This is the second line of the header", ;
"" RIGHT ;
FOOTER "Page Number: "+str(oReport:nPage,3) CENTER ;
PREVIEW
COLUMN TITLE "St" DATA Test->State
COLUMN TITLE "First Name" DATA Test->First
COLUMN TITLE "Last Name" DATA Test->Last
COLUMN TITLE " Salary" DATA Test->Salary TOTAL
END REPORT
bBtn:=RPrevUserBtns({||.f.})
ACTIVATE REPORT oReport
RPrevUserBtns(bBtn)
CLOSE TEST
RETURN NIL
