Histórico da Página
Aviso |
---|
Componente não suportado pelo SmartClient HTML |
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
...
|
...
|
Cria
...
um
...
objeto
...
do
...
tipo
...
botão
...
deslizante.
Hierarquia
...
- TControl
- TSlider
Construtores
Create
Método construtor da classe.
TSlider(): Create ( [ oWnd] ) --> oObjeto
...
- 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
...
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
- 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] ) -->
...
oSlider:SetInterval( 20 )
SetMarks
Especifica o tipo de marcação do botão.
TSlider(): SetMarks ( [ nTipo] ) -->
...
// 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] ) -->
...
oSlider:SetOrient( 1 )
SetRange
Especifica os valores (de/até) da faixa do botão.
TSlider(): SetRange ( [ nMin], [ nMax] ) -->
...
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 )
SetValue
Especifica um valor para o botão.
TSlider(): SetValue ( ) --> nVal
- nVal(numerico)
- Indica o valor do botão.
oSlider:SetValue( 40 )
...
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
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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",nil) ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe TSlider |
Resultado do Exemplo
Abrangência
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