TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Classe: TScrollArea

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


Hierarquia

TSrvObject -> TControl -> TScrollArea


Construtores
New

New

Método construtor da classe.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nTopNuméricoIndica a coordenada vertical em pixels.
nLeftNuméricoIndica a coordenada horizontal em pixels.
nHeightNuméricoIndica a altura em pixels do objeto.
nWidthNuméricoIndica a largura em pixels do objeto.
alVerticalLógicoIndica se .T. será habilitada a barra de rolagem vertical
alHorizontalLógicoIndica se .T. será habilitada a barra de rolagem horizontal
uParam8LógicoCompatibilidade
Retorno
    xObjeto()
  • Retorna o objeto criado.

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

Métodos
SetFrame

SetFrame

Define o objeto que será apresentado na área.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjetoObjetoIndica 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_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
PropriedadeDescriçãoTipo
lTrackingIndica 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()

Abrangência
Protheus 10 , TOTVS Application Server 10

  • Sem rótulos