Как создать эффект шума на форме?

← →
Intell © (2004-01-18 11:02) [0]

Как создать эффект шума на форме (Например: Когда в игре Silent Hill 2 тебя ранили, то там картинка жизней помигивает и на ней есть "шум")? Желательно кодом, или, если есть, компонентом.

← →
Dmyk (2004-01-18 12:42) [1]

Попробуй добавлять к каждой точке случайное число. Чё-то вроде этого...
var WrkBitmap: TBitmap; TmpColor: TColor; RNmb, I, J: Integer; begin for j := 0 to WrkBitmap.Height do for i := 0 to WrkBitmap.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;
Примерно вот так...

← →
Intell © (2004-01-18 14:29) [2]

Куда его желательно применить? На таймер?

← →
Intell © (2004-01-18 19:25) [3]

Никак не могу применить код. Ошибка в слове pixels.

2 Intell:

А своих знаний не хватает, чтобы вспомнить, что Pixels находится у TBitmap.Canvas? К тому же, если всё и получится, то тормоза тебе обеспечены.

Добавление шума тут:
http://delphibase.endimus.ru/?action=viewtopic&topic=mediaimg

Как создать эффект шума на форме? Найти похожие ветки