Página 1 de 1

Caracteres en Lineas de un TCanvas

Publicado: Mié Dic 30, 2009 9:58 pm
por Jesus Semper
En un objeto TCanvas, :TextLines() nos indica el numero de lineas posibles
con el font actual.
¿ Hay algun modo de saber el numero de caracteres que permite de una linea
con dicho font ?
Salu2.

Caracteres en Lineas de un TCanvas

Publicado: Lun Ene 04, 2010 12:32 pm
por ignacio
Jesus,
Como es lógico, únicamente podrí­a tener un valor exacto si utiliza fonts no
proporcionales como 'Courier'.
Si se fija en el fuente como se consigue TextLines, observará que es fácil
obtener el dato que precisa. Por ejemplo:
METHOD CharsInLine() INLINE Int( ::nHorzRes / ::TextWidth( "B" ) )
Fijase que utilizamos el carácter 'B' para hacer cálculo. En el caso de
fonts no proporcionales le valdrí­a cualquier carácter. Para fonts
proporcionales utilizamos la 'B' por entender que es un carácter de ancho
medio. Si quiere ser más conservador puede utilizar la 'M' por ejemplo.
Un saludo,
"Jesus Semper" <jesus@semper-sl.com> escribió en el mensaje de
noticias:[email=4b3bc66f@svctag-j7w3v3j....]4b3bc66f@svctag-j7w3v3j....[/email]
> En un objeto TCanvas, :TextLines() nos indica el numero de lineas
> posibles con el font actual.
> ¿ Hay algun modo de saber el numero de caracteres que permite de una linea
> con dicho font ?
>
> Salu2.
>
>
>