Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
TPageView
TPageView

Classe: TPageView

Cria um objeto que permite visualizar um arquivo no formato gerado pelo spool de impressão.

TSrvObject -> TControl -> TPageView


New

Método construtor da classe.


TPageView(): New ( [ nCol], [ nRow], [ nWidth], [ nHeigth], [ oPrinter], [ oWnd], [ nPageWidth], [ nPageHeight] ) --> oObjeto


 

NomeTipoDescriçãoObrigatórioReferência
nColNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nRowNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeigthNuméricoIndica a altura em pixels do objeto.  
oPrinterObjetoIndica o objeto do tipo TMsPrinter utilizado para imprimir e visualizar relatórios.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
nPageWidthNuméricoIndica a largura em pixels da página.  
nPageHeightNuméricoIndica a altura em pixels da página.  

 

oObjeto
    ()
  • Retorna o objeto criado.

oTPageView := TPageView():New( 0,0,510,354,oPrinter,oDlg,550,550 )

PageSize

Define o tamanho da página.


TPageView(): PageSize ( [ nLargura], [ nAltura] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nLarguraNuméricoIndica a largura da página.  
nAlturaNuméricoIndica a altura da página.  

 


oTPageView:PageSize(1000,1000)

Exemplo do método PageSize

PrintPage

Imprime uma determinada página.


TPageView(): PrintPage ( [ nNrPagina] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nNrPaginaNuméricoIndica a página que será impressa.  

 


oTPageView:PrintPage(1)

Reset

Redimensiona a área de visualização.


TPageView(): Reset ( < nPageWidth>, < nPageHeight> ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nPageWidthNuméricoIndica a largura da página de apresentação.X 
nPageHeightNuméricoIndica a altura da página de apresentação.X 

 


oTPageView:Reset(400,400)

Exemplo do método Reset

 

PropriedadeDescriçãoTipo
bScrollClickIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre a barra de rolagem lateral.Bloco de código
nZoomIndica o zoom que será configurado para aumentar ou diminuir a visualização.Numérico

 


#include "TOTVS.CH"

User Function TPageView()

Local cAcesso := Repl(" ",10)

DEFINE DIALOG oDlg TITLE "Exemplo TPageView" FROM 180,180 TO 550,700 PIXEL

oPrinter := TMsPrinter():New()
oPrinter:SetFile( '\SPOOL\matr010.prt', .F.)
oTPageView := TPageView():New( 0,0,510,354,oPrinter,oDlg,550,550 )
oTPageView:Show()
oTPageView:nZoom := 150

ACTIVATE DIALOG oDlg CENTERED

Return

Preview
Exemplo da classe TPageView

Microsiga Protheus 8.11 , Protheus 10