import.css=/download/attachments/6062824/tecnologia.css

Cria um objeto do tipo botão deslizante.

Hierarquia

• TControl
  • TSlider

Construtores

Propriedades

Métodos

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",nil)
    ACTIVATE DIALOG oDlg CENTERED
  Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server