Bueno, más bien estaba intentando hacer algo así:
Código:
Image2.Canvas.Pen.Color := ClMaroon;
Image2.Canvas.Pen.Width := 6;
Image2.Canvas.MoveTo(x1,y1);
Image2.Canvas.LineTo(x2,y2);
Image2.Canvas.Pen.Color := ClBlack;
Image2.Canvas.Pen.Width := 1;
Con esto puedo sacar las líneas para los tubos
pero ocupe un TBitmap para tratar de llamar o colocar las imagenes mediante un TButton con:
Código:
var
Casa : TBitMap;
Image2.Canvas.Rectangle(x1,y1,x2,y2);
Casa := TBitMap.Create;
Casa.LoadFromFile('casa.bmp');
Y si me dibuja el rectangulo en cualquier posicion del plano pero no carga la imagen
