Dibujar una línea.

[netkuup]

Quiero dibujar una línea en un TImage.

Para hacerlo con "VLC Forms Application" se hace así y funciona perfecto:

Image1.Canvas.MoveTo(10,10);
Image1.Canvas.LineTo(30,30);


Pero con "firemonkey" eso no funciona y debo hacerla así:

Image1.Bitmap.Canvas.DrawLine(punto1, punto2, Opacity);


El problema, es que al hacerlo con "VLC Forms Application" la línea queda perfecta, pero al hacerlo con "firemoney" la línea no queda perfectamente definida pixel a pixel, si haces mucho zoom se ve que está como difuminada, y quiero que la línea en todo momento solo tenga 1 pixel de grosor.

Alguien sabe como se puede hacer?

Gracias

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias