2 replies to this topic

[sir.dev.a.lot]

[Truco Delphi] Invertir un Bitmap

delphi

function InvertBmp(SourceBmp:Tbitmap): TBitMap;
	var
	  i,j :longint;
	  tmp : TBitMap;
	  Red, Green, Blue: Byte;
	  PixelColor: Longint;
	begin
	  tmp := TBitmap.Create;
	  tmp.width := SourceBmp.width;
	  tmp.height := SourceBmp.height;
	  for i := 0 to SourceBmp.width-1 do
	  begin
	   for j := 0 to SourceBmp.height-1 do
	   begin
	    PixelColor := ColorToRGB(SourceBmp.Canvas.Pixels[i,j]);
	    Red := PixelColor;
	    Green := PixelColor shr 8;
	    Blue := PixelColor shr 16;
	    red := 255-red;
	    green := 255-green;
	    blue := 255-blue;
	    tmp.canvas.pixels[i,j] := (red shl 8+green) shl 8+blue;
	   end;
	 end;
	 Result := tmp;
	end;

Saludos!

[Delphius]

Más que "invertir" el término adecuado debiera ser obtener Negativo. Pero como puedes observar en mi código ni yo me pude resistir de añadir un comentario con esa palabra.

 

Con el método de Scanline[] te evitas lidiar con esos cálculos. Por ejemplo:

delphi

Image.Bitmap.PixelFormat := pf24bit;
  for j := 0 to Image.Bitmap.Height - 1 do
    begin
      PChannel := Image.Bitmap.ScanLine[j];
      for i := 0 to Image.Bitmap.Width - 1 do
        begin
          // por cada canal:
          for k := RED downto BLUE do
            // Invertimos el color
            PChannel^[k] := MAX_RGB - PChannel^[k];
          Inc(PChannel);
        end;
    end;

Siendo MAX_RGB una constante, y por supuesto teniendo el valor 255.

Nuevamente, aviso que esto fue diseñado en un D6 y con mi "mini framework" que comenté en el otro truco. Aunque muy posiblemente pueda portarse sin demasiados problemas a nuevas versiones de Delphi sin mayores complicaciones.

 

Saludos,

[cram]

Si, en realidad es un negativo Delphius. Pero eso es invertir una imagen.

Otras operaciones serían reflejar, girar, ampliar, reducir, sesgar, o cosas más complejas como aplicar efectos de transformación matricial.

Scanline en realidad es una forma de ver una fila, pero en definitiva es lo mismo, es como hacer un casting y luego meterse dentro de esa fila para recorrerla. Lo que cambiaría es eso de la resta por operaciones booleanas como

delphi

tmp.canvas.pixels[i,j]:= not tmp.canvas.pixels[i,j];

En fin... ¡hay tantas formas!

Saludos