Sobre font en printer

[Francisco Sanchez]

Vamos a ver tengo declarada una Font como ofont1 y en el listado voy
haciendo oFont1:lBold := .T. y despues :oFont := oFont1, y en caso de no
necesitar negrita al reves oFont1:lBold := .F. y :oFont := oFont1, es esto
correcto? o tendria que crear por ejemplo un oFont2 para contemplar el lBold
:= .T. y simplemente hacer :oFont := oFont2 u :oFont := oFont1 en funcion de
si necesito que vaya o no en negrita?
Un saludo

[jfgimenez]

Paco,
> Vamos a ver tengo declarada una Font como ofont1 y en el listado voy
> haciendo oFont1:lBold := .T. y despues :oFont := oFont1, y en caso de no
> necesitar negrita al reves oFont1:lBold := .F. y :oFont := oFont1, es esto
> correcto? o tendria que crear por ejemplo un oFont2 para contemplar el
> lBold := .T. y simplemente hacer :oFont := oFont2 u :oFont := oFont1 en
> funcion de si necesito que vaya o no en negrita?
Si vas cambiando lBold cada vez, estarás destruyendo y creando fuentes
continuamente. Es mejor que crees dos fuentes, una normal y otra en negrita.
--
Un saludo,
José F. Giménez

[ignacio]

Francisco,
Te recomiendo que crees un segundo font si haces muchas veces el cambio de
tipo porque cuando cambias la propiedad estas destruyendo y creando un font
nuevo cada vez.
Un saludo,
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:42f1cfd5$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Vamos a ver tengo declarada una Font como ofont1 y en el listado voy
> haciendo oFont1:lBold := .T. y despues :oFont := oFont1, y en caso de no
> necesitar negrita al reves oFont1:lBold := .F. y :oFont := oFont1, es esto
> correcto? o tendria que crear por ejemplo un oFont2 para contemplar el
> lBold := .T. y simplemente hacer :oFont := oFont2 u :oFont := oFont1 en
> funcion de si necesito que vaya o no en negrita?
>
> Un saludo
>

[Francisco Sanchez]

entonces con el :oFont cambiaria a :oFont := aFont[1] y :oFont := aFont[2]
por ejemplo no ?
Un saludo

[Francisco Sanchez]

tambien es aplicable esto al nSize ?
Un saludo

[ignacio]

Francisco,
Repasa el método SelesttFont() y la propiedad oFont de la clase TCanvas.
Un saludo,
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:[email=42f2666f@ozsrvnegro.ozlan.local...]42f2666f@ozsrvnegro.ozlan.local...[/email]
> entonces con el :oFont cambiaria a :oFont := aFont[1] y :oFont := aFont[2]
> por ejemplo no ?
>
> Un saludo
>

[Francisco Sanchez]

Pues ya acabe de liarme pues me fije en los samples de impresion que lleva
xailer y ahora ya me lie pues no estan igual. No basta con hacer
TFont():new() sino que tambien tengo que indicarle el oDevice ?
Un saludo

[Francisco Sanchez]

tengo puesto lo siguiente :
aFont[1] := TFont():New()
aFont[2] := TFont():New()
aFont[3] := TFont():New()
WITH OBJECT aFont[1]
:cName := "Arial"
:nSize := 10
END WITH
WITH OBJECT aFont[2]
:cName := "COURIER NEW"
:nSize := 10
END WITH
WITH OBJECT aFont[3] //este es igual que el primero pero solo cambia lbold
:cName := "Arial"
:nSize := 10
:lbold := .T.
END WITH
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas .......
y aqui voy cambiando aFont[1]:nSize := 18, :oFont := aFont[1], depues vuelvo
a poner aFont[1]:nSize := 10, y ya solo cambio entre aFont[1] y aFont[3] en
funcion de si es lBold == .T. o no. Tendria que crear otro font para el
cambio de tamaño ?
Un saludo