TGet

Cria um objeto para entrada de dados editáveis. Esta classe permite armazenar ou alterar o conteúdo de uma variável através da digitação. No entanto, o conteúdo da variável será alterado quando o objeto perder o foco de edição para outro objeto.

Hierarquia

TControl
- TGet

Construtores

Propriedades

Métodos

Observações

Definindo os tipos de dados (Caracter, Data, Numerico)

A definição dos tipos de dados no componente TGet é feito a partir de dois pontos:
1 - Definição do tipo de variável;
2 - Definição do parametro lHasButton como Verdadeiro (.T.).

Veja o exemplo a seguir:

    #include "TOTVS.CH"
    
    User Function TGetTypes()
      Local cGet1 := "Define variable value" // Variavel do tipo caracter
      Local nGet2 := 0 // Variável do tipo numérica
      Local dGet3 := Date() // Variável do tipo Data
      Local lHasButton := .T.
 
      DEFINE MSDIALOG oDlg TITLE "Picture test" FROM 000, 000  TO 500, 500 COLORS 0, 16777215 PIXEL
     
      oGet1 := TGet():New( 005, 009, { | u | If( PCount() == 0, cGet1, cGet1 := u ) \},oDlg, ;
         060, 010, "!@",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"cGet1",,,,lHasButton  )
      oGet2 := TGet():New( 020, 009, { | u | If( PCount() == 0, nGet2, nGet2 := u ) \},oDlg, ;
         060, 010, "@E 999.99",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"nGet2",,,,lHasButton  )
      oGet3 := TGet():New( 035, 009, { | u | If( PCount() == 0, dGet3, dGet3 := u ) \},oDlg, ;
         060, 010, "@D",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"dGet3",,,,lHasButton  )
           
      ACTIVATE MSDIALOG oDlg CENTERED
    return

Em builds superiores a 7.00.111010P o idioma do calendário, chamado a partir do componente TGet, respeitará o idioma definido no arquivo de inicialização do AppServer, na tag rpolanguage.
Em builds superiores a 7.00.121227P, caso o TGet tenha botão (calculadora, calendário, etc.), o CSS deste botão pode ser passado para o TGet que ele irá repassar para o botão.

Exemplos

Exemplo 1

  #include "TOTVS.CH"
  
  User Function TGet()
    DEFINE DIALOG oDlg TITLE "Exemplo TGet" FROM 180,180 TO 550,700 PIXEL     
    // Usando o New  
    cTGet1 := "Teste TGet 01"
    oTGet1 := TGet():New( 01,01,{||cTGet1},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
    // Usando o Create
    cTGet2 := "Teste TGet 02"
    oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, )
    ACTIVATE DIALOG oDlg CENTERED
  Return

Preview - TGet com diferentes tipos de dados

Exemplo da classe TGet

Abrangência

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server

Árvore de páginas