有谁知道在图片上写字的方法? 回复内容

1 楼Summer1314(弹道导弹========>核弹头)回复于 2004-06-10 11:37:23

我好久没用Delphi了,有一种方法可以实现,代码可能不对,你自己改一下吧:  
  var  
  bmp:   TBitmap;  
  begin  
  bmp   :=   TBitmap.Create;  
  bmp.Assign(Image1.Picture.Bitmap);  
  bmp.Canvas.TextOut(0,   0,   'helle');  
  Image1.Picture.Bitmap.Assign(bmp);  
  bmp.free;  
  end;Top

2 楼hiflower(花)回复于 2004-06-10 11:41:38

image1.picture.bitmap.Canvas.Brush.Style:=bsclear;  
  Image1.Picture.Bitmap.Canvas.TextOut(0,   0,   'helle');Top

3 楼myling(不理你)回复于 2004-06-10 11:50:19

可以的,不过仅限于bmp格式  
   
    with   Image1.Picture.Bitmap.Canvas   do  
    begin  
        Font.Color:=clRed;  
        font.Size:=23;  
        Brush.Style:=bsBDiagonal;  
        TextOut(300,   200,   'helle');  
    end;Top

4 楼kerer(篮天白云)回复于 2004-06-10 11:59:18

hiflower(花)   的看起来简单些,但好像不行啊Top

5 楼angelface(§<@#$&^%$>§)回复于 2004-06-10 12:26:08

呵呵,   没问题的,Top

6 楼myling(不理你)回复于 2004-06-10 12:42:52

行不行试过再说  
   
   
   
  仅限于bmp格式,刚才已经说了  
   
  Top