Classe de área de scroll.
Hierarquia
tSrvObject -> tControl -> tScrollbox
Descrição
Utilize a classe tScrollbox para criar um painel com scroll deslizantes nas laterais do controle.
Métodos
New
Descrção
Construtor da classe
Sintaxe
New([aoWnd], [anTop], [anLeft], [anHeight], [anWidth], [alVertical], [alHorizontal], [alBorder])
Parâmetros
| aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
| AnTop | Numérico, opcional. Coordenada vertical em pixels. |
| AnLeft | Numérico, opcional. Coordenada horizontal em pixels. |
| anHeight | Numérico, opcional. Altura do controle em pixels. |
| anWidth | Numérico, opcional. Largura do controle em pixels. |
| alVertical | Lógico, opcional. Se .T. exibe a barra de scroll vertical. |
| alHorizontal | Lógico, opcional. Se .T. exibe a barra de scroll horizontal. |
| alBorder | Lógico, opcional. Se .T. exibe a borda do controle. |
Retorno
O objeto criado.
Exemplo
#include “protheus.ch”
User Function Teste()
Local oDlg, oScr, oGet1, oGet2, oGet3
Local cGet1, cGet2, cGet3
cGet1:= Space(10)
cGet2:= Space(10)
cGet3:= Space(10)
DEFINE MSDIALOG oDlg FROM 0,0 TO 400,400 PIXEL “My test”
oScr:= TScrollBox():New(oDlg,10,10,200,200,.T.,.T.,.T.)
// cria controles dentro do scrollbox
@ 10,10 MSGET oGet1 VAR cGet1 SIZE 100,10 OF oScr PIXEL
@ 50,10 MSGET oGet2 VAR cGet2 SIZE 100,10 OF oScr PIXEL
@ 150,100 MSGET oGet3 VAR cGet3 SIZE 100,10 OF oScr PIXEL
ACTIVATE MSDIALOG oDlg CENTERED
Return nil