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.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Caracteres en Lineas de un TCanvas
-
Jesus Semper
- Mensajes: 54
- Registrado: Lun Ene 04, 2010 2:40 pm
-
ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Caracteres en Lineas de un TCanvas
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.
>
>
>
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.
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com