Imagelist的问题 （在线等）(11分)

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #1

怎么从一个长BMP中分割到Imagelist中，用代码实现

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #2

事先将BMP写入一个.RES
装入图片资源
ImageList.ResourceLoad(rtBitmap, 'BM', clFuchsia);
或者从文件装入
ImageList.FileLoad(rtBitMap, 'FileName', clFuchsia);

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #3

BMP怎么写入一个.RES

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #4

试试看？
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap,ABitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('F:/1.bmp');
ABitmap := TBitmap.Create;
ABitmap.Canvas.StretchDraw(Rect(0,0,ImageList1.Width,ImageList1.Height),Bitmap);
ImageList1.Add(ABitmap,nil);
end;

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #5

BMP怎么写入一个.RES

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #6

BMP怎么写入一个.RES

 

J

jackchin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-17

• #7

用ImageEditor, 新建文件,类型是RES,选菜单Resource->New->Bitmap,
将你的图片粘贴到新建的Bitmap1,保存文件,就可以生成一个包含位图
资源的RES文件
在.pas文件中
{$R resfile.res} //resfile.res就是包含bitmap1的那个文件
//resfile名称不可以与工程项目的名称(.prj)相同
程序代码可以这样写:
ImageList1.ResourceLoad(rtBitmap, 'bitmap1', clFuchsia);
//clFuchsia 是Mask 颜色
用这种方法得到的Res文件只能有16色或256色的bitmap
如果用brcc32.exe 资源编译器可以得到各种规格的bitmap