Histórico da Página

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

Portuguese

Pagetitle

	TScrollArea
	TScrollArea

Colapse ALL

Expand ALL

Classe: TScrollArea

Cria um objeto do tipo painel com barra de rolagem (Scroll).

Hierarquia

TSrvObject -> TControl -> TScrollArea

Construtores

New

Método construtor da classe.

Sintaxe

TScrollArea(): New ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ alVertical], [ alHorizontal], [ uParam8] ) --> xObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
nTop	Numérico	Indica a coordenada vertical em pixels.
nLeft	Numérico	Indica a coordenada horizontal em pixels.
nHeight	Numérico	Indica a altura em pixels do objeto.
nWidth	Numérico	Indica a largura em pixels do objeto.
alVertical	Lógico	Indica se .T. será habilitada a barra de rolagem vertical
alHorizontal	Lógico	Indica se .T. será habilitada a barra de rolagem horizontal
uParam8	Lógico	Compatibilidade

Retorno

xObjeto

Retorna o objeto criado.

Exemplos

oScroll := TScrollArea():New(oDlg,01,01,100,100,.T.,.T.,.T.)

Métodos

SetFrame

Define o objeto que será apresentado na área.

Sintaxe

TScrollArea(): SetFrame ( [ oObjeto] ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oObjeto	Objeto	Indica o objeto que será apresentado na área.

Exemplos

oScroll := TScrollArea():New(oDlg,01,01,100,100,.T.,.T.,.T.)
oScroll:Align := CONTROL_ALIGN_ALLCLIENT
@ 000,000 MSPANEL oPanel OF oScroll SIZE 1000,1000 COLOR CLR_HRED
TButton():New( 10,010,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 10,230,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
oScroll:SetFrame( oPanel )

Propriedade

Propriedade	Descrição	Tipo
lTracking	Indica se habilita (.T.)/desabilita (.F.) a possibilidade de arrasto do componente container.	Lógico

Observações

A barra de rolagem será apresentada, caso o conteúdo ultrapasse o área definida para o painel.
A propriedade lTracking está disponível somente em builds superiores a 7.00.111010P.

Exemplos

#Include "TOTVS.ch"      
User function Apoio   
DEFINE DIALOG oDlg TITLE "" FROM 180,180 TO 550,700 PIXEL
// Cria objeto Scroll
oScroll := TScrollArea():New(oDlg,01,01,100,100,.T.,.T.,.T.)
oScroll:Align := CONTROL_ALIGN_ALLCLIENT
// Cria painel 
@ 000,000 MSPANEL oPanel OF oScroll SIZE 1000,1000 COLOR CLR_HRED
// Define objeto painel como filho do scroll
oScroll:SetFrame( oPanel )
// Insere objetos no painel apenas para visualização
TButton():New( 10,010,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 10,230,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
ACTIVATE DIALOG oDlg CENTERED
Return

Preview

Exemplo da classe TScrollArea()