Classe: TGroup
Cria um objeto do tipo painel, com borda e título, para que outros possam ser agrupados ou classificados.
TSrvObject -> TControl -> TGroup
Create
Método construtor da classe.
TGroup(): Create ( [ oWnd], [ nTop], [ nLeft], [ nBottom], [ nRight], [ cLabel], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
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. |
- (objeto)
- Retorna o objeto criado.
oGroup := TGroup():Create(oDlg,02,02,130,130,'Objeto TGroup',,,.T.)
New
Método construtor da classe.
TGroup(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ oWnd], [ nClrText], [ nClrPane], [ lPixel], [ uParam10] ) --> oObjeto
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. |
- (objeto)
- Retorna o objeto criado.
oGroup:= TGroup():New(02,02,130,130,'Objeto TGroup',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,,,.T.)
cTGet1 := "Get dentro do TGroup"
oTGet1 := TGet():New( 18,16,{||cTGet1},oGroup,100,010,;
"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
oTGet2 := TGet():New( 36,16,{||cTGet1},oGroup,100,010,;
"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
ACTIVATE DIALOG oDlg CENTERED
Return