Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Portuguese |
Pagetitle |
---|
...
|
|
...
|
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 | ||||||
---|---|---|---|---|---|---|
|
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:= 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 CreateMétodo construtor da classe.TGroup(): Create ( [ oWnd], [ nTop], [ nLeft], [ nBottom], [ nRight], [ cLabel], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
oObjeto
:= TGroup():Create(oDlg,02, 02140,130,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
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 | ||||
---|---|---|---|---|
|
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 | ||||||
---|---|---|---|---|---|---|
|
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 NewMétodo construtor da classe.TGroup(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ oWnd], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
oObjeto
:= TGroup():New(02,02,130,130,'Objeto TGroup 1',oDlg,,,.T.)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.,, cTGet1cTGet4,,,,) 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 ReturnExemplo da classe TGroup
ACTIVATE DIALOG oDlg CENTERED
Return
|
Resultado do Exemplo
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
...