Ver Mensaje Individual
  #1  
Antiguo 26-01-2006
Javi2 Javi2 is offline
Miembro
 
Registrado: jun 2004
Posts: 152
Reputación: 20
Javi2 Va por buen camino
Duda sobre la función MoveTo y LineTo

Hola a todos,

Estoy intentando imprimir una línea de tipo subrayado que vaya desde donde termina el texto hasta un punto determinado. (Ejemplo: "Texto___________")

Para ello, primero muevo el Pen a la posición donde debe empezar a imprimirse la línea mediante la función MoveTo. Como la línea debe empezar a imprimirse al final del texto, había pensado en utilizar la función Printer.Canvas.TextWidth( "Texto") para obtener este punto, pero no lo está haciendo bien.
Código Delphi [-]
Printer.Canvas.MoveTo( Printer.Canvas.TextWidth( ATitulo ) , Y );
Printer.Canvas.LineTo( X, Y );

¿Hay alguna diferencia entre la métrica que utiliza la función MoveTo y TextWidth?
¿Cómo puedo solucionarlo?

Muchísimas gracias por vuestra ayuda.
Responder Con Cita