Classe: TScrollArea
Cria um objeto do tipo painel com barra de rolagem (Scroll).
TSrvObject -> TControl -> TScrollArea
New
Método construtor da classe.
TScrollArea(): New ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ alVertical], [ alHorizontal], [ uParam8] ) --> xObjeto
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 |
-
xObjeto()
- Retorna o objeto criado.
oScroll := TScrollArea():New(oDlg,01,01,100,100,.T.,.T.,.T.)
SetFrame
Define o objeto que será apresentado na área.
TScrollArea(): SetFrame ( [ oObjeto] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
oObjeto | Objeto | Indica o objeto que será apresentado na área. |
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_HREDTButton():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 | Descrição | Tipo |
lTracking | Indica se habilita (.T.)/desabilita (.F.) a possibilidade de arrasto do componente container. | Lógico |
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.
#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
Exemplo da classe TScrollArea()
![](https://tdn.totvs.com/download/attachments/6063287/Mon+May+21+15%3A39%3A56+BRT+2012temp?version=1&modificationDate=1337625596134)
Protheus 10
,
TOTVS Application Server 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas