Bitmap.Monochrome
lazarus / 39-Graphics

----------------------------------------------------------------------
timurgepard · 2011-08-01 09:34

Good Day!

"image1.Picture.Bitmap.Monochrome:=true" doesn't work.

Picture stays without changes.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  try
  if OpenPictureDialog1.Execute
  then
   begin
    image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
    with image1 do
     begin
      Parent:=form1;
      Picture.Bitmap.Monochrome:=true;
     end;
   end;
 except ShowMessage('Неизвестная ошибка');
 end;
end;

----------------------------------------------------------------------
felipemdc · 2011-08-01 15:31

Monochrome is more to read information about the bitmap, not to modify
it into being monochrome...

To change a image to monochrome I'd use TLazIntfImage and then loop
through all pixels changing their color to the adequate grey tone. See
more details here:

http://wiki.lazarus.freepascal.org/Developing_with_Graphics#Conversion
_between_TLazIntfImage_and_TBitmap

----------------------------------------------------------------------
lainz · 2011-08-01 16:02

Use BGRABitmap.FilterGrayScale
http://wiki.lazarus.freepascal.org/BGRABitmap

----------------------------------------------------------------------
Marc · 2011-08-02 09:13

Quote from: timurgepard on August 01, 2011, 11:34:27 amGood Day!

"image1.Picture.Bitmap.Monochrome:=true" doesn't work.

pleae bugrep this. IMO it should convert the image to monochrome