TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Próxima »

Cria um objeto do tipo painel que permite receber CSS (Cascading Style Sheet).

Hierarquia

Construtores

Observações

  • A classe TPanelCSS foi criada para ser utilizada no lugar da TPanel, pois a TPanel não suporta aplicação CSS. Cascading Style Sheets (CSS) é uma linguagem de folhas de estilo utilizada para definir a apresentação de documentos escritos em uma linguagem de marcação, como HTML.

Exemplos

 #include "TOTVS.CH"
 User Function TPanelCSS()
  local oTFont := TFont():New('Courier new',,16,.T.)
  Local cStyle := "QFrame{ border-style:solid; border-width:3px; border-color:#FF0000; background-color:#00FF00 }"

  DEFINE DIALOG oDlg TITLE "Exemplo TPanelCSS" FROM 180,180 TO 550,700 PIXEL
    oPanel := TPanelCss():New(20,140,"teste 1",oDlg,oTFont,.T.,.F.,CLR_YELLOW,CLR_BLUE,080,080,.F.,.F.)
    //oPanel1 := TPanelCss():New(20,20,"teste 2",oDlg,oTFont,.F.,.F.,CLR_YELLOW,CLR_BLUE,080,080,.F.,.F.)

    oPanel:setCSS(cStyle)
  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