import.css=/download/attachments/327912/newLayout.css

Classe: TToolBox

Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos.


Hierarquia

TSrvObject -> TControl -> TToolBox


Construtores
Create

Create

Método construtor da classe.


Sintaxe

TToolBox(): Create ( [ oWnd] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
Retorno
    oObjeto()
  • Retorna o objeto criado.

Observações
 

Exemplos 
oTb := TToolBox():Create(oDlg)
New

New

Método construtor da classe.


Sintaxe

TToolBox(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ oFont], [ cMsg], [ bWhen] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto.
bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada de dados, no objeto criado, estiver sendo realizada. Se o retorno for verdadeiro (.T.), o objeto continua habilitado; caso contrário, falso (.F.).
Retorno
    oObjeto()
  • Retorna o objeto criado.

Observações
 

Exemplos 
oTb := TToolBox():New(01,01,oDlg,200,184)

Métodos
AddGroup

AddGroup

Adiciona um grupo.


Sintaxe

TToolBox(): AddGroup ( [ oObj], [ cName], [ oIcon] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica o objeto (pai) que será adicionado no grupo.
cNameCaracterIndica a descrição do grupo.
oIconObjetoIndica o ícone que representará o grupo.

Observações
 

Exemplos 
oPanel1:= TPanel():New(01,01," Painel 01 ",oDlg,,,,,CLR_YELLOW,100,80)oTb:AddGroup( oPanel1, 'Opção 1', )
RemoveGroup

RemoveGroup

Exclui o grupo.


Sintaxe

TToolBox(): RemoveGroup ( [ oObj] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será excluído do grupo.

Observações
 

Exemplos 
oTb:RemoveGroup( oPanel2 )
SetCurrentGroup

SetCurrentGroup

Define o grupo corrente.


Sintaxe

TToolBox(): SetCurrentGroup ( [ oObj] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será posicionado.

Observações
 

Exemplos 
oTb:SetCurrentGroup( oPanel2 )

Propriedade
PropriedadeDescriçãoTipo
bChangeGrpIndica o bloco de código que será executado na mudança da caixa de ferramenta existentes. Observação: O codeblock recebe como parâmetro o código da caixa de ferramenta atual.Bloco de código

Observações
 

Exemplos 
#include "TOTVS.CH"User Function TEC3060()  DEFINE DIALOG oDlg TITLE "Exemplo TToolBox" FROM 180,180 TO 550,700 PIXEL    // Cria os painéis que conterão os containers    oPanel1:= TPanel():New(01,01," Painel 01 ",oDlg,,,,,CLR_YELLOW,100,80)    oPanel2:= TPanel():New(01,01," Painel 02 ",oDlg,,,,,CLR_HRED,100,80)        // Cria a Toolbox e adiciona os painéis    oTb := TToolBox():New(01,01,oDlg,200,184)    oTb:bChangeGrp := {|x| changeGrp(x)}	oTb:AddGroup( oPanel1, 'Opção 1', )	oTb:AddGroup( oPanel2, 'Opção 2', )	  ACTIVATE DIALOG oDlg CENTERED ReturnStatic Function changeGrp(nGroup)Alert(Str(nGroup))Return

Preview
Exemplo da classe TToolBox

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server