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

[spamer]

Народ, может вопрос Вам покажется странным, но объясните пожалуйста, что такое альфа канал и изображение с альфа эффектом.
Читал в инете, но там как то тяжело написано. Объясните это как то по проще.

[JTG]

Вверху изображение, внизу альфа-канал.
Чёрный цвет - прозрачность 100%, белый - 0%

24-битное изображение содержит 3 канала по 8 бит (красный/зелёный/синий)
32-битное - 4 канала по 8 бит (красный/зелёный/синий + прозрачность)

[DomiNick]

объясните пожалуйста, что такое альфа канал и изображение с альфа эффектом

Просто полупрозрачная картинка...

[Altera]

Точно, как кайфово...
Смущает только, что на исходной картинке полно всякого "мусора" (
Ну а в Delphi то как это реализовать? Как обработать картинку с альфа каналом?

2spamer. Alpha канал - это значение, которое характеризует прозрачность пикселя при прорисовке.

//А чё собственно PNG сложнее? Из-за того, что там сжатие?

[Alex Cones]

Ну а в Delphi то как это реализовать? Как обработать картинку с альфа каналом?

Помните у меня была загвоздка, изображение сохранялось 32-х битным. Так вот, если сохранять Image1.Picture.SaveToFile, то сохраняется 32 бита. В Timage используются следующая маска цветов: Tcolor:=$PPBBGGRR, где PP - прозрачность, BBGGRR- цвет.

[Altera]

Вот написал

procedure Tmain_form.FormPaint(Sender: TObject);
begin
   canvas.Brush.Color := $00FFCC10;
   canvas.FillRect(rect(10, 10, 100, 100));
   canvas.Brush.Color := $44DDDD10;
   canvas.FillRect(rect(50, 50, 140, 140));
end;

И ничего не получается:

[DomiNick]

Сомневаюсь что обычный TImage из Делфи 7 способен нормально выводить 32-хбитные изображения...
Я обычно делаю Win32API функцией Windows.AlphaBlend...

Недавно что-то похожее писал... С цитатой...

Пример:

Var bf: BLENDFUNCTION; Bitmap: TBitmap;

...

Procedure PremultAlpha(b: TBitmap);
Var i: Integer; q: PRGBQuad;
Begin
q:=b.Scanline[b.Height-1];
For i:=0 To b.Height*b.Width-1 Do
      Begin
      q.rgbBlue:=q.rgbBlue*q.rgbReserved shr 8;
      q.rgbGreen:=q.rgbGreen*q.rgbReserved shr 8;
      q.rgbRed:=q.rgbRed*q.rgbReserved shr 8;
      Inc(q);
      End;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
bf.BlendOp:=AC_SRC_OVER;
bf.BlendFlags:=0;
bf.AlphaFormat:=AC_SRC_ALPHA;
bf.SourceConstantAlpha:=255;
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile('C:\Picture_32bit.bmp'); // 32-хбитное изображение
PremultAlpha(Bitmap);
End;

procedure TForm1.FormPaint(Sender: TObject);
begin
Windows.AlphaBlend(Form1.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, bf);
end;

А так можно просто переделать картинку в 24-битный jpg, например...

[mutabor]

Ребята, что-то вас в сторону занесло

Возвращаемся в тулбару аля юТоррент с картинками из 32 битного битмапа. Почему так? Да потому что художества в Дельфи, и иконки на тулбаре это несколько разные вещи. Поговорим про иконки. Во первых насчет версии Дельфи, не знаю что там у вас 7-я версия не может, но 32bit иконки как в TImage, так и в тулбарах отображаются нормально. Однако, все что я скажу дальше, относится к 2009-й Дельфи, хотя может работать и в седьмой, не проверял, оставляю это вам.

А теперь, о том, как сделать такой тулбар. Идем в пост №7 этой темы, и выполняем все что там написано. Тулбар с 12 кнопками понятное дело уже должен быть на форме. Имиджлист также на форме, пустой.

Вот код:

procedure TForm1.FormCreate(Sender: TObject);
var
  buf, tmp: TBitmap;
  i: integer;
begin
  ImageList1.Width:=24;
  ImageList1.Height:=24;
  ImageList1.ColorDepth:=cd32bit;

  buf:=TBitmap.Create;
  buf.LoadFromFile('e13f6924a9da.bmp');
  tmp:=TBitmap.Create;
  tmp.Width:=24;
  tmp.Height:=24;
  tmp.PixelFormat:=pf32bit;

  for i:=0 to 11 do begin
    tmp.Canvas.CopyRect(Rect(0, 0, 24, 24), buf.Canvas,
      Rect(i*24, 0, (i+1)*24, 24));
    ImageList1.Add(tmp, nil);
  end;

  tmp.Free;
  buf.Free;
  ToolBar1.Images:=ImageList1;
end;

[Kotofff]

Коллеги, еще как вариант можно использовать набор AlphaSkins (стоп! я не говорю,что нужно включать скинирование формы!).
Просто там в наборе есть TsAlphaImageList с помощью которого PNG, например, прекрасно отображается хоть где - и в Image и в SpeedButton и во всем остальном.

[JTG]

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