Classe: TPageView
Cria um objeto que permite visualizar um arquivo no formato gerado pelo spool de impressão.
New
Método construtor da classe.
TPageView(): New (
[ nCol], [ nRow], [ nWidth], [ nHeigth], [ oPrinter], [ oWnd], [ nPageWidth], [ nPageHeight] ) -->
oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nCol | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | |
| nRow | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | |
| nWidth | Numérico | Indica a largura em pixels do objeto. | | |
| nHeigth | Numérico | Indica a altura em pixels do objeto. | | |
| oPrinter | Objeto | Indica o objeto do tipo TMsPrinter utilizado para imprimir e visualizar relatórios. | | |
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | |
| nPageWidth | Numérico | Indica a largura em pixels da página. | | |
| nPageHeight | Numérico | Indica 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] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nLargura | Numérico | Indica a largura da página. | | |
| nAltura | Numérico | Indica a altura da página. | | |
oTPageView:PageSize(1000,1000)
Exemplo do método PageSize
PrintPage
Imprime uma determinada página.
TPageView(): PrintPage (
[ nNrPagina] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nNrPagina | Numérico | Indica a página que será impressa. | | |
Reset
Redimensiona a área de visualização.
TPageView(): Reset (
< nPageWidth>, < nPageHeight> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nPageWidth | Numérico | Indica a largura da página de apresentação. | X | |
| nPageHeight | Numérico | Indica a altura da página de apresentação. | X | |
oTPageView:Reset(400,400)
Exemplo do método Reset
| Propriedade | Descrição | Tipo |
| bScrollClick | Indica 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 |
| nZoom | Indica 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