Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 08-09-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Poder: 24
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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cargar 10 imagenes y utilizarlas Alexander Gráficos 1 05-09-2006 22:06:17
cargar imagenes con FastReports Josemarg Impresión 0 21-07-2006 13:31:17
Cargar multiples imágenes dicatek Gráficos 6 09-07-2006 21:55:27
Cargar imagenes ramonibk Gráficos 7 26-07-2004 16:12:35
Puedo copiar unas cuantas secciones?? DarkByte Varios 2 06-01-2004 22:42:21


La franja horaria es GMT +2. Ahora son las 10:34:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi