Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Atual »

Classe: TScrollBox

Cria um objeto do tipo painel com barra de rolagem (Scroll).

TSrvObject -> TControl -> TScrollBox


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

 

Exemplos
#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

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

 

  • Sem rótulos