图片上加文本。(50分)

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #1

请高手看看，为何有错？
openpicturedialog1.Execute;
image1.Picture.LoadFromFile(openpicturedialog1.FileName);

image1.Canvas.Font.Color:=clred;
image1.Canvas.TextOut(20,20,'abbbbvv');

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #2

没有错呀！！！
只不过是白底红字罢了。

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #3

if openpicturedialog1.Execute then begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);

image1.Canvas.Font.Color:=clred;
image1.Canvas.TextOut(20,20,'abbbbvv');
end;

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #4

试了吕雪松的方案，仍然不行。是否要把image1.Picture送到canvas上？

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #5

你的错误是什么？图画不出还是字写不出？

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-22

• #6

to 吕雪松:
错误信息：ah.exeraised exception class EINvalidOperation with message"can only modify an
image if is contains a bitmap";
图可显示，字写不出。
谢谢！

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-23

• #7

我试了你的代码，没有问题啊，红字写在图上。
你调的是BMP文件吗？

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-24

• #8

to 吕雪松:
是jpg文件。

 

3

3wccdel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-24

• #9

to 吕雪松:
在《delphi4.0大全》中看到的一段代码启发，问题已解决。bmp和jpg中显示文字
均可。代码如下：
begin
p:=Tpicture.Create ;
try
openpicturedialog1.Execute;
if openpicturedialog1.FileName<>'' then
begin
p.LoadFromFile(openpicturedialog1.filename);
image1.Canvas.Draw(0,0,p.graphic);
end;
finally ;
p.free;
end;

虽然问题已解决，但我仍要把分数分给你，并感谢你的讨论！
3wccdel