Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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


NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nTopNuméricoIndica a coordenada vertical superior em pixels ou caracteres.
nLeftNuméricoIndica a coordenada horizontal à esquerda em pixels ou caracteres.
nBottomNuméricoIndica a coordenada vertical inferior em pixels ou caracteres.
nRightNuméricoIndica a coordenada horizontal à direita em pixels ou caracteres.
cLabelCaracterIndica o título do grupo.
nClrTextNuméricoIndica a cor do texto.
nClrPaneNuméricoIndica a cor de fundo.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10LógicoCompatibilidade.
    oObjeto(objeto)
  • Retorna o objeto criado.

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

New

Método construtor da classe.


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


NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical superior em pixels ou caracteres.
nLeftNuméricoIndica a coordenada horizontal à esquerda em pixels ou caracteres.
nBottomNuméricoIndica a coordenada vertical inferior em pixels ou caracteres.
nRightNuméricoIndica a coordenada horizontal à direita em pixels ou caracteres.
cCaptionCaracterIndica o título do grupo.
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nClrTextNuméricoIndica a cor do texto.
nClrPaneNuméricoIndica a cor de fundo.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10LógicoCompatibilidade.
    oObjeto(objeto)
  • Retorna o objeto criado.

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

#include "TOTVS.CH"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

Exemplo da classe TGroup

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos