Classe: TSpinBoxCria um objeto do tipo caixa de seleção, cujo os itens são definidos a partir de um intervalo numérico. CreateMétodo construtor da classe.TSpinBox(): Create ( [ oWnd] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | oWnd | Objeto | Indica a janela ou controle visual onde objeto será criado. | | |
oObjeto(objeto)- Retorna o objeto criado.
TSpinBox():Create( oDlg ) NewMétodo construtor da classe.TSpinBox(): New ( [ nRow], [ nCol], [ oWnd], [ bChange], [ nWidth], [ nHeight], [ cMsg], [ bWhen] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | nRow | Numérico | Indica a coordenada vertical em pixels. | | | nCol | Numérico | Indica a coordenada horizontal em pixels. | | | oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | | bChange | Bloco de código | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão. | | | bWhen | Bloco de código | Indica 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",) SetRangeEspecifica os valores (de/até) da faixa do botão.TSpinBox(): SetRange ( [ nMin], [ nMax] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | nMin | Numérico | Indica o valor mínimo do botão. | | | nMax | Numérico | Indica o valor máximo do botão. | | |
oSpinBox:SetRange( 100, 200 ) SetStepEspecifica o valor de etapa do botão.TSpinBox(): SetStep ( [ nStep] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | nStep | Numérico | Indica o valor de etapa do botão. | | |
SetValueEspecifica um valor para o botão.TSpinBox(): SetValue ( [ nVal] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | nVal | Numérico | Indica o valor do botão. | | |
SetWrapEspecifica se o botão é de envolver (Wrap).TSpinBox(): SetWrap ( [ lwrap] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | lwrap | Lógico | Indica se habilita(.T.)/desabilita(.F.) o envolver (wrap) do botão. | | |
Propriedade | Descrição | Tipo | bChange | Indica 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 |
Bloco de código |
---|
| user function exemplo()
local oTestDialog := |
NillocalNil
local oSpinBox := Nil, nSpinBox := - |
10localNillocal
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: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 |