Вниз
Скачать: CL | DM;

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

 
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]

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


 
lipskiy ©   (2004-09-27 23:30) [4]


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

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


 
Рыба ©   (2004-09-28 18:58) [5]

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



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

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



Память: 0.45 MB
Время: 0.023 c
1-1096637206
AntonSh
2004-10-01 17:26
2004.10.17
Функции


1-1097002162
Pers
2004-10-05 22:49
2004.10.17
WebBrowser


3-1095318686
Мирон
2004-09-16 11:11
2004.10.17
TClientDataSet не обновляет базу при добавлении новой записи


14-1095940887
_silver
2004-09-23 16:01
2004.10.17
Собрался жениться


3-1095420833
Ceval
2004-09-17 15:33
2004.10.17
как организовать фильтрацию по полям Character и Numeric




   Наверх