|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.02.2008, 23:55 | #1 |
Пользователь
Регистрация: 28.11.2007
Сообщений: 49
|
Альфа-канал
Вечер добрый, господа, программисты, возник вопрос: Имеется процедура которая назначает для определенного пикселя на битмапе32 определенный альфа-канал (устанавливает прозрачность пикселя). Как сделать чтобы битмап32 с установленными прозрачностями, перевести в черно белый и отобразить на нем прозрачные пикселы серым цветом.
procedure Tform_Test. FormCreate(Sender: TObject); begin DrawMode := dmBlend; CombineMode := cmBlend; end; procedure Tform_Test. btn_PixelClick(Sender: TObject); procedure SetPixelAlpha(X, Y: Integer; Alpha: Byte); var C: TColor32 begin with TBitmapLayerEx(iv_FIMG.Layers[0]) do begin C := Bitmap.Pixel[X, Y]; TColor32Entry(C).A := Alpha; Bitmap.Pixel[X, Y] := C; end; end; var i, j: Integer; begin for i := 0 to Width - 1 do for j := 0 to Height - 1 do SetPixelAlpha(i, j, trk_Fuzziness.Position); ImageView.Invalidate; end; |
28.02.2008, 15:33 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 183
|
Ответ
День добрый. Вот рабочий код. Всё работает отлично.
Код:
Until The End Of Time
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отрисовка PNG с альфа-каналом на десктопе | Whisper | Помощь студентам | 2 | 02.01.2008 19:24 |
GDI+ и альфа канал в Delphi for Win32 | murtix | Мультимедиа в Delphi | 2 | 06.10.2007 00:09 |