Alineacion de valores numericos en Printer

[jachguate]

Empezado por Ruben_Cu

la propuesta de roman

Hola Ruben... no se si me perdí de algo, pero creo que estas hablando de mi propuesta... jachguate y no de la de roman...

Ciertamente he dejado los errores que has resaltado. He cometido el error de hablar de memoria sin comprobar lo que digo, y ya ves, mi memoria no es confiable...

El código debiera ser algo como:

Código Delphi [-]
  Canvas.Font.Name = 'Arial';
  Canvas.Font.Size = -11;
  PosX := 150 - Canvas.TextWidth('12,789.23');
  Canvas.TextOut(PosX, 50, '12,789.23');

Gracias por la aclaración, y hasta luego.

[Ruben_Cu]

Buenas noches jachguate, como ves no solo a ti te traiciona la memoria pués escribí el nombre equivocado, había acabado de leer un post de roman y allá salió el nombre, ya veo las enmiendas que has hecho y yo tambíén enmiendo mi error por abusar de mis ya viejas neuronas, que entre ron y tabaco van muriendo.
Un saludo

[eber]

Hola, me hice esta funcion para poder alinear a la derecha, fijate si te sirve:

function ubica(s: string):integer;
var aux: byte;
begin
aux:= 8 - length(s);
ubica:= 25 * aux;
end;


Nota: cadena de hasta 8 caracteres.

Ejemplo de llamada:
TextOut ( (2090+ubica(label1.caption)), 1675, label1.caption);

Salutes!

[jachguate]

Que significa el factor 25 que utilizas?

Has considerado que pasa con cadenas largas y tipos de fuente no monospace?

[eber]

Bueno , esa funcion me sirvio a mi para alinear precios de unos productos que no superaban a 99.999,99. Por eso el 8 y no probe con strings con espacios.
El factor 25 es el ancho aproximado de un caracter. (Usando printer.canvas)

[jachguate]

Empezado por eber

que no superaban a 99.999,99. Por eso el 8

length('99.999,99') = 9, no 8

Empezado por eber

El factor 25 es el ancho aproximado de un caracter. (Usando printer.canvas)

En todo caso, eso dependerá del tipo de letra y el tamaño elegido. Por ello he usado la función TextWidth, del canvas, que te devuelve el ancho exacto de cualquier cadena tomando en cuenta estas variables.

Hasta luego.

[eber]

No uso separadores de miles, perdon: 99999,99 = 8
Gracias por el dato TextWidth

Salutes