Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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

Exemplo da classe TPageView

Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos