Ё-маё! да что ж за фигня такая! ну подскажите же что неверно?

← →
lipskiy © (2004-09-27 22:43) [0]

Bmp:= TBitmap.Create; Bmp.PixelFormat:= pf32bit; Bmp.Transparent:= True; Bmp.TransparentColor:= clBlack; ImgTools.GetBitmap(24,Bmp); Bmp.Canvas.Brush.Color:= Color; Rect.Left:= 0; Rect.Top:= 12; Rect.Right:= 15; Rect.Bottom:= 15; Bmp.Canvas.FillRect(Rect); //ImgTools.ImageType:= itMask; //ImgTools.DrawingStyle:= dsTransparent; ImgTools.ReplaceMasked(24,Bmp,clBlack); //ImgTools.Replace(24,Bmp,nil); Bmp.Free;

Нужно нарисовать прямоугольник цвета Color на иконке 24 в TImageList (ImgTools).
Что бы я ни делал - фон иконки теряет прозрачность и становится белым.
Помогите!

← →
DiamondShark © (2004-09-27 23:08) [1]

А может её сначала залить чёрным?

← →
Рыба © (2004-09-27 23:20) [2]

>ImgTools.GetBitmap(24,Bmp);

А что это за цифра? Может 32 попробовать? :)

← →
Рыба © (2004-09-27 23:22) [3]

А понял, не то.. :))

> А может её сначала залить чёрным?

Чего залить черным?

Может дурацкая идея, но попробуй:
Bmp.Canvas.Pixels[0,0] := clBlack;

Ё-маё! да что ж за фигня такая! ну подскажите же что неверно? Найти похожие ветки