image的stretch为true后，textout的字变形怎么办？

Question

image1是动态创建的，运行过程中动态装载图片
由于图片往往会更宽一些，为了在image1的固定大小内完全显示图片，我将image1.Stretch设为true;
但是在image1中textout出来的字都变得很窄
如果image1.stretch为false的话，textout出来的字就正常
请问如何在image1.Stretch:=true;的情况下，textout出来的字是正常比例的呢？谢谢image1.Stretch:=true;image1.Picture.Assign(backpic);
image1.Canvas.TextOut(x,y,str);

Answer 1

用Timage控件做不到的，你要自己先处理图片，缩放成Timage的大小，或者Timage的大小跟着图片缩放

Answer 2

bmp.Width:=image1.width;
bmp.Height:=image1.Height.;
bmp.Canvas.StretchDraw(rect(0,0,bmp.Width,bmp.Height),backpic);
backpic.Assign(bmp);image1.Picture.Assign(backpic); 
image1.Canvas.TextOut(x,y,str);