Á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 2 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

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 := Nillocal oSpinBox := Nil, nSpinBox := -10local oButtom := Nillocal 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