image上添加文字(30分)

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #1

请教一下各位，如何在一个image上加些 字符啊
我是这样的，但是出错了
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Canvas.Pen.Color :=clred;
image1.Canvas.TextOut(1,1,'a');
end;
提示为：Cann't only modify an image if it contans a bitmap
请问如何处理？

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #2

用另外一个image画

 

W

wlh_1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #3

干脆加个label,设成透明，或者坐在image里

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #4

两位：现在是想用image.canvas的属性与方法实现，这样比较好做

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #5

var
R:TRect;
begin
R:=Rect(20,20,100,100);
DrawText(image1.Canvas.Handle,'This is a long text!',25,R,DT_END_ELLIPSIS);////DT_PATH_ELLIPSIS
end;

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #6

app2001 :
还是相同的提示！
呵呵！

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #7

不可能呀？我发之前试了一下，在我这是可以的呀？？

 

A

AnionF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #8

image1.picture.bitmap.canvas.textout(1,1,'a');
我觉得这样可以

 

F

fsse4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #9

干脆加个label,设成透明，或者坐在image里

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #10

如果是jpeg/jpg的图象是不能被修改的

只能通过另外一个image来实现：再放一个image（image2）,将image1设置为不可见
image2.Canvas.Draw(0,0,image1.picture.graphic);
image2.Canvas.Pen.Color :=clred;
image2.Canvas.brush.style:=bsclear;//字体透明
image2.Canvas.TextOut(1,1,'我爱重庆');
// image2.Picture.SaveToFile('d:/dl.bmp');//存盘

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #11

app2001 与 anionf 的方法出现相同的提示。
用label可以，但是不够理想！

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #12

看我上面的回答：：）
没问题了

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #13

hongxing_dl的方法可以，但是想知道原因！向你请教！

 

A

AnionF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #14

我觉得可以的呀?实在不行的话
就申明一个TBitmap,把image1的内容复制过来,然后在这个TBitmap上面画图,
然后Assign到Image里面去.
顺便问一下,你的Image1里面是什么格式的图片?Jpeg?

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #15

AnionF:用的是jpeg文件，canvas提供了一个textout(),为什么不用？
这好像是最好的方法 啊！

 

A

AnionF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #16

Jpeg当然是不能修改的.
我以为是Bitmap呢,[]

 

L

ljlsucfe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #17

多人接受答案了。