Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle

...

...

Classe TScrollArea
Classe

...

TScrollArea

Cria

...

um

...

objeto

...

do

...

tipo

...

painel

...

com

...

barra

...

de

...

rolagem

...

(Scroll).

Hierarquia

...

...

    • TScrollArea

Construtores

New

New

Método construtor da classe.

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

...

    xObjeto()
  • Retorna o objeto criado.
oScroll := TScrollArea():New(oDlg,01,01,100,100,.T.,.T.,.T.)

Inclusão de trecho
Classe TScrollArea - Construtores
Classe TScrollArea - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TScrollArea - Propriedades
Classe TScrollArea - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TScrollArea - Métodos
Classe TScrollArea - Métodos
nopaneltrue

SetFrame

Define o objeto que será apresentado na área.

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

...

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 )
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

...

  • somente se o conteúdo

...

  • ultrapassar a área definida para o painel.

...

  • A propriedade lTracking está disponível

...

  • somente em builds superiores a 7.00.111010P.

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
 #Include "TOTVS.ch"
 
User function 
Apoio
u_TScrollArea

  
DEFINE DIALOG oDlg TITLE "" FROM 180,180 TO 550,700 PIXEL

   // Cria objeto
ScrolloScroll
 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
   
scrolloScroll
oScroll:SetFrame( oPanel )

   // Insere objetos no painel apenas para 
visualizaçãoTButton
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 
CENTEREDReturnExemplo da classe TScrollArea()
Image Removed
CENTERED
 Return

Resultado do Exemplo

Image Added

Abrangência

Protheus 10, TOTVS Application Server 10