import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo painel que permite receber CSS (Cascading Style Sheet).
#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
|
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server