Exibir origem

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

Cria um objeto do tipo painel, com borda e título, para que outros possam ser agrupados ou classificados.

Hierarquia

TControl
- TGroup

Construtores

Exemplos

  #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

Resultado do Exemplo

TOTVSTEC > TGroup > TGroup_desktop.png

Abrangência

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

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