2 respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Atenuar / No Atenuar una Imagen.

 

Declaracion de Tipos

delphi

type
	  PRGBTripleArray = ^TRGBTripleArray;
	  TRGBTripleArray = array[0..32767] of TRGBTriple;

delphi

//Atenuar
procedure FadeIn(ImageFileName: TFileName);
	var
	  Bitmap, BaseBitmap: TBitmap;
	  Row, BaseRow: PRGBTripleArray;
	  x, y, step: integer;
	begin
 
	  Bitmap := TBitmap.Create;
	  try
	    Bitmap.PixelFormat := pf32bit;  
	    Bitmap.LoadFromFile(ImageFileName);
	    BaseBitmap := TBitmap.Create;
	    try
	      BaseBitmap.PixelFormat := pf32bit;
	      BaseBitmap.Assign(Bitmap);
 
	      for step := 0 to 32 do
	      begin
	        for y := 0 to (Bitmap.Height - 1) do
	        begin
	          BaseRow := BaseBitmap.Scanline[y];
 
	          Row := Bitmap.Scanline[y];
 
	          for x := 0 to (Bitmap.Width - 1) do
	          begin
	            Row[x].rgbtRed := (step * BaseRow[x].rgbtRed) shr 5;
	            Row[x].rgbtGreen := (step * BaseRow[x].rgbtGreen) shr 5;
	            Row[x].rgbtBlue := (step * BaseRow[x].rgbtBlue) shr 5;
	          end;
	        end;
	        Form1.Canvas.Draw(0, 0, Bitmap);   
	        InvalidateRect(Form1.Handle, nil, False);
 
	        RedrawWindow(Form1.Handle, nil, 0, RDW_UPDATENOW);
	      end;
	    finally
	      BaseBitmap.Free;
	    end;
	  finally
	    Bitmap.Free;
	  end;
	end;
 
	//No Atenuar
	procedure FadeOut(ImageFileName: TFileName);
	var
	  Bitmap, BaseBitmap: TBitmap;
	  Row, BaseRow: PRGBTripleArray;
	  x, y, step: integer;
	begin
 
	  Bitmap := TBitmap.Create;
	  try
	    Bitmap.PixelFormat := pf32bit; 
	    Bitmap.LoadFromFile(ImageFileName);
	    BaseBitmap := TBitmap.Create;
	    try
	      BaseBitmap.PixelFormat := pf32bit;
	      BaseBitmap.Assign(Bitmap);
 
	     for step := 32 downto 0 do
	      begin
	        for y := 0 to (Bitmap.Height - 1) do
	        begin
	          BaseRow := BaseBitmap.Scanline[y];
 
	          Row := Bitmap.Scanline[y];
 
	          for x := 0 to (Bitmap.Width - 1) do
	          begin
	            Row[x].rgbtRed := (step * BaseRow[x].rgbtRed) shr 5;
	            Row[x].rgbtGreen := (step * BaseRow[x].rgbtGreen) shr 5; 
	            Row[x].rgbtBlue := (step * BaseRow[x].rgbtBlue) shr 5;
	          end;
	        end;
	        Form1.Canvas.Draw(0, 0, Bitmap);   
	        InvalidateRect(Form1.Handle, nil, False);
 
	        RedrawWindow(Form1.Handle, nil, 0, RDW_UPDATENOW);
	      end;
	    finally
	      BaseBitmap.Free;
	    end;
	  finally
	    Bitmap.Free;
	  end;
	end;

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  FadeIn('C:\TestImage.bmp')
	end;

Saludos!

[Delphius]

¿El número 32 de donde sale? ¿Podría ser 16 por ejemplo?
Si no es mucha molestia ¿podrías subir unas imágenes donde se vean los efectos con el y sin el?

Aún no descargué la Starter para probar

Saludos

[escafandra]

Parte 4: Suavizando el cambio de imágenes.

 

Saludos.