добавление BitMap в ImageList

← →
webpauk (2006-12-14 14:54) [0]

procedure TFormOptions.AddImagesToIL(Active: Integer); var fBmp: TBitmap; fI: Integer; begin fBmp:=TBitmap.Create; fBmp.Width:=ImageList2.Width; fBmp.Height:=ImageList2.Height; fBmp.Transparent:=True; ImageList1.Clear; for fI := 0 to 3 do begin fBmp.Canvas.FillRect(fBmp.Canvas.ClipRect); if Active=fI then ImageList2.GetBitmap(fI, fBmp) else ImageList3.GetBitmap(fI, fBmp); ImageList1.Add(fBmp, nil); end; fBmp.Free; end;

таким вот образом заполняется ImageList1 Bitmapами. Проблема в том, что при ToolBar1.Images=ImageList1 на кнопках рисунок не Transparent. В чем может быть проблема?

← →
clickmaker © (2006-12-14 15:03) [1]

> fBmp.Canvas.FillRect(fBmp.Canvas.ClipRect);
>
> if Active=fI then ImageList2.GetBitmap(fI, fBmp) else
> ImageList3.GetBitmap(fI, fBmp);

смысл рисовать на fBmp, если ты все равно его получаешь из имидж листов?

← →
webpauk (2006-12-14 15:14) [2]

> clickmaker © (14.12.06 15:03) [1]

а где я рисую?
fBmp.Canvas.FillRect(fBmp.Canvas.ClipRect); - всего лишь очистка Canvas

все одно GetBitmap все затрет
fBmp.Transparent := true;
fBmp.TransparentColor := ...
после GetBitmap

добавление BitMap в ImageList Найти похожие ветки