Árvore de páginas

Versões comparadas

Chave

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

Pagetitle

...

...

Classe TScrollBox
Classe

...

TScrollBox

Cria

...

um

...

objeto

...

do

...

tipo

...

painel

...

com

...

barra

...

de

...

rolagem

...

(Scroll).

Hierarquia

...

...

    • TScrollBox

Construtores

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

Métodos

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

Exemplos

#INCLUDE "TOTVS.CH"
MAIN FUNCTION 
testScrollBox
u_TScrollBox()
local
  local bTexto := {|| 'Texto para exibição '+;
                      'Texto para exibição '+;
                      'Texto para exibição'}
DEFINE

  DEFINE DIALOG oDlg TITLE "Exemplo TScrollBox" FROM 180,180 TO 550,700 PIXEL
    // Usando o método New
oScr1

    oScr1 := TScrollBox():New(oDlg,01,01,92,260,.T.,.T.,.T.)

    // Cria objetos para teste do Scroll
oFont

    oFont := TFont():New('Courier new',,-22,.T.)


oSay1
    oSay1:= TSay():New(01, 01, bTexto, oScr1,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)

oSay2

    oSay2:= TSay():New(01,01, bTexto, oScr1,,oFont,,;
                       ,,.T.,CLR_RED,CLR_WHITE,400,20)

    // Usando o método Create
oScr2
    oScr2 := TScrollBox():Create(oDlg,93,01,92,260,.T.,.T.,.T.)

oSay3
    oSay3:= TSay():New(01, 01, bTexto, oScr2,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)

oSay4
    oSay4:= TSay():New(01, 01, bTexto, oScr2,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)
ACTIVATE
  ACTIVATE DIALOG oDlg CENTERED

RETURN

 

Exemplo da classe TScrollBox

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse

Create

Método construtor da classe.

TScrollBox(): Create ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lVertical], [ lHorizontal], [ lBorder] ) --> oObjeto

 

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.  
lVerticalLógicoIndica se, verdadeiro (.T.), a barra de rolagem será apresentada; caso contrário, falso (.F.).  
lHorizontalLógicoIndica se, verdadeiro (.T.), a barra de rolagem horizontal será apresentada; caso contrário, falso (.F.).  
lBorderLógicoIndica se, verdadeiro (.T.), a borda do objeto será apresentada; caso contrário, falso (.F.).  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.
oScr := TScrollBox():Create(oDlg,01,01,92,260,.T.,.T.,.T.)

New

Método construtor da classe.

TScrollBox(): New ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lVertical], [ lHorizontal], [ lBorder] ) --> oObjeto

 

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.  
lVerticalLógicoIndica se, verdadeiro (.T.), a barra de rolagem será apresentada; caso contrário, falso (.F.).  
lHorizontalLógicoIndica se, verdadeiro (.T.), a barra de rolagem horizontal será apresentada; caso contrário, falso (.F.).  
lBorderLógicoIndica se, verdadeiro (.T.), a borda do objeto será apresentada; caso contrário, falso (.F.).  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.
oScr := TScrollBox():New(oDlg,01,01,92,260,.T.,.T.,.T.)

Reset

Retorna a barra de rolagem para a posição inicial à esquerda e ao topo.

TScrollBox(): Reset ( ) -->

oScr:Reset()

 

Bloco de código
themeEclipse
languagecpp
titleExemplos
linenumberstrue

Resultado do Exemplo

Image Modified

Abrangência

Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

...