Cambiar Tipo de letra y color

Cambiar Tipo de letra y color

Postby Willi Quintana » Sat Jul 12, 2008 10:40 pm

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
....
...
..
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Postby Willi Quintana » Mon Jul 14, 2008 10:13 pm

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)
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Postby Willi Quintana » Mon Jul 14, 2008 10:16 pm

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 ] )
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 49 guests