Histórico da Página

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

  #include "TOTVS.CH"
   User Function TGroup()
    DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 650,800 PIXEL

     // USANDO O NEW
     oGroup1:= TGroup():New(02,02,130,130,'Objeto TGroup 1',oDlg,,,.T.)
    
     cTGet1 := "Get dentro do TGroup"
     oTGet2 := TGet():New( 18,16,{||cTGet1},oGroup1,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,)
     oTGet3 := TGet():New( 36,16,{||cTGet1},oGroup1,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,)
  
     // USANDO CREATE
     oGroup2 := TGroup():Create(oDlg,02,140,130,260,'Objeto TGroup 2',,,.T.)
     
     cTGet4 := "Get dentro do TGroup"
     oTGet5 := TGet():New( 18,150,{||cTGet4},oGroup2,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet4,,,,)
     oTGet6 := TGet():New( 36,150,{||cTGet4},oGroup2,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet4,,,,)
   
  ACTIVATE DIALOG oDlg CENTERED
   Return