Яркость в TBitmap

← →
Глупый юзер (2004-02-05 17:06) [0]

Доброго времени суток. Как увеличить/уменшить яркость TBitmap? Спасибо.

← →
Никто (2004-02-05 17:11) [1]

Варианты:
1. Найти готовые компоненты.
2. Пройтись по всем пикселам, и увеличить их яркость:
Pixel := RGB(round(GetRValue(Pixel) * Brightness), round(GetGValue(Pixel) * Brightness), round(GetBValue(Pixel) * Brightness));
Brightness - от 0 до 255 (действительные числа). Скорее всего, Brightness не больше 2-3. Необходимо дополнительно контролировать переполнение.

← →
real_dimedrol (2004-02-05 17:23) [2]

http://z-ol.chat.ru/graph.htm#T5

← →
[lamer]Barmaglot © (2004-02-05 17:26) [3]

Hash - code?

← →
Глупый юзер (2004-02-05 17:27) [4]

А где можно что-то почитать на эту тему?

← →
Глупый юзер (2004-02-05 17:29) [5]

2 real_dimedrol

Не видел твоего поста, когда писал [4]. Сорри.

← →
Fenik © (2004-02-05 18:13) [6]

На будущее: выбирай раздел правильно.

procedure InvertBitmap(Bitmap: TBitmap; Value: Integer);

function BLimit(A: Integer): Byte;
begin
if A < 0 then Result := 0
else if A > 255 then Result := 255
else Result := A;
end;

type TRGB = record
B, G, R: Byte;
end;
pRGB = ^TRGB;
var x, y: Integer;
Dest: pRGB;
begin
Bitmap.PixelFormat := pf24Bit;
for y := 0 to Bitmap.Height - 1 do begin
Dest := Bitmap.ScanLine[y];
for x := 0 to Bitmap.Width - 1 do begin
with Dest^ do begin
B := BLimit(B + Value);
G := BLimit(G + Value);
R := BLimit(R + Value);
end;
Inc(Dest);
end;
end;
end;

Value > 0 - увеличение яркости;
Value < 0 - уменьшение яркости.

Гы. Заголовок процедуры поменяй.. %))

← →
Глупый юзер (2004-02-05 19:01) [8]

2 Fenik

Cпасибо. И на будущее: не надо указывать мне, что мне делать. Без тебя разберусь.

>Глупый юзер (05.02.04 19:01) [8]
>Cпасибо. И на будущее: не надо указывать мне, что мне делать. Без тебя разберусь.

Не сомневаюсь.

Яркость в TBitmap Найти похожие ветки