Ver Mensaje Individual
  #2  
Antiguo 08-09-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Hola,

yo personalmente y en tú caso no dispondría todas esas imágenes en el ejecutable, los sacaria del exe y los metería en una carpeta normal y corriente, usaría un TImage simple e iria pasando de imágen en imagen, para así sólo tener cargada una imágen a la vez.

Con respecto a lo del fade tengo ésta función pero sólo funciona si las imágenes son bitmap de 16 o 32 bits, no se si será tu caso, pero yo la dejo aquí por si a alguien le sirve.

Código Delphi [-]
procedure Apaga(const BMP:TImage; Pausa:integer);
var BytesPorScan, w, h, Pasadas : integer;
    p : pByteArray;
begin
  try  
    BytesPorScan := Abs(Integer(BMP.Picture.Bitmap.ScanLine[1]) - Integer(BMP.Picture.Bitmap.ScanLine[0]));
  except
    raise exception.create('Error');
  end;
  for Pasadas := 1 to 256 do begin   {Decrementamos las componentes RGB de cada pixel}
    for h := 0 to BMP.Picture.Bitmap.Height - 1 do begin
      P := BMP.Picture.Bitmap.ScanLine[h];
      for w := 0 to BytesPorScan - 1 do if P^[w] > 0 then P^[w] := P^[w] - 1;
    end;
    Sleep(Pausa);
    BMP.Refresh;
  end;
end;
También buscando por los trucos, he visto éste de seonae, un poco más complicado pero que puedes personalizar y sirve para muchos más formatos

Cambiar brillo y color de una imagen

Espero te sirva

Saludos
Responder Con Cita