Alineacion de valores numericos en Printer

[Ruben_Cu]

Hola muchachos, en realidad imprimir directo sobre el Canvas del TPrinter a veces es bastante laborioso la propuesta de roman puede solventar este caso, sin embargo quería aclarar que las dos primeras declaraciones presentan dificultades debido a que:

Canvas.Font.Pitch = 'Helvetica';

no puede correr ya que al Pich se asocia el TFontPitch y no un string que es este caso es el nombre de un tipo de letra.
Y

Canvas.Font.Width = -11;

le sucede otro tanto ya que para el TFont no existe la propiedad Width.
Al menos ha sido así hasta Delphi 6, no obstante considero una buena propuesta de solución al caso.
Saludos

[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.