Clipper/FiveWin - DEFINE FONT oFont

quiero definir un tipo letra indicandolo en un campo de una DBF.
para poner p.ej "Arial" 10,20 en ese campo, luego

Letra:=Base->TipoFont

y luego la sentencia Define Font hacerla con la varialbe Letra, asi de esta manera poder cambiar la letra sin compilar el prg.

y sin utilizar el SelFont.

es posible definir el font de esa manera???

JuanMa

Si claro, se puede si utilizas el metodo constructor de la clase font, en vez del comando DEFINE FONT.

El contructor es este:

METHOD New( cFaceName, nWidth, nHeight, lFromUser, lBold,;
nEscapement, nOrientation, nWeight, lItalic, lUnderline,;
lStrikeOut, nCharSet, nOutPrecision, nClipPrecision,;
nQuality, oDevice, nPitchFamily ) CLASS TFont

lo que tienes que hacer es en vez de

DEFINE FONT o Font NAME "arial" size 0,-10 BOLD

es llamar al metodo constructor de la clase:

oFont := TFont():New("arial", 0,-10,.f.,.t........)

y listo, el font se utiliza como lo haces normalmente desde tu programa