Cria um objeto do tipo painel com barra de rolagem (Scroll). TScrollBox(): Create ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lVertical], [ lHorizontal], [ lBorder] ) --> oObjeto 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. | | | lVertical | Lógico | Indica se, verdadeiro (.T.), a barra de rolagem será apresentada; caso contrário, falso (.F.). | | | lHorizontal | Lógico | Indica se, verdadeiro (.T.), a barra de rolagem horizontal será apresentada; caso contrário, falso (.F.). | | | lBorder | Lógico | Indica 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.) TScrollBox(): New ( [ oWnd], [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lVertical], [ lHorizontal], [ lBorder] ) --> oObjeto 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. | | | lVertical | Lógico | Indica se, verdadeiro (.T.), a barra de rolagem será apresentada; caso contrário, falso (.F.). | | | lHorizontal | Lógico | Indica se, verdadeiro (.T.), a barra de rolagem horizontal será apresentada; caso contrário, falso (.F.). | | | lBorder | Lógico | Indica 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.) TScrollBox(): Reset ( ) --> Bloco de código |
---|
theme | Eclipse |
---|
language | cpp |
---|
title | Exemplos |
---|
linenumbers | true |
---|
| #INCLUDE "TOTVS.CH"
MAIN FUNCTION testScrollBox()
local bTexto := {|| 'Texto para exibição '+;
'Texto para exibição '+;
'Texto para exibição'}
DEFINE DIALOG oDlg TITLE "Exemplo TScrollBox" FROM 180,180 TO 550,700 PIXEL
// Usando o método New
oScr1 := TScrollBox():New(oDlg,01,01,92,260,.T.,.T.,.T.)
// Cria objetos para teste do Scroll
oFont := TFont():New('Courier new',,-22,.T.)
oSay1:= TSay():New(01, 01, bTexto, oScr1,,oFont,,;
,,.T.,CLR_RED,CLR_WHITE,400,20)
oSay2:= TSay():New(01,01, bTexto, oScr1,,oFont,,;
,,.T.,CLR_RED,CLR_WHITE,400,20)
// Usando o método Create
oScr2 := TScrollBox():Create(oDlg,93,01,92,260,.T.,.T.,.T.)
oSay3:= TSay():New(01, 01, bTexto, oScr2,,oFont,,;
,,.T.,CLR_RED,CLR_WHITE,400,20)
oSay4:= TSay():New(01, 01, bTexto, oScr2,,oFont,,;
,,.T.,CLR_RED,CLR_WHITE,400,20)
ACTIVATE DIALOG oDlg CENTERED
RETURN |
Exemplo da classe TScrollBox ![](https://tdn.totvs.com/download/attachments/6063289/Mon+May+21+15%3A39%3A58+BRT+2012temp?version=1&modificationDate=1337625598267) Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |