Kak zdzelac Karcinku Bolee Svetloj ( Tjomnoj )

[Erix]

Pomogite mozhalsto ...
Kak zdelac karcinku bolee svetloj ( tomnoj )...
Proboval vsjakimi "mazahistnimi" metodami - nifiga ne polu4ilosj
Gotov prinjac lubije ri6enija ( zhelacelno API )

Tolko ne nado s DC i.t.d...
Picture1 => Picture2

[Ennor]

Гы. А как еще можно работать с графикой средствами API, как не через hDC? Я таких способов не знаю...
Можно, конечно, втупую: у каждого пикселя брать RGB и прибавлять к каждому байту фиксированное число, 5, например. Но это долго и неэффективно. А готовых апишек я, признаться, не встречал - никогда не было необходимости писать собственный Фотошоп...

[Erix]

Ladno, davaite hocabi s hDC....
Zarenije spasibo ...

[Unknown Error]

Сначала нужно определить цвет точки:

Dim r as long, g as long, b as long, p as long

p = GetPixel(Picture1.hdc, x, y)

r = x And 255
g = (x And 65280) \ 256
b = (x And 16711680) \ 65535

r = r + 10 'осветление
g = g + 10 'осветление
b = b + 10 'осветление

r = r - 5 'затемнение
g = g - 5 'затемнение
b = b - 5 'затемнение

И рисуй эту точку:

SetPixel Picture1.hdc, x, y, RGB(r, g, b)

[Ariman]

Этот способ не верный. Я уже так накалывался.
Представь: у тебя пиксел (120,0,10).
После твоего "осветления" будет (130,10,20).
В составляющей GREEN появится 10, хотя было 0.
Это приведет к искажению цветов.

Здесь надо работать через параметр яркость. В различных книгах по компьютерной графике есть формула.

[Lobo]

Попробуй использовать бесплатную библиотеку ImageMagic