TOTVSTEC

Árvore de páginas

Função: AddCSSRule

Cria uma lista de regras CSS - Cascading Style Sheets para serem aplicadas aos objetos no momento de sua criação.
Sintaxe

AddCSSRule ( < cObjeto>, < cRegraCSS> ) --> Nil

Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cObjetoCaracterIndica o nome do objeto que receberá a regra.X 
cRegraCSSCaracterIndica a CSS que será aplicada.X 

 

Retorno
Nil (Nulo)

 

Exemplo
#INCLUDE "TOTVS.CH"

User Function Exemplo()
	Local cMensagem := ""
	Local oDialog := Nil
	Local oMsgBar := Nil
	
	//+----------------------------------------------------------------------------+
	//|Cria o diálogo para exemplificar o uso do AddCSSRule                        |
	//+----------------------------------------------------------------------------+
	oDialog := MsDialog():Create()
	oDialog:cTitle  := "Exemplo de AddCSSRule"
	oDialog:nWidth  := 800
	oDialog:nHeight := 600
	
	AddCSSRule("TMsgBar", "QStatusBar{background-color:#000000} QLabel{color:#FFFFFF}")
	
	cMensagem := "Message bar - background-color:#000000 color:#FFFFFF"
	
	oMsgBar := TMsgBar():New(oDialog, cMensagem, .F., .F., .F., .F., , , , .F., )
	
	//+----------------------------------------------------------------------------+
	//|Apresenta o diálogo                                                         |
	//+----------------------------------------------------------------------------+
	oDialog:Activate()
Return

 


Preview
Exemplo da função AddCSSRule()
Abrangência
Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos