Показать сообщение отдельно
  #4  
Старый 09.04.2024, 19:39
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,023
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, наверное, можно.
Просто выкидывается вся работа с файлом, а строки 69-75 поменять на использование ScanLine. Через ScanLine получается доступ к триплетам (RGB) битмапа.
Ответить с цитированием