| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать эффект шума на форме? [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Intell © (2004-01-18 11:02:00)Как создать эффект шума на форме (Например: Когда в игре Silent Hill 2 тебя ранили, то там картинка жизней помигивает и на ней есть "шум")? Желательно кодом, или, если есть, компонентом.
Mihey (2004-01-18 19:33:00) [1]2 Intell:
А своих знаний не хватает, чтобы вспомнить, что Pixels находится у TBitmap.Canvas? К тому же, если всё и получится, то тормоза тебе обеспечены.
Добавление шума тут:
http://delphibase.endimus.ru/?action=viewtopic&topic=mediaimg
Intell (2004-01-18 19:25:00) [2]Никак не могу применить код. Ошибка в слове pixels.
Intell (2004-01-18 14:29:00) [3]Куда его желательно применить? На таймер?
Dmyk (2004-01-18 12:42:00) [4]Попробуй добавлять к каждой точке случайное число. Чё-то вроде этого...
var
WrkBitmap: TBitmap;
TmpColor: TColor;
RNmb, I, J: Integer;
begin
forj := 0 toWrkBitmap.Height do
fori := 0 toWrkBitmap.Width do begin
RNmb := Random(30) - 15;
TmpColor := WrkBitmap.Pixels[i, j]; //хех
WrkBitmap.Pixels[i, j] := RGB(GetRValue(TmpColor) + RNmb,
GetGValue(TmpColor) + RNmb, GetBValue(TmpColor) + RNmb);
end;
end;
Примерно вот так...
| |
