Cambiar Tipo de letra y color
Posted:
Sat Jul 12, 2008 10:40 pmby 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
....
...
..
Posted:
Mon Jul 14, 2008 10:13 pmby 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)
Posted:
Mon Jul 14, 2008 10:16 pmby 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 ] )