Perguntas Exemplos de Legendas

Olá alguém teria uma lista de opções de cores e formatos de legendas que eu posso utilizar?
Obrigado!

USER FUNCTION F580LEGEN
Local aLegenda := {;
{"BR_VERDE" , "Título liberado para pagamento."},;
{"BR_AZUL" , "Título aguardando liberação."},;
{"BR_VERMELHO" , "Título totalmente baixado."},;
{"BR_VIOLETA" , "Título suspenso."},;
{"BR_LARANJA" , "Título Cancelado."},;
{"BR_PRETO" , "Teste Legenda 1."},;
{"BR_AZUL" , "Teste Legenda 2."};
}
RETURN aLegenda
USER FUNCTION F580EDLEG
Local aLegenda := {;
{"BR_VERDE" , "Título liberado para pagamento."},;
{"BR_AZUL" , "Título aguardando liberação."},;
{"BR_VERMELHO" , "Título totalmente baixado."},;
{"BR_VIOLETA" , "Título suspenso."},;
{"BR_LARANJA" , "Título Cancelado."},;
{"BR_PRETO" , "Teste Legenda 1."},;
{"BR_CINZA" , "Teste Legenda 2."};
}
Local uRetorno := {}
Aadd(uRetorno, { ' SE2->E2_VALOR >= 100 .And. SE2->E2_VALOR < 150', aLegenda[6][1] })
Aadd(uRetorno, { ' SE2->E2_VALOR >= 150 .And. SE2->E2_VALOR < 200', aLegenda[7][1] })
Aadd(uRetorno, { ' E2_SALDO <= 0', aLegenda[3][1] } )
Aadd(uRetorno, { '!EMPTY(E2_DATASUS) .AND. !EMPTY(E2_USUASUS)' , aLegenda[4][1] })
Aadd(uRetorno, { '!EMPTY(E2_DATACAN) .AND. !EMPTY(E2_USUACAN)' , aLegenda[5][1] })
Aadd(uRetorno, { '!EMPTY(E2_DATALIB) .OR. (SE2->E2_SALDO+SE2->E2_SDACRES-SE2->E2_SDDECRE) <= '+ALLTRIM(STR(GetMv('MV_VLMINPG'),17,2)), aLegenda[1][1] })
Aadd(uRetorno, { '(SE2->E2_SALDO+SE2->E2_SDACRES-SE2->E2_SDDECRE) > '+ALLTRIM(STR(GetMv('MV_VLMINPG'),17,2)), aLegenda[2][1] })
RETURN uRetorno