image上加文字的困惑

希望 · 发表于 2014-3-20 20:42:59

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

在Timage里先添加一个图片，然后分别用下面两个方法在image上写文字。下面那个报错。。这个原理是啥呢？

var
MyCanvas1 : TControlCanvas;
Begin
MyCanvas1:=TControlCanvas.Create;
try
Mycanvas1.control:=img1;
、、 MyCanvas1.StretchDraw(img1.clientRect,img1.Picture.Bitmap);
MyCanvas1.Brush.Style :=bsClear;
MyCanvas1.Textout(40,60,'这里添加文字');
finally
MyCanvas1.Free;
end;
end;

begin
   Str:='中国';
   //Image1.Canvas.Brush.Color:=clred;
   Image1.Canvas.Font.Color:=clred;
   Image1.Canvas.Font.Name:='宋体';
   Image1.Canvas.Font.Style:=[fsBold, fsItalic, fsUnderline, fsStrikeOut];
   Image1.Canvas.Font.Size:=36;
   X :=(image1.Width - image1.Canvas.TextWidth(str)) div 2;
   Y :=(image1.Height - image1.Canvas.TextHeight(str)) div 2;
   image1.Canvas.TextOut(X, Y, str);
end;

Angel丶L · 发表于 2015-2-2 01:02:03

逛一逛，瞧一瞧，顶一顶，没坏处

账号		自动登录	找回密码
密码			立即注册

[技术交流] image上加文字的困惑

马上注册，结交更多好友，享用更多功能^_^