import.css=/download/attachments/327912/newLayout.css

Classe: TSlider

Cria um objeto do tipo botão deslizante.


Hierarquia

TSrvObject -> TControl -> tSlider


Construtores
Create

Create

Método construtor da classe.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oSlider := TSlider():Create( oDlg )
New

New

Método construtor da classe.


Sintaxe

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


Parâmetros
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.).
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oSlider := TSlider():New( 01,01,oDlg,{|x|;    Alert("oSlider: "+str(x,4))},260,30,"Mensagem",)

Métodos
SetInterval

SetInterval

Especifica a distância entre os marcadores.


Sintaxe

TSlider(): SetInterval ( [ nInterval] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nIntervalNuméricoIndica o valor de intervalo entre os marcadores.

Exemplos 
oSlider:SetInterval( 20 )
SetMarks

SetMarks

Especifica o tipo de marcação do botão.


Sintaxe

TSlider(): SetMarks ( [ nTipo] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nTipoNuméricoIndica o tipo de marcação do botão, sendo: 0=Botão grande sem indicação, 1=Botão com indicação para cima, 2=Botão com indicação para baixo e 3=Botão pequeno sem indicação.

Exemplos 
// Veja os tipos disponíveis no preview.oSlider:SetMarks( 0 )

Preview
Exemplo do método SetMarks
SetOrient

SetOrient

Especifica a coordenada (horizontal/vertical) do botão.


Sintaxe

TSlider(): SetOrient ( [ nOrient] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nOrientNuméricoIndica a coordenada (horizontal/vertical) do botão, sendo: 0=Horizontal e 1=Vertical.

Exemplos 
oSlider:SetOrient( 1 )
SetRange

SetRange

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


Sintaxe

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


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

Exemplos 
oSlider:SetRange( 100, 200 )
SetStep

SetStep

Especifica o valor de etapa do botão.


Sintaxe

TSlider(): SetStep ( ) --> nStep

Retorno
    nStep(numerico)
  • Indica o valor de etapa do botão.

Exemplos 
oSlider:SetStep( 30 )
SetValue

SetValue

Especifica um valor para o botão.


Sintaxe

TSlider(): SetValue ( ) --> nVal

Retorno
    nVal(numerico)
  • Indica o valor do botão.

Exemplos 
oSlider:SetValue( 40 )

Propriedade
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

Observações

A utilização de um baixo intervalo em uma grande amplitude pode gerar ônus para o SERVER (Application Server), dependendo da ação do usuário. Portanto, utilize com cautela.

Melhoria realizada para build superior a 7.00.100601A.


Exemplos 
#include "TOTVS.CH"User Function TSlider()  DEFINE DIALOG oDlg TITLE "Exemplo TSlider" FROM 180,180 TO 550,700 PIXEL      oSlider := TSlider():New( 01,01,oDlg,{|x|;    Alert("oSlider: "+str(x,4))},260,30,"Mensagem",)  ACTIVATE DIALOG oDlg CENTERED Return

Preview
Exemplo da classe TSlider

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server