Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Correção das variáveis do fonte de exemplo

...

Bloco de código
languagetext
firstline1
titleExemplo do comando @ ... GET
linenumberstrue
#include 'totvs.ch'

User Function TGet()
Local oDlg, oGet, cSenhacPassW := space(20)

DEFINE DIALOG oDlg TITLE "Exemplo TGet" FROM 180,180 TO 550,700 PIXEL

// Cria o Objeto tGet usando o comando @ .. GET
@ 10,10 GET oGet VAR cNomecPassW SIZE 200,20 OF oDlg PIXEL VALID !empty(cSenhacPassW) PASSWORD

ACTIVATE DIALOG oDlg CENTERED

Return

...