Á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 4 Próxima »

Classe: TSpinBox

Cria um objeto do tipo caixa de seleção, cujo os itens são definidos a partir de um intervalo numérico.

TSrvObject -> TControl -> TSpinBox


Create

Método construtor da classe.


TSpinBox(): Create ( [ oWnd] ) --> oObjeto


 

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde objeto será criado.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

TSpinBox():Create( oDlg )

New

Método construtor da classe.


TSpinBox(): New ( [ nRow], [ nCol], [ oWnd], [ bChange], [ nWidth], [ nHeight], [ cMsg], [ bWhen] ) --> oObjeto


 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels.  
nColNuméricoIndica a coordenada horizontal em pixels.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
bChangeBloco de códigoIndica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão.  
bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.), se o controle permanecer habilitado; caso contrário, retornará falso (.F.).  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

oSpinBox := TSpinBox():New( 01,01,oDlg,{|x|;    Alert("oSpinBox: "+str(x,4))},30,20,"Mensagem",)

SetRange

Especifica os valores (de/até) da faixa do botão.


TSpinBox(): SetRange ( [ nMin], [ nMax] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nMinNuméricoIndica o valor mínimo do botão.  
nMaxNuméricoIndica o valor máximo do botão.  

 


oSpinBox:SetRange( 100, 200 )

SetStep

Especifica o valor de etapa do botão.


TSpinBox(): SetStep ( [ nStep] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nStepNuméricoIndica o valor de etapa do botão.  

 


oSpinBox:SetStep( 30 ) 

SetValue

Especifica um valor para o botão.


TSpinBox(): SetValue ( [ nVal] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
nValNuméricoIndica o valor do botão.  

 


oSpinBox:SetValue( 40 )

SetWrap

Especifica se o botão é de envolver (Wrap).


TSpinBox(): SetWrap ( [ lwrap] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
lwrapLógicoIndica se habilita(.T.)/desabilita(.F.) o envolver (wrap) do botão.  

 


oSpinBox:SetWrap( .T. )

 

PropriedadeDescriçãoTipo
bChangeIndica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual.Bloco de código

 

 

user function exemplo()
local oTestDialog := Nil
local oSpinBox := Nil, nSpinBox := -10
local oButtom := Nil
local oSay := Nil
	oTestDialog := msDialog():new(0, 0, 300, 400, , , , , , , , , , .T.)
	oSay := tSay():new(5, 5, {|| "tSpinBox: "}, oTestDialog, , , , , , .T., , , 30, 13)
	oSpinBox := tSpinBox():new(3, 45, oTestDialog, {|x| nSpinBox := x }, 30, 13)
	oSpinBox:setRange(-50, 50)
	oSpinBox:setStep(5)
	oSpinBox:setValue(nSpinBox)
	oButtom := tButton():new(3, 155, "Valor", oTestDialog, {|| MsgInfo(nSpinBox, "tSpinBox value:") }, 40, 13, , , , .T.)
	oTestDialog:activate( , , , .T.)
return

 

Exemplo da classe tSpinBox

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos