• Sábado 14 de Diciembre de 2024, 21:56

Autor Tema:  Dibujar linea sobre un TImage  (Leído 2154 veces)

gonzalipto

  • Miembro activo
  • **
  • Mensajes: 26
    • Ver Perfil
Dibujar linea sobre un TImage
« en: Martes 24 de Marzo de 2009, 09:43 »
0
Hola gente, necesito dibujar una linea recta sobre un TImage, pero el tema esta en que no quiero modificar la imagen original..

Para ello lo que hice es lo siguiente

Tengo un TImage con la imagen y por encima de esta, tengo otro TImage vacio en donde quiero dibujar la linea recta

El objetivo es dibujar la linea y que se vea la imagen de fondo con la linea dibujada encima..

Yo hice el siguiente codigo pero no me funciona...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image2->Picture->Bitmap->TransparentColor=clBlack;

TPoint points[2];
points[0] = Point(100,10);
points[1] = Point(10,100);
Image2->Canvas->Polyline(points,1);

}

Pero cuando ejecuto esto no dibuja nada y si comento la linea Image2->Picture->Bitmap->TransparentColor=clBlack; me dibuja un rectangulo blanco con la linea y en definitivas me tapa toda la imagen que tengo detras..

Alguna ayuda?

phobos

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Dibujar linea sobre un TImage
« Respuesta #1 en: Martes 31 de Marzo de 2009, 15:56 »
0
Hola.

Puede ser un problema con la versión del componente, porque he hecho la prueba con tu código y me ha funcionado muy bien (con y sin comentar Image2->Picture->Bitmap->TransparentColor=clBlack). He usado c++builder 2007. Me gustaría insertar un pantallazo para demostrártelo, pero no sé cómo hacerlo.
Lo único que has de tener en cuenta es que para que funcione, el TImage debe contener un bitmap (un jpg genera error).
Siento no poder concretar más y decirte por qué no te está funcionando a ti.

Saludos.