Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos. 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) 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) 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', ) 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 ) 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 |
| Bloco de código |
|---|
| theme | Eclipse |
|---|
| language | cpp |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
| #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 |