hola amigos como puedo modificar este codigo que me quita el color rojo en una imagem para que me quite el color naranja
Código Delphi
[-]uses jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
bmp: TBitmap;
Count: Cardinal;
lpBuffer: PByte;
begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile('c:\windows\web\wallpaper\autumn.jpg');
bmp := TBitmap.Create;
bmp.Assign(jpg);
bmp.PixelFormat := pf24bit;
Count := bmp.Width * bmp.Height;
lpBuffer := PByte(Cardinal(bmp.ScanLine[bmp.Height - 1]) + 2);
while LongBool(Count) do begin
if lpBuffer^ > 64 then Dec(lpBuffer^, 64); Inc(lpBuffer, 3);
Dec(Count);
end;
Image2.Picture.Assign(bmp);
Image1.Picture.Assign(jpg);
bmp.Destroy;
jpg.Destroy;
end;
end.