TSlider
Classe: TSlider
Cria um objeto do tipo botão deslizante.
TSrvObject -> TControl -> tSlider
Create
Método construtor da classe.
TSlider(): Create ( [ oWnd] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. |
-
oObjeto(objeto)
- Retorna o objeto criado.
oSlider := TSlider():Create( oDlg )
New
Método construtor da classe.
TSlider(): 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.
oSlider := TSlider():New( 01,01,oDlg,{|x|; Alert("oSlider: "+str(x,4))},260,30,"Mensagem",)
SetInterval
Especifica a distância entre os marcadores.
TSlider(): SetInterval ( [ nInterval] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nInterval | Numérico | Indica o valor de intervalo entre os marcadores. |
oSlider:SetInterval( 20 )
SetMarks
Especifica o tipo de marcação do botão.
TSlider(): SetMarks ( [ nTipo] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nTipo | Numérico | Indica 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. |
// Veja os tipos disponíveis no preview.oSlider:SetMarks( 0 )
Exemplo do método SetMarks

SetOrient
Especifica a coordenada (horizontal/vertical) do botão.
TSlider(): SetOrient ( [ nOrient] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nOrient | Numérico | Indica a coordenada (horizontal/vertical) do botão, sendo: 0=Horizontal e 1=Vertical. |
oSlider:SetOrient( 1 )
SetRange
Especifica os valores (de/até) da faixa do botão.
TSlider(): 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. |
oSlider:SetRange( 100, 200 )
SetStep
Especifica o valor de etapa do botão.
TSlider(): SetStep ( ) --> nStep
-
nStep(numerico)
- Indica o valor de etapa do botão.
oSlider:SetStep( 30 )
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 |
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.
#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
Exemplo da classe TSlider

Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas