Classe de painel de grupo de controles.
Hierarquia
tSrvObject -> tControl -> tGroup
Descrição
Utilize a classe tGroup para criar um painel onde controles visuais podem ser agrupados ou classificados. É criada uma borda com título em volta dos controles agrupados.
Métodos
New
Descrição
Construtor da classe.
Sintaxe
New([anTop], [anLeft], [anBottom], [anRight], [acCaption], [aoWnd], [anClrText], [anClrPane], [alPixel], [lPar10])
Parâmetros
| AnTop | Numérico, opcional. Coordenada vertical superior em pixels ou caracteres. |
| AnLeft | Numérico, opcional. Coordenada horizontal esquerda em pixels ou caracteres. |
| anBottom | Numérico, opcional. Coordenada vertical inferior em pixels ou caracteres. |
| anRight | Numérico, opcional. Coordenada horizontal direita em pixels ou caracteres. |
| acCaption | Caractere, opcional. Título do grupo. |
| aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
| anClrText | Numérico, opcional. Cor do texto. |
| anClrPane | Numérico, opcional. Cor do fundo. |
| alPixel | Lógico, opcional. Se .T. as coordenadas informadas são em pixels, se .F. são em caracteres. |
| lPar10 | Reservado. |
Retorno
O objeto criado.
Exemplo
#include “protheus.ch”
User function teste()
Local oDlg, oGroup, oGet1, oGet2, cGet1:=Space(10),;
cGet2:= Space(10)
DEFINE MSDIALOG oDlg FROM 0,0 TO 400,400 TITLE “My test” PIXEL
oGroup:= tGroup():New(10,10,200,200,”grupo de gets”,oDlg,,,.T.)
@ 10,10 MSGET oGet1 VAR cGet1 SIZE 100,10 OF oGroup PIXEL
@ 30,10 MSGET oGet2 VAR cGet2 SIZE 100,10 OF oGroup PIXEL
ACTIVATE MSDIALOG oDlg CENTERED
Return nil