TOTVSTEC

Árvore de páginas

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

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

  #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

Resultado do Exemplo

Abrangência

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

  • Sem rótulos