如何在TImage上添加文字？

Question

用Image1.Canvas.Textout()吗？
可是为什么文字会消失？
我需要的是添加能随图片保存的文字（即真的在图片上面写上文字，而不仅仅是显示）
有没有什么办法能使文字具有以下性质：
1可以更换字体，颜色
2透明
3阴影
4倾斜如果问题解决，再散200分！

Answer 1

给你一个思路：
首先COPY一份当前字体位置的图像，然后每次对字体进行处理前，用那份图像覆盖。具体过程你自己写吧

Answer 2

拜托，我是指用delphi编程实现！

Answer 3

在Image的OnPaint事件里（如果没有就继承一个TImage类，在类里处理OnPaint事件）再Image1.Canvas.Textout()，这样文字就不会消失。1可以更换字体，颜色
2透明
3阴影
4倾斜
1，2，4设置Image1.Canvas.Font属性即可。第3个用两次Textout()的方法（两次的坐标稍微错开点）就可实现。，

Answer 4

4 用 TLogFont，参看他的help!

Answer 5

你在TImage里的图像是Bitmap格式吗?是的话,就可对Image.Canvas进行操作,其实质就是对Image.Picture.Bitmap.Canvas进行操作!其实质是改变了Bitamp,当然也就不需要重绘!

Answer 6

用textout写上的文字有白色背景，怎么去掉？（透明）

Answer 7

Image1.Canvas.Brush.Style := bsClear;
  r := Rect(0, 0, Image1.Width, Image1.Height);
  DrawText(Image1.Canvas.Handle, 'Hello Taxi', 10, r,
    DT_SINGLELINE or DT_CENTER or DT_VCENTER);