如何给图片加这样的边框，(附有效果图片)

Question

先看看我想实现的效果：http://homepage.ruhr-uni-bochum.de/nan.wang/test.jpg我想实现的效果就如上图我用image调用图片，图片格式为jpg, 本来想直接在图片上画，但是报措说image中图片只有位图格式才能编辑，而且我不知道如何去掉四个角，将其圆角画100分，解决就给分

Answer 1

你还是查一下关于图像的API把

Answer 2

var  X, Y: Integer;
begin
  X := Image1.Width;
  Y := Image1.Height;
 Image1.Canvas.Pen.Color := clred;
 Image1.Canvas.Pen.Width := 6;
 image1.Canvas.MoveTo(5, 5);
 image1.Canvas.LineTo(5, y-5);
 image1.Canvas.LineTo(x-5, y-5);
 image1.Canvas.LineTo(x-5, 5);
 image1.Canvas.LineTo(5, 5);

Answer 3

to aiirii(ari):
  你的方法不行， 因为当image显示的是jpg格式图片时再用canvas的方法画图就会报错，而且如果图片很多的话，会不会效率低了点

Answer 4

你用image1的载体的canvas画就不会报错了，只是坐标要改改

Answer 5

我用image调用图片，图片格式为jpg, 本来想直接在图片上画，但是报措说image中图片只有位图格式才能编辑你只要将该Image控件，先加载一次Jpg格式的图片，就能编辑Jpg格式的图片了。

Answer 6

Goldteerfei(九月samatha)， 不知道你试过没有，加载jpg图片后不能编辑，我使用的delphi5， 是不是高版本的可以