Histórico da Página

...

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

New

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 ScrolloScroll := 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 scrolloScroll:SetFrame( oPanel )// Insere objetos no painel apenas para visualizaçãoTButton():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 CENTEREDReturn

Preview

Exemplo da classe TScrollArea()