Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

Classe TToolBox

Classe

...

TToolBox

Cria

...

um

...

objeto

...

do

...

tipo

...

caixa

...

de

...

ferramenta,

...

cujo

...

objetivo

...

é

...

agrupar

...

diferentes

...

tipos

...

de

...

objetos.

Hierarquia

...

...

    • TToolBox

Construtores

Inclusão de trecho
Classe TToolBox - Construtores
Classe TToolBox - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TToolBox - Propriedades
Classe TToolBox - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TToolBox - Métodos
Classe TToolBox - Métodos
nopaneltrue

Exemplos

    oObjeto()
  • Retorna o objeto criado.
 
oTb := TToolBox():Create(oDlg)
New

New

Método construtor da classe.

TToolBox(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ oFont], [ cMsg], [ bWhen] ) --> oObjeto

    oObjeto()
  • Retorna o objeto criado.
 
oTb := TToolBox():New(01,01,oDlg,200,184)

AddGroup

Adiciona um grupo.

TToolBox(): AddGroup ( [ oObj], [ cName], [ oIcon] ) -->

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

 
oTb:RemoveGroup( oPanel2 )

SetCurrentGroup

Define o grupo corrente.

TToolBox(): SetCurrentGroup ( [ oObj] ) -->

 
oTb:SetCurrentGroup( oPanel2 )
Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
  

Create

Método construtor da classe.

TToolBox(): Create ( [ oWnd] ) --> oObjeto

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.oWndObjetoIndica a janela ou controle visual onde o objeto será criado.nWidthNuméricoIndica a largura em pixels do objeto.nHeightNuméricoIndica a altura em pixels do objeto.oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto.bWhenBloco de códigoIndica 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.).
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica o objeto (pai) que será adicionado no grupo.cNameCaracterIndica a descrição do grupo.oIconObjetoIndica o ícone que representará o grupo.
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será excluído do grupo.
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será posicionado.
PropriedadeDescriçãoTipo
bChangeGrpIndica 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
    DEFINE DIALOG oDlg TITLE "Exemplo TToolBox" FROM 180,180 TO 550,700 PIXEL
  
    // Cria os painéis que conterão os containers
  
oPanel1
    oPanel1:= TPanel():New(01,01," Painel 01 ",oDlg,,,,,CLR_YELLOW,100,80)
  
oPanel2
    oPanel2:= TPanel():New(01,01," Painel 02 ",oDlg,,,,,CLR_HRED,100,80)

  
    // Cria a Toolbox e adiciona os painéis
  
oTb
    oTb := TToolBox():New(01,01,oDlg,200,184)
  
oTb
    oTb:bChangeGrp := {|x| 
changeGrp
Alert(Str(x)
} oTb
)}
      oTb:AddGroup( oPanel1, 'Opção 1',nil )
oTb

      oTb:AddGroup( oPanel2, 'Opção 2',nil )


  
ACTIVATE
    ACTIVATE DIALOG oDlg CENTERED
 
ReturnStatic
 
Function changeGrp(nGroup)Alert(Str(nGroup))ReturnExemplo da classe TToolBox
Return

Resultado do Exemplo

Image Modified

Abrangência

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server