Oscurecer y aclarecer pantalla

[turminator]

Muchas gracias por la función que me pusistes. Ahora tendré k ver como integrar toda la función dentro de un proyecto nuevo y haber que tal me va.
Ahora empiezo a estudiar para la Selectividad así que supongo que hasta pasado el 25 de Junio no probaré de programar. De todos modos me da la sensación de que me va a ayudar.

Gracias seoane y Sick Boy y Dec.

PD: He encargado un libro de primeros pasos con Delphi.

[turminator]

Muchas gracias de nuevo Seoane de nuevo. Ahora ya he conseguido ver tu ejemplo y me va de MARAVILLA . Lo que he estado probando es de como puedo hacer ahora otro timer que permite aclarecer la imagen hasta su nivel normal. Es decir, primero se me oscurece hasta X y luego vuelve a aclarecerme a partir de X hasta su iluminación normal.

Saludos y muchas gracias.

[[seoane]]

En este truco explico como cambiar el color y el brillo de una imagen, la misma funcion nos sirve para aumentar y disminuir el brillo. Pero hay que tener en cuenta, que al aumentar el brillo en algunos puntos la imagen puede saturarse o al oscurecerse quedarse totalmente negra. Asi que si repetimos el proceso de oscurecer - aclarar varias veces la imagen puede terminar degradandose un poco. Podria resultarte mejor cargar el original en un bitmap y dibujarlo con distintos valores de brillo, pero ya depende de lo que quieras hacer tu.

[turminator]

Mi intención era oscurecer y aclarecerla una vez solamente. El truco que he probado tuyo, me sal el siguiente error cuando compilo: Expected ':'but'=' found.

Que he echo mal?

[[seoane]]

¿En que linea te da ese error? parece que falta un ';' en algun sitio. Se debio de perder al copiar y pegar

[turminator]

El error me lo da a esta linea 11:10

Triple = array[1..3]of Byte;

Pero no le veo nada raro.

Será que debo de meter algo primero al form?

Muchas gracias.

[[seoane]]

No deberia de dar ningun error. Lo estas colocando debajo de un Type ??? es decir, lo estas colocando asi:

Código Delphi [-]
type
  Triple = array[1..3]of Byte;

[[kuan-yiu]]

Empezado por turminator

El error me lo da a esta linea 11:10

Triple = array[1..3]of Byte;

Pero no le veo nada raro.

Será que debo de meter algo primero al form?

Muchas gracias.

¿Que pone exactamente en la línea anterior?