Cria um objeto do tipo painel estático. Além disso, permite criar outros controles visuais com objetivo de organizar ou agrupar outros componentes visuais.
#include "TOTVS.CH" User Function TPanel() DEFINE DIALOG oDlg TITLE "Exemplo TPanel" FROM 180,180 TO 550,700 PIXEL // TFont oTFont := TFont():New('Courier new',,16,.T.) // Usando o método New oPanel:= tPanel():New(01,01,"Teste",oDlg,oTFont,.T.,,CLR_YELLOW,CLR_BLUE,100,100) // Usando o método Create oPanel:= tPanel():Create(oDlg,01,102,"Teste",oTFont,.F.,,CLR_YELLOW,CLR_BLUE,100,100) ACTIVATE DIALOG oDlg CENTERED Return |
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server
A construção de um componente da classe TPANEL() pelo construtor NEW() também pode ser feita através do comando AdvPL @ .. MSPANEL