ALINEACION DE CARACTERES

[Rich]

Hola amigos, les solicito su ayuda:
¿Porque? al desplegar en pantalla sea un MsgInfo() o un Browse(), los datos de los diferentes renglones no conservan la alineación a menos que midan exactamente la misma longitud?
¿Que debo hacer para evitar lo anterior?
Les anexo un ejemplo:
MsgInfo( "Totales del del proveedor : " + CRLF + ;
" Total de unidades en existencia : " + "99" + CRLF + ;
" Total de unidades vendidas : " + "99" + CRLF + ;
" Total de unidades pedidas : " + "99" + CRLF + ;
" Total de abasto : " + "99" + CRLF + CRLF + ;
"Totales de la linea : " + CRLF + ;
" Total de unidades en existencia : " + "99" + CRLF + ;
" Total de unidades vendidas : " + "99" + CRLF + ;
" Total de unidades pedidas : " + "99" + CRLF + ;
" Total de abasto : " + "99" + CRLF + CRLF + ;
"Totales de la cadena : " + CRLF + ;
" Total de unidades en existencia : " + "99" + CRLF + ;
" Total de unidades vendidas : " + "99" + CRLF + ;
" Total de unidades pedidas : " + "99" + CRLF + ;
" Total de abasto : " + "99" )
El efecto en un browse es completamente inaceptable por mis clientes.
Agradezco la ayuda que me puedan brindar.

[Shadax]

Lo que se me ocurre ahora mismo es que al no utilizar una fuente de paso fijo, evidentemente el tamaño de cada lí­nea será distinto. Has probado a utilizar una fuente como la Courier New?

[Shadax]

Mira, yo utilizo una fuente de paso fijo y queda perfecto:

[Rich]

Gracias por responder Shadax, es la primera vez que uso el foro y no me di cuenta de que si habia sido posteado mi mensage, por lo que lo volvi a tratar de postear. Te agradezco la ayuda, voy a probar con Courier New y te comento como me va.

[Rich]

Shadax: La opción de Courier New funciona adecuadamente sin embargo es un caracter poco atractivo en un browse de toda la pantalla ya que debo usar un tamaño 6 para evitar el scroll horizontal. Entre los fonts que aparecen en el inspector de objetos del IDE para la propiedad oFont de TDbBrowse existen algunos otros que sean de paso fijo?
Gracias por tu ayuda.

[vgest]

La forma mas correcta de hacer esto no es usar un font de paso fijo, sino medir lo que ocupa realmente cada texto y añador espacios hasta que queden igualados.
Para ello se usa la funcion:
GetTextWidth( cText ) -> longitud en pixels
Lo pones dentro de un bucle y hasta que se alcance la longitud deseado se añade un espacio.
De esat forma puedes usar Font proporcioanl, que queda muchisimo mas profesional

[vgest]

Una correccion: GetTExtWidth() no es realmente una funcion, sino un metodo del objeto Font.
Si no usas un Font en concreto para el dialogo, puedes basarte en el Font generico de la aplicacion, y llamar a una funcion como esta:
Function GetTextWidth( cText )
return Application:GetFont():GetTextWidth( cText )

[xhermita]

Hola Sergio;
Yo utilizo mucho las fuentes de paso fijo como la Courier New ya que
para informes e impresos con formato limitado me permite saber hasta
donde me cabe el texto. Y ademas le da a los listados una imagen mas
homegena que facilita la lectura al usuario.
En mi equipo con WinXP tengo instaladas estas fuentes;
CONSOLAS
COURIER NEW
DEJAVU SANS MONO
LIBERATION MONO
LUCIDA CONSOLE
LUXI MONO
SOURCE CODE PRO
Unas vinieron con WinXP y otras las he ido bajando de la web, hay muchas
paginas con fuentes proporcionales libres de royaltis.
Un saludo
El 19/03/2013 0:27, Sergio Garcia Luna escribió:
> Shadax: La opción de Courier New funciona adecuadamente sin
> embargo es un caracter poco atractivo en un browse de toda
> la pantalla ya que debo usar un tamaño 6 para evitar el
> scroll horizontal. Entre los fonts que aparecen en el
> inspector de objetos del IDE para la propiedad oFont de
> TDbBrowse existen algunos otros que sean de paso fijo?
>
> Gracias por tu ayuda.

[Rich]

Vgest y Xhermita:
Gracias por responder, voy a hacer pruebas con sus sugerencias.