Classe: TToolBox
Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos.
TSrvObject -> TControl -> TToolBox
Create
Método construtor da classe.
TToolBox(): Create ( [ oWnd] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. |
oObjeto
- ()
- Retorna o objeto criado.
oTb := TToolBox():Create(oDlg)
New
Método construtor da classe.
TToolBox(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ oFont], [ cMsg], [ bWhen] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
| nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
| nWidth | Numérico | Indica a largura em pixels do objeto. | ||
| nHeight | Numérico | Indica a altura em pixels do objeto. | ||
| oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
| cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto. | ||
| bWhen | Bloco de código | Indica 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.). |
oObjeto
- ()
- Retorna o objeto criado.
oTb := TToolBox():New(01,01,oDlg,200,184)
AddGroup
Adiciona um grupo.
TToolBox(): AddGroup ( [ oObj], [ cName], [ oIcon] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oObj | Objeto | Indica o objeto (pai) que será adicionado no grupo. | ||
| cName | Caracter | Indica a descrição do grupo. | ||
| oIcon | Objeto | Indica o ícone que representará o grupo. |
oPanel1:= TPanel():New(01,01," Painel 01 ",oDlg,,,,,CLR_YELLOW,100,80)oTb:AddGroup( oPanel1, 'Opção 1', )
RemoveGroup
Exclui o grupo.
TToolBox(): RemoveGroup ( [ oObj] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oObj | Objeto | Indica qual objeto (pai) será excluído do grupo. |
oTb:RemoveGroup( oPanel2 )
SetCurrentGroup
Define o grupo corrente.
TToolBox(): SetCurrentGroup ( [ oObj] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oObj | Objeto | Indica qual objeto (pai) será posicionado. |
oTb:SetCurrentGroup( oPanel2 )
| Propriedade | Descrição | Tipo |
| bChangeGrp | Indica 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 |
Exemplo
#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
Return
Static Function changeGrp(nGroup)
Alert(Str(nGroup))
Return
Exemplo da classe TToolBox
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas