图片中加入图片的delphi代码

时间:2010-01-30 08:19:49  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:;varImageFormIcon: TImage;bmpWork: TBitmap;X, Y: integer;begin  bmpWork := TBitmap.Create;  bmpWork.Width := bmp.Width;  bmpWork.Height := bmp.Height;    ImageFormIcon := TImage.Create(nil);  try    ImageForm...
  正文:请看如下代码


procedure MarkBitmap(const bmp: TBitmap; iamgeMark: TImage);
var
ImageFormIcon: TImage;
bmpWork: TBitmap;
X, Y: integer;
begin
  bmpWork := TBitmap.Create;
  bmpWork.Width := bmp.Width;
  bmpWork.Height := bmp.Height;
  
  ImageFormIcon := TImage.Create(nil);
  try
    ImageFormIcon.Picture.Bitmap := bmp;
    
    bmpWork.Canvas.Draw(0, 0, ImageFormIcon.Picture.Graphic);
    X := bmp.Width - iamgeMark.Width - 2;
    Y := bmp.Height - iamgeMark.Height - 2;
    bmpWork.Canvas.Draw(X, Y, iamgeMark.Picture.Graphic);
    finally
      ImageFormIcon.Free;
    end;
    bmp.Assign(bmpWork);
  end;
"图片中加入图片的delphi代码"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12620.html


关键字:

关于《图片中加入图片的delphi代码》文章的评论

相关文章

    无相关信息
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td