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;