Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.97 c