Classe: TToolBox
Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos.
TSrvObject -> TControl -> TToolBox
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