Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
...
|
...
|
Cria
...
um
...
objeto
...
do
...
tipo
...
painel,
...
com
...
borda
...
e
...
título,
...
para
...
que
...
outros
...
possam
...
ser
...
agrupados
...
ou
...
classificados.
Hierarquia
...
...
- TGroup
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "TOTVS.CH"
User Function TGroup()
DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 650,800 PIXEL
// USANDO O NEW
oGroup1 CreateMétodo construtor da classe.TGroup(): Create ( [ oWnd], [ nTop], [ nLeft], [ nBottom], [ nRight], [ cLabel], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
oObjeto
:= TGroup(): CreateNew(oDlg, 02,02,130,130,'Objeto TGroup 1',oDlg,,,.T.) NewMétodo construtor da classe.TGroupcTGet1 := "Get dentro do TGroup" oTGet2 := TGet():New([ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ oWnd], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
oObjeto
oGroup:= TGroup():New(02,02,130,130,'Objeto TGroup',oDlg,,,.T.) DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 550,700 PIXEL oGroup:= TGroup():New(02,02,130,130,'Objeto TGroup',oDlg,,,.T.) cTGet1 := "Get dentro do TGroup" oTGet1 := TGet():New( 18,16,{||cTGet1},oGroup,100,010,; 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.,,cTGet1 cTGet4,,,,) oTGet2 oTGet6 := TGet():New( 36,16 150,{||cTGet1 cTGet4},oGroup oGroup2,100,010,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,, cTGet1cTGet4,,,,) ACTIVATE DIALOG oDlg CENTERED Return Exemplo da classe TGroup
Return
|
Resultado do Exemplo
Referências
A construção de um componente da classe TGROUP também pode ser feita através do comando AdvPL @ .. GROUP
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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas