Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: TToolBox
|
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 |
#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
Exemplo da classe TToolBox
![](https://tdn.totvs.com/download/attachments/6063303/Mon+May+21+15%3A40%3A15+BRT+2012temp?version=1&modificationDate=1337625615400)
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