TImageList

← →
oleg__ (2006-03-07 15:14) [0]

Добрый день!
Проблема в следующем - есть общий набор изображений кнопок 24х24, хранящихся в ImageLis1. Требуется выборочно поместить несколько изображений в ImageList2. Делаю так:
var
bmp: TBitmap;
i: integer;
begin
for i:=0 to ... do
begin
bmp:=TBitmap.Create;
bmp.Height:=24;
bmp.Width:=24;
ImageList1.GetBitmap(i, bmp);
ImageList2.Add(bmp, nil);
end;
end;

Теперь, если подключить ImageList2 к ToolBar"у, то получаются изображения с белым фоном. Полагаю, дело в маске, но как это реализовать?

← →
oleg__ (2006-03-07 15:32) [1]

все, накопал:

for ii:=0 to High(Indexes) do
begin
bmp:=TBitmap.Create;
mask:=TBitmap.Create;
try
ARect:=Rect(0, 0, 24, 24);

bmp.Height:=24;
bmp.Width:=24;

mask.Height:=24;
mask.Width:=24;
mask.Monochrome:=true;
with Mask.Canvas do
begin
FillRect(ARect);
ImageList_Draw(imlAllImages.Handle, Indexes[ii], Handle, 0, 0, ILD_MASK);
end;

imlAllImages.GetBitmap(Indexes[ii], bmp);
Images.Add(bmp, mask);
finally
bmp.Free;
mask.Free;
end;

TImageList Найти похожие ветки