Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - FWCALENDAR estilo.CSS

#include 'TOTVS.CH'
//-------------------------------------------------------------------
/*/{Protheus.doc} @author Eduardo Paro de Simoni
    Exemplo de FwCalendar
-------------------------------------------------------------------*/
function U_zFwCalendar()
        local oDlg      := nil
        local oCalend   := nil
        local aCoors    := FwGetDialogSize()
        local cTxtCel   :=''
        Define MsDialog oDlg Title 'Calendário de Edu' From aCoors[1], aCoors[2] To aCoors[3], aCoors[4] Pixel

        cTxtCel:= '<h3>Teste de Estilo .css </h3> '
        cTxtCel+= '<font color="red">Este texto é vermelho!</font> <br> '
        cTxtCel+= '<font color="blue">Este texto é azul!</font><br>     '
        cTxtCel+= '<font color="yellow">Este texto é amarelo!</font><br> '
        cTxtCel+= '<font color="green">Este texto é verde!</font>'

        oCalend := FwCalendar():New(Month(dDataBase), Year(dDataBase))
        oCalend:aNomeCol := {'Domingo', 'Segunda', 'Terça', 'Quarta', 'Quinta', 'Sexta', 'Sábado', 'Semana'}
        oCalend:lWeekColumn := .F.
        oCalend:lFooterLine := .F.
        oCalend:Activate( oDlg ) 
        
        For nI := 1 To Len( oCalend:aCell ) 
                If oCalend:aCell[nI][4] 
                        //oCalend:SetInfo( oCalend:aCell[nI][1], '<h1 style="background:red">Eduardo</h1>' )
                        oCalend:SetInfo( oCalend:aCell[nI][1], cTxtCel )
                endif            
        Next
        Activate MsDialog oDlg Centered
Return

Observação:Ao passar a string no setInfo ela é informada diretamente no componente visual. Os componentes do Protheus conseguem verificar se o texto informado é um html/css e conseguem realizar a aplicação.
Ao informar um array é utilizado um componente do tipo listbox, que não faz essa conversão para acatar um css.
Desta maneira, o utilizar um (array) listbox o css não será acatado.

Saiba mais
FWCalendar