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
| 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 )
New
Mé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",)
SetRange
Especifica 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 )
SetStep
Especifica 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. |
oSpinBox:SetStep( 30 )
SetValue
Especifica 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. |
oSpinBox:SetValue( 40 )
SetWrap
Especifica 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. |
oSpinBox:SetWrap( .T. )
| 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 |
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