Mudando as Cores de Textos em Caixas de Diálogo

Programa muito útil quando se deseja mudar cores num dialog:

user function dialogovtc

local oTitulo1, oArial18 := tfont():new("arial",,18, .t., .t.),;

@ 0,0 to 250,530 dialog oDlgTanq title "TITULO"

aAviso := {}

aadd(aAviso,{ 2,8, "MENSAGEM 1", 0, 0, "", 155 }) // 155 codigo de cor

aadd(aAviso,{30,8, "MENSAGEM 2", 0, 0, "", 8388608}) // 8388608 codigo de cor

OTitulo1 := tsay():new(aAviso[1,1],aAviso[1,2],{aAviso[1,3]},,,oArial18,,,,.t.,  aAviso[1,7])

OTitulo1 := tsay():new(aAviso[2,1],aAviso[2,2],{aAviso[2,3] },,,oArial18,,,,.t.,  aAviso[2, 7])

@ 108, 195 bmpbutton type 2 action fecha() activate dialog oDlgTanq centered

return nil