Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeEclipse
linenumbersfalse
collapsefalse
  #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,{|u|if(PCount()==0,cTGet1,cTGet1:=u)},oDlg,096,009,; 
		"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
    // Usando o Create
    cTGet2 := "Teste TGet 02"
    oTGet2 := TGet():Create( oDlg,{|u|if(PCount()==0,cTGet2,cTGet2:=u)},14,01,096,009,; 
		"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, )
    ACTIVATE DIALOG oDlg CENTERED
  Return

...