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 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,20,nil,oDlg,nil,nil,nil,nil,nil,080,080,nil,nil) oPanel:setCSS(cStyle) ACTIVATE DIALOG oDlg CENTERED Return |
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server