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
| 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. |
oTPageView:PrintPage(1)
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
GetNumHighlightsRetorna o número de highlights por página.TPageView(): GetNumHighlights() --> aHighlights
aHighlights
oTPageView:cHighlight := "A" aHighlights := oTPageView:GetNumHighlights() |
|---|
| 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 |
| cHighlight | Define o texto que será marcado com um destaque em fundo amarelo. | Caractere |
#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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas