Classe: TScrollBox
Cria um objeto do tipo painel com barra de rolagem (Scroll).
Create
Método construtor da classe.
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.)
New
Método construtor da classe.
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.)
Reset
Retorna a barra de rolagem para a posição inicial à esquerda e ao topo.
TScrollBox(): Reset (
) -->
#include "TOTVS.CH"User Function TScrollBox() 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,{||'Texto para exibição '+; 'Texto para exibição Texto para exibição'},oScr1,,oFont,,; ,,.T.,CLR_RED,CLR_WHITE,400,20) oSay2:= TSay():New(01,01,{||'Texto para exibição '+; 'Texto para exibição Texto para exibição'},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,{||'Texto para exibição '+; 'Texto para exibição Texto para exibição'},oScr2,,oFont,,; ,,.T.,CLR_RED,CLR_WHITE,400,20) oSay4:= TSay():New(01,01,{||'Texto para exibição '+; 'Texto para exibição Texto para exibição'},oScr2,,oFont,,; ,,.T.,CLR_RED,CLR_WHITE,400,20) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TScrollBox
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
|