在加载了jpg图片的image上画图

实现方法：由于不能直接在加载了jpg图片的image上用canvas画线，所以在一个新的image对象上用canvas.StretchDraw先把目标图像画出来，然后再用canvas画线。如果原图比较大，是使用stretch方式显示的话，新image对象直接用Draw画图画不全。具体如下：

procedure TForm1.btn1Click(Sender: TObject);

begin

  DoubleBuffered := true;  //防止画图时闪烁

  img2.Canvas.StretchDraw(img2.ClientRect, img1.Picture.Graphic);

  img1.Hide;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

  img2.Picture.SaveToFile('f:\a.jpg');

end;

procedure TForm1.img2MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

   if ssLeft in Shift then

  begin

    p.X := X;

    p.Y := Y;

    img2.Canvas.Pen.Color := clRed;

    img2.Canvas.Pen.Width :=5;

  end;

end;

procedure TForm1.img2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if ssLeft in Shift then

  begin

    img2.Canvas.MoveTo(p.X, p.Y);

    img2.Canvas.LineTo(X, Y);

    p.X := X;

    p.Y := Y;

  end;

end;