Как uTorrent обрабатывает картинку для toolBar-а

[DomiNick]

не знаю что там у вас 7-я версия не может, но 32bit иконки как в TImage, так и в тулбарах отображаются нормально.

В Делфи 7 не нормально отображаются...
В TImage рисуются так если бы полупрозрачное изображение наложили на чёрный фон...
В тулбарах так же, плюс ещё не красиво обрезается контур...

там в наборе есть TsAlphaImageList

Попробовал... Если в sAlphaImageList1.BkColor поставить в "Инспекторе Объктов" цвет clBtnFace, то он его сам на что-то меняет сразу и вроде нормально получается, но при изменении темы оформления всё равно такая же фигня...

[Kotofff]

Из пушки по воробьям. pngimage - маленький и быстрый

ну по крайней мере работает куда корректнее ...

ИМХО

Если в sAlphaImageList1.BkColor поставить в "Инспекторе Объктов" цвет clBtnFace

а зачем так делаешь ?

[DomiNick]

Как зачем? Иначе выглядит точно как с обычным ImageList1.....

[Alex Cones]

В Делфи 7 не нормально отображаются...

Попробовал прогнать в семерке - ноль-эффект.
Зачем тогда в борланде написали это:?

TColor as a specific 4-byte hexadecimal number

the low three bytes represent RGB color intensities for blue, green, and red

Текст с хелпа семерки (в тройке такой же, слово в слово).
Смысл был делать четвертый байт еще во времена царя гороха, если он не работает?

[JTG]

Смысл был делать четвертый байт еще во времена царя гороха, если он не работает?

Ну нет типа данных "трёхбайтное целое" блин!

[Alex Cones]

Аааа! Ну да, TColor и Integer полностью совместимы! Забыл, млин! Дико извиняюсь.

[mutabor]

Кто использует Delphi7 и хочет иконки на тулбар или в TImage с альфаканалом, используйте 32 битные иконки в формате ico. Или PNGImage подключите к проекту, и тогда png можно будет использовать.

[Altera]

У меня Delphi 2009
Написал

procedure Tmain_form.Button1Click(Sender: TObject);
var
b: tBitmap;
begin
   b := tBitmap.Create;
   b.LoadFromFile('C:\Documents and Settings\Admin\Application Data\uTorrent\toolbar.bmp');
   b.PixelFormat := pf32bit;
   b.Transparent := true;
   canvas.Draw(10, 100, b);
   b.Free;
end;

У меня то есть компонентус для работы с PNG типа PNG-кнопка. Но он недокомпиленный какой-то. Я и так целую кучу свойств внего дописал по нужде и то там ещё целой кучи не хватает...

и нема. Чёрт бы всех побрал. 21-й век на дворе. А ведь какой кайф был-бы просто если в самом старшем байте прозрачность указывать и она при прорисовке на канве (любым методом) учитывалась бы. Я щас toolBar тоже сделал. Плавающие панели в стиле MSWord, диил что далеко ходить, самой Delphi 2009. А они видишь ли только битмапы едят и то из imageList.
Надо бы ещё CopyRect с png попробовать.

[mutabor]

procedure Tmain_form.Button1Click(Sender: TObject);
var
b: tBitmap;
begin
   b := tBitmap.Create;
   b.LoadFromFile('C:\Documents and Settings\Admin\Application Data\uTorrent\toolbar.bmp');
   b.PixelFormat := pf32bit;
   b.Transparent := true; //ну и на какой предмет это нужно?
   //Transparent - это прозрачность по маске, обычная, не альфа
   canvas.Draw(10, 100, b); //неа, не получится так
   b.Free;
end;

Если бы программа работала не под ХР а под какой-то супер-пупер-красиво-навороченной ОС, тогда может и можно было на канве рисовать с альфа каналом, а пока - нет.

[DomiNick]

Ну в TImage полупрозрачные иконки работают (только как-то криво загружет картинки больше 255х255), а вот в ToolBar'е как раз-таки не получается... =)

Сообщение от Altera

...

Ну я же уже писал > пример < ...