{
把图像(BMPs or JPGs)添加到你的窗口(tForm):
- 点击附加组件上的image图标
- 然后把它加入到你的窗口中
- 双击它载入BMP 或 JPG 图像文件
- 属性''visible''设为false
- 写入源代码
- 调用CopyImageToBitmap创建所需的bitmap
}
uses SysUtils, Windows, Graphics, ExtCtrls, JPEG;
:
:
//*********************************************************
// 拷贝BMP或JPG图像为给定的位图
//---------------------------------------------------------
procedure CopyImageToBitmap (im: tImage; bm: tBitmap);
begin
if bm = nil
then begin
bm := tBitmap.Create;
bm.PixelFormat := pfDevice;
end;
bm.Width := im.Picture.Width;
bm.Height := im.Picture.Height;
if im.Picture.Graphic is tJPEGImage
then bm.Canvas.Draw (0,0, im.Picture.Graphic) // JPG
else bm.Canvas.Draw (0,0, im.Picture.Bitmap); // BMP
end;
// 示例
var texImage: tImage;
tileBm: tBitmap;
:
:
// image1 为插入的图像名称
texImage := image1;
tileBm := tBitmap.Create;
tileBm.PixelFormat := pfDevice;
CopyImageToBitmap (texImage, tileBm);
:
:
