Question

delphi能否在已经显示的图片上在添加要显示的文字？

比如已经通过 MyCanvas.StretchDraw(panel.clientRect,bitmap);在某矩形容器显示了图片并在不影响原来显示效果的前提下，能否再用 MyCanvas.TextRect()方法再加上想显示的字符呢？
不中啊，大侠。字倒是出来了，可画面没了！
var
MyCanvas1 : TControlCanvas;
bitmap : TBitmap;
MyCanvas2 : TControlCanvas;
Begin
bitmap:=TBitmap.Create;
MyCanvas1:=TControlCanvas.Create;
try
bitmap.LoadFromFile('H:\AA.bmp');
Mycanvas1.control:=panel1;
MyCanvas1.StretchDraw(panel1.clientRect,bitmap);

MyCanvas1.TextRect(panel1.clientRect,30,50,'美丽的风景');
MyCanvas1.Brush.Style :=bsClear;

finally
bitmap.Free;
MyCanvas1.Free;
end;

Answer 1

可以，但有背景色。要想没有背景色，要设置Canvas.Brush.Style :=bsClear;
你把：
MyCanvas1.TextRect(panel1.clientRect,30,50,'美丽的风景');
MyCanvas1.Brush.Style :=bsClear;
修改为：
MyCanvas1.Brush.Style :=bsClear;
MyCanvas1.Textout(30,50,'美丽的风景');