繁体中文
设为首页
加入收藏
当前位置:程序开发首页 >> Delphi >> OTA:向Image List里添加图片[D5]

OTA:向Image List里添加图片[D5]

2007-12-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:使用Image Editor来创建一幅包含一个16X16的图片资源的资源文件。然后将下列代码添加到你的向导代码中: constructor MyWizard.Create; var Services: INTAServices; Bmp: TBitmap; ImageIndex: Integer; begin ...
关键字:图片 Image List OTA

使用Image Editor来创建一幅包含一个16X16的图片资源的资源文件。然后将下列代码添加到你的向导代码中:

constructor MyWizard.Create;

var

Services: INTAServices;

Bmp: TBitmap;

ImageIndex: Integer;

begin

inherited;

Supports(BorlandIDEServices, INTAServices, Services);

{ Add an image to the image list. }

Bmp := TBitmap.Create;

Bmp.LoadFromResourceName(HInstance, ´Bitmap1´);

ImageIndex := Services.AddMasked(Bmp, Bmp.TransparentColor,

´Tempest Software.intro wizard image´);

Bmp.Free;

end;

确定装载时采用的是你在资源文件中确定的名称或者ID。你可以选择图片的背景颜色。如你不你想指定背景颜色,选择一个不可能出现在图片中的颜色。

责任编辑:admin
相关文章