Delphi TBitMap 位图组件


本文整理自网络,侵删。

 位图组件(TBitMap)TBitMap组件不存在组件板,它封装了Windows的HBITMAP句柄和HPALETTE句柄,用于操纵位图和调色板。 
TBitMap对象支持从文件、剪贴板、流中存取位图。

1.TBitMap组件的典型用法

TBitMap组件在应用之前,首先要对此类型定义一个变量,然后就可以对组件进行操作了。以下代码就是一个TBitMap组件建立、应用、释放的全过程,功能是读取一个位图文件,然后将图绘制到Form1窗体上。
var
BMP:TBitMap;
begin
BMP:=TBitMap.Create;
BMP.LoadFromFile(’C:\Windows\Soap Bubbles.bmp’);
Form1.Canvas.Draw(50,50,BMP);
BMP.Free;
end;

2.TBitMap组件的重要属性

Canvas-------------位图从这个画布上输出
Empty--------------此属性用于判断位图是否为空
Handle-------------此属性返回位图的句柄
HandleType---------位图如果是设备无关的,此属性返回bmDIB,如果位图是依赖于设备的,此属性返回bmDDB
Height-------------此属性用于设置位图的高度
Width--------------此属性用于设置位图的宽度
Monochrome---------位图是单色还是彩色
PixelFormat--------此属性用于设置位图的内存格式和颜色深度
TransparentColor---此属性用于设置或返回把位图显示成透明的颜色
Transparent--------此属性决定是否把
TransparentColor---属性设置的颜色透明显示

(1)Empty属性
此属性用于判断位图是否为空。
Empty属性是一个布尔型,如果位图为空则返回True值,否则返回False值。

(2)Height属性和Width属性
这两个属性分别用于设置位图的高度和宽度。这两个属性必须在TBitMap组件调入图片后进行设置才能起到限定大小的作用。

(3)Monochrome属性
此属性决定位图是单色还是彩色。
TBitMap组件调入图片后,将Monochrome属性设置为True后,只要图像中的颜色不是白色的地方都将变成黑色,如果再将Monochrome属性设置为False,图像也不能还原成以前的彩色图像了。

(4)PixelFormat属性
此属性用于设置位图的内存格式和颜色深度。设定了如下9个用户可选值。
. pfDevice:与设备有关。
. pf1bit:1bit颜色。
. pf4bit:4bit颜色。
. pf8bit:8bit颜色。
. pf15bit:15bit颜色。
. pf16bit:16bit颜色。
. pf24bit:24bit颜色。
. pf32bit:32bit颜色。
. pfCustom:定制颜色。

(5)TransparentColor属性
此属性用于设置图像可以透明的颜色。例如要将图像中的黑色部分以透明方式显示,那么TransparentColor属性就可以赋值为clBlack,并将Transparent属性设置为True。

3.TBitMap组件的重要方法

Asign--------------------此方法将其他格式的图像转换为位图格式
Create-------------------此方法将建立一个新的TBitMap对象
Free---------------------此方法释放TBitMap组件
FreeImage----------------此方法能够减少位图占用的内存
LoadFromClipFormat-------此方法用于从剪贴板中获取一个位图
Mask---------------------此方法可以把位图变成单色的
SaveToClipboardFormat----此方法用于把一个位图保存到剪贴板

(1)Asign方法
此方法用于转换图像格式的。例如将TImage组件调入一个BMP格式的的图像,可以利用Assign方法将TImage组件的图像传递给TBitMap变量,整个过程如下:
var
BMP:TBitMap;
begin
BMP:=TBitMap.Create;
BMP.Assign(Image1.Picture.Bitmap);//对BMP进行操作
BMP.Free;

(2)Create方法
此方法是用来创建一个新的TBitMap对象的。其方法是首先声明一个TBitMap变量,然后利用Create方法建立,实例参见Asign方法中代码的前4行。

(3)Free方法
此方法用来释放TBitMap组件。程序运行时建立TBitMap组件后会占用一定的内存,如果在使用完TBitMap组件后不利用Free方法释放,这个TBitMap组件会常驻内存,直到程序运行结束,所以提倡在用完此组件后用Free方法释放它占用的内存。实例及格式参见Asign方法中代码的后数第2行。

(4)FreeImage方法
此方法能够减少位图占用的内存。TBitMap组件在调入图像后,可以利用此方法减少内存的占用,以后还可以继续使用TBitMap组件内的图像。

(5)LoadFromFile方法
此方法可以在运行时动态地调入扩展名应为.bmp的图像文件。其语法格式为:
BitMap.LoadFromFile('FileName');

(6)Mask方法
此方法可以把位图变成单色的。
Mask方法中包含一个TColor类型的参数TransparentColor,此参数是用来指定可以透明显示的颜色。除TransparentColor参数指定的颜色,其余的都将变成黑色。

(7)SaveToFile方法
此方法可以将TBitMap组件变量中的图像内容保存为BMP格式,其语法格式为:
BitMap.SaveToFile('FileName');

相关阅读 >>

Delphi timage保存图片到stream及从stream中取图片

Delphi 根据磁盘盘符获取简单的硬盘编号

Delphi listview排序

Delphi ipnumberipv4

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi 让"显示桌面"功能对你的窗口无效

Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript

Delphi写的服务程序在服务管理器中显示“描述”

Delphi中url的汉字编码

Delphi字符串隐藏

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...