Oscurecer y aclarecer pantalla

[[seoane]]

Bien, lo que quieres es que una imagen contenida en un TImage, por ejemplo, se vaya oscureciendo. Eso es sencillo, aqui te dejo una funcion que oscurece la imagen de un TImage, el parametro brillo indica cuanto se debe de oscurecer la imagen: 256 para no oscurecer nada y 0 para el negro.

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

// Realiza la operacion (b * x) / 256
function Multiplicar(b: Byte; x: Integer): byte;
begin
  x:= (x * b);
  x:= x shr 8;
  if x > 255 then Result:= 255
    else Result:= x;
end;

procedure OscurecerTImage(Imagen: TImage; Brillo: Integer);
var
  Bitmap: TBitmap;
  P: ^Triple;
  i, j: Integer;
begin
  // Si no es un bitmap, lo convertimos en un bitmap
  if not (Imagen.Picture.Graphic is TBitmap) then
  begin
    Bitmap:= TBitmap.Create;
    try
      Bitmap.Assign(Imagen.Picture.Graphic);
      Imagen.Picture.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  end;
  Imagen.Picture.Bitmap.PixelFormat:= pf24bit;
  for j:= 0 to Imagen.Picture.Bitmap.Height - 1 do
  begin
    P:= Imagen.Picture.Bitmap.ScanLine[j];
    for i:= 0 to Imagen.Picture.Bitmap.Width - 1 do
    begin
      P^[1]:= Multiplicar(P^[1],Brillo);
      P^[2]:= Multiplicar(P^[2],Brillo);
      P^[3]:= Multiplicar(P^[3],Brillo);
      inc(P);
    end;
  end;
  Imagen.Refresh;
end;

Si te fijas al principio de la funcion compruebo si la imagen que tiene cargada el TImage es un Bitmap y si no lo es convierto la imagen, para poder trabajar con ella. Esto solo pasa la primera vez que se llama la funcion el resto de las veces ya es un bitmap

Ahora solo nos queda hacer la animacion para eso podemos usar por ejemplo un timer y oscurecer solo un poquito la animacion de cada vez, algo asi:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  OscurecerTImage(Image1,250);
end;

Espero que te sirva, aunque si sigues queriendo utilizar ese componente que encontraste echale un vistazo a como paso un formato cualquiera a bitmap, es lo mismo para un JPEG.