Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Inclusão de trecho
advpl - deprecated
advpl - deprecated
nopaneltrue

Pagetitle
Classe TPageView
Classe TPageView

Cria um objeto que permite visualizar um arquivo no formato gerado pelo spool de

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Classe: TPageView

...

impressão.

Hierarquia

...

...

    • TPageView

Construtores

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
Image Removed

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
Image Removed

 

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)

...

Inclusão de trecho
Classe TPageView - Construtores
Classe TPageView - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TPageView - Propriedades
Classe TPageView - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TPageView - Métodos
Classe TPageView - Métodos
nopaneltrue

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
#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

...

Resultado do Exemplo

Image Modified

Abrangência

Microsiga Protheus 8.11 , Protheus 10

Classe disponível, para o TOTVS Application Server e TOTVS SmartClient, a partir da build 7.00.080806P.