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))ReturnExemplo 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