[ffjeroifjeo]

Делаю:

Код:

bmp := TBitmap.Create;
bmp.LoadFromFile('1.bmp'); // ч/б картинка с белым фоном
bmp..PixelFormat := pf1Bit;
bmp.SaveToFile('2.bmp'); // здесь фон у картинки красный!!!

MAD: пользуемся тегами.


вроде что-то с палитрой, как её изменить, чтобы у рисунка оставался фон белый ?

[@Rafa3L]

Сообщение от ffjeroifjeo

...вроде что-то с палитрой, как её изменить, чтобы у рисунка оставался фон белый ?

Код:

with TBitmap.Create do
 begin
  PixelFormat := pf1Bit;  // Устанавливаем глубину ДО загрузки картинки,
  LoadFromFile('1.bmp'); // ч/б картинка с белым фоном // потому что она цветная
  SaveToFile('2.bmp'); // здесь фон у картинки красный!!! 
  Free;
 end;

4250

[ffjeroifjeo]

Большое спасибо !!! Копал больше половины дня, чего только не пробовал, а оказывается нужно строчку перенести...

[@Rafa3L]

Сообщение от ffjeroifjeo

...чего только не пробовал, а оказывается нужно строчку перенести...

и ещё добавить Mask(clWhite)