Показать сообщение отдельно
  #2  
Старый 16.07.2015, 08:02
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

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

4250
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием