Dibujar sobre Timagen
Hola, no sabía cómo resumir la pregunta en el título.
Tengo un Timage que tiene la propiedad Strech a true, de tal forma que se adapta al tamaño del form. Si dibujo sobre ella un rectángulo de 100x100 píxeles se dibuja bien, pero si cambio el tamaño del form, el rectángulo se deforma.
Lo que yo quiero es que lo que dibuje sobre la imagen no se deforme. Para eso redibujo el rectángulo en cada evento Onresize del Tform. La orden siempre es que dibuje 100x100 pixeles, pero lo sigue dibujando deformado.
La orden para dibujar el rectangulo es Rectangle(10,10,110,110) al parecer lo toma como píxeles de la imagen y si esta es deforma, escala las distancias.
¿Alguna idea? Gracias.
|