Cambiar Tipo de letra y color

[Willi Quintana]

Hola amigos,,
en esta sentencia, como cambio el tipo de Font en ejecucion? ChooseFont() devuelve un array de datos

Salu2

DEFINE FONT oFont1 NAME "Arial" BOLD SIZE 20,38
...
..
.
REDEFINE SAY oNom
VAR cNom
FONT oFont1
COLOR CLR_RED
ID 101 OF oDlg
....
...
..

[Willi Quintana]

Yo mismo me respondo (nadie cambia fonts en ejecucion??)
Salu2

REDEFINE SAY oTitle VAR cTitle FONT oFont ID 101 OF oDlg
.....
REDEFINE BUTTON oCam ;
ACTION CambiarFont(oTitle)
....



FUNCTION CambiarFont(oObjSay)
local aTFont, oFont

aTFont := {}
aTFont := CHOOSEFONT()
oFont := BUILDFONT( aTFont )
oObjSay:SetFont(oFont)
oObjSay:Refresh()
Return(Nil)

[Willi Quintana]

Ups,,, falto algo

FUNCTION BUILDFONT( aFont )

IF EMPTY( aFont[ LF_FACENAME ] )
RETURN NIL
ENDIF

RETURN TFont():New( aFont[ LF_FACENAME ],;
,;
aFont[ LF_HEIGHT ],;
.f.,;
!( aFont[ LF_WEIGHT ] == FW_NORMAL ),;
aFont[ LF_ESCAPEMENT ],;
aFont[ LF_ORIENTATION ],;
aFont[ LF_WEIGHT ],;
aFont[ LF_ITALIC ],;
aFont[ LF_UNDERLINE ],;
aFont[ LF_STRIKEOUT ],;
aFont[ LF_CHARSET ],;
aFont[ LF_OUTPRECISION ],;
aFont[ LF_CLIPPRECISION ],;
aFont[ LF_QUALITY ],;
,;
aFont[ LF_PITCHANDFAMILY ] )