Pintar una imagen por canal con Scanline

[sionks]

Estoy realizando un proyecto el cual es sobre edicion de imagenes, y ahora se me ha presentado un problemita, el cual consiste en lo siguiente:

Estoy haciendo un recorrido de la imagen con scanline, y lo que deseo hacer es que cuando pulse un boton la imagen se ponga en tonalidades verdes, azules o rojas, es decir que solo pinte un canal por pixel.

[[seoane]]

Pues muy sencillo, pon los valores de los otros dos canales a cero. Ten en cuenta que destruías la información de esos canales por lo que sera bueno que guardes una copia del original.

Aquí un par de ejemplos:
http://www.clubdelphi.com/foros/show...75&postcount=2

[[cHackAll]]

Vaya amigo seoane veo que te has adelantado, sin embargo pongo una funcion mas rápida:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Count: Cardinal;
 Pixel: PCardinal;
begin
 Count := Image1.Picture.Width * Image1.Picture.Height;
 Image1.Picture.Bitmap.PixelFormat := pf32bit;
 with Image1.Picture.Bitmap do
  Pixel := ScanLine[Height - 1];
 while LongBool(Count) do
  begin
//   Pixel^ := Pixel^ and $FF0000; // Red
//   Pixel^ := Pixel^ and $00FF00; // Green
   Pixel^ := Pixel^ and $0000FF; // Blue
   Inc(Pixel);
   Dec(Count);
  end;
end;

Solo por que me daria pena desperdiciar el code.

Saludos

[[seoane]]

Empezado por cHackAll

Vaya amigo seoane veo que te has adelantado, sin embargo pongo una funcion mas rápida

No me hagas sacar el cronometro que la ultima vez que me dijeron eso termine escribiendo la función en ensamblador

[sionks]

Muchas Gracias, efectivamente los archivos qeu me has enviado me han sido de gran ayuda, nuevamente gracias

[[cHackAll]]

Empezado por seoane

No me hagas sacar el cronometro que la ultima vez que me dijeron eso termine escribiendo la función en ensamblador

Esto me suena a un desafío; realmente estas dispuesto a competir conmigo en assembler?

PD: te aconsejo que no saques el cronometro

Saludos