Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos.
#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| Alert(Str(x))}
oTb:AddGroup( oPanel1, 'Opção 1',nil )
oTb:AddGroup( oPanel2, 'Opção 2',nil )
ACTIVATE DIALOG oDlg CENTERED
Return
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server