Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1095399065
Павел
2004-09-17 09:31
2004.10.17
Выбрать из таблицы.....mssql


14-1096018770
Кукушкинд
2004-09-24 13:39
2004.10.17
Дайджесты форумов....


3-1095452204
BigError
2004-09-18 00:16
2004.10.17
Запуск двух MySQL под Windows XP.


4-1094886089
beatles_bntu
2004-09-11 11:01
2004.10.17
ani куросор из ресурса


14-1096304163
Capone
2004-09-27 20:56
2004.10.17
delphi 1