Pintar una imagen por canal con Scanline
 

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.:confused:

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

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

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

Agradecimiento
 

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

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

PD: te aconsejo que no saques el cronometro :D

Saludos