#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
|