Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
TToolBox
TToolBox

Classe: TToolBox

Cria um objeto do tipo caixa de ferramenta, cujo objetivo é agrupar diferentes tipos de objetos.


TSrvObject -> TControl -> TToolBox


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.
    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


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.).
    oObjeto()
  • Retorna o objeto criado.

 

oTb := TToolBox():New(01,01,oDlg,200,184)

AddGroup

Adiciona um grupo.


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


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.

 

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


NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será excluído do grupo.

 

oTb:RemoveGroup( oPanel2 )

SetCurrentGroup

Define o grupo corrente.


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


NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto (pai) será posicionado.

 

oTb:SetCurrentGroup( oPanel2 )

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

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