Histórico da Página

Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle

...

	Classe TGroup

Colapse ALL

Expand ALL

	Classe

...

TGroup

Cria

...

um

...

objeto

...

do

...

tipo

...

painel,

...

com

...

borda

...

e

...

título,

...

para

...

que

...

outros

...

possam

...

ser

...

agrupados

...

ou

...

classificados.

Hierarquia

TControl
- TGroup

Construtores

Inclusão de trecho

	Classe TGroup - Construtores
	Classe TGroup - Construtores
nopanel	true

Exemplos

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

  #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

TSrvObject -> TControl -> TGroup

Construtores

Create

Método construtor da classe.

Sintaxe

TGroup(): Create ( [ oWnd], [ nTop], [ nLeft], [ nBottom], [ nRight], [ cLabel], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
nTop	Numérico	Indica a coordenada vertical superior em pixels ou caracteres.
nLeft	Numérico	Indica a coordenada horizontal à esquerda em pixels ou caracteres.
nBottom	Numérico	Indica a coordenada vertical inferior em pixels ou caracteres.
nRight	Numérico	Indica a coordenada horizontal à direita em pixels ou caracteres.
cLabel	Caracter	Indica o título do grupo.
nClrText	Numérico	Indica a cor do texto.
nClrPane	Numérico	Indica a cor de fundo.
lPixel	Lógico	Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10	Lógico	Compatibilidade.

Retorno

oObjeto

(objeto)

Retorna o objeto criado.

Exemplos

oGroup

 := TGroup():Create(oDlg,02,

02

140,130,

130

260,'Objeto TGroup 2',,,.T.)

New


     
     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

Image Added

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

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

Pagetitle

	Classe TGroup
	Classe TGroup

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

Hierarquia

TControl
- TGroup

Construtores

Inclusão de trecho

	Classe TGroup - Construtores
	Classe TGroup - Construtores
nopanel	true

Exemplos

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

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

     // USANDO O NEW
     oGroup1

New

Método construtor da classe.

Sintaxe

TGroup(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ oWnd], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
nTop	Numérico	Indica a coordenada vertical superior em pixels ou caracteres.
nLeft	Numérico	Indica a coordenada horizontal à esquerda em pixels ou caracteres.
nBottom	Numérico	Indica a coordenada vertical inferior em pixels ou caracteres.
nRight	Numérico	Indica a coordenada horizontal à direita em pixels ou caracteres.
cCaption	Caracter	Indica o título do grupo.
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
nClrText	Numérico	Indica a cor do texto.
nClrPane	Numérico	Indica a cor de fundo.
lPixel	Lógico	Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10	Lógico	Compatibilidade.

Retorno

oObjeto

(objeto)

Retorna o objeto criado.

Exemplos

oGroup

:= TGroup():New(02,02,130,130,'Objeto TGroup 1',oDlg,,,.T.)

Exemplos

User Function TGroup()
DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 550,700 PIXEL
oGroup:= TGroup():New(02,02,130,130,'Objeto TGroup',oDlg


    
     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.)

cTGet1


     
     cTGet4 := "Get dentro do TGroup"

oTGet1


     oTGet5 := TGet():New( 18,

16

150,{||

cTGet1

cTGet4},

oGroup

oGroup2,100,010,

;

"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,

cTGet1

cTGet4,,,,)

oTGet2


     oTGet6 := TGet():New( 36,

16

150,{||

cTGet1

cTGet4},

oGroup

oGroup2,100,010,

;

"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,

cTGet1

cTGet4,,,,)

ACTIVATE DIALOG oDlg CENTERED
Return

Preview

Exemplo da classe TGroup

Image Removed


   
  ACTIVATE DIALOG oDlg CENTERED
   Return

Resultado do Exemplo

Image Added

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

...

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão 6

Chave

Hierarquia

Construtores

Exemplos

Create

Método construtor da classe.

Resultado do Exemplo

Abrangência

Hierarquia

Construtores

Exemplos

New

Método construtor da classe.

Resultado do Exemplo

Abrangência