5,931
社区成员
发帖
与我相关
我的任务
分享如何实现ImageList中的所有Images输出到同一个bmp文件中，就象Delphi的ImageList Editor一样。
在用Delphi进行设计时，ImageList Editor是Delphi做的另外的程序，与imagelist本身无关，我不知如何实现其Export功能，就是将所有图标保存到同一个BMP文件中。
...全文
请发表友善的回复…
发表回复
Nicky_he 2000-10-31
- 打赏
- 举报
1st:
Create bmp:Tbitmap;
for i:=0 to imagelist.items.count do
begin
...
FillRect(...);
...
end;
OK?
Create bmp:Tbitmap;
for i:=0 to imagelist.items.count do
begin
...
FillRect(...);
...
end;
OK?
zengyufeng 2000-10-31
- 打赏
- 举报
procedure SaveImageListToBmp(AImageList: TImageList; ABitmap: TBitmap);
const
Spacing = 5;
var
i: integer;
FBitmap: TBitmap;
begin
FBitmap := TBitmap.Create;
try
ABitmap.Width := AImageList.Count * (AImageList.Width + Spacing);
ABitmap.Height := AImageList.Height;
for i := 0 to AImageList.Count - 1 do
begin
AImageList.GetBitmap(i, FBitmap);
ABitmap.Canvas.Draw(i * (AImageList.Width + Spacing), 0, FBitmap);
end;
finally
FBitmap.Free;
end;
end;
const
Spacing = 5;
var
i: integer;
FBitmap: TBitmap;
begin
FBitmap := TBitmap.Create;
try
ABitmap.Width := AImageList.Count * (AImageList.Width + Spacing);
ABitmap.Height := AImageList.Height;
for i := 0 to AImageList.Count - 1 do
begin
AImageList.GetBitmap(i, FBitmap);
ABitmap.Canvas.Draw(i * (AImageList.Width + Spacing), 0, FBitmap);
end;
finally
FBitmap.Free;
end;
end;
