Тема: JPG to TGA
Показать сообщение отдельно
  #6  
Старый 26.05.2018, 22:07
Tech N9ne Tech N9ne вне форума
Прохожий
 
Регистрация: 18.05.2018
Сообщения: 31
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Загружаю в image1 картинку.
вырезаю кусок изображения, вставляю его в image2 и сохраняю в файл. Всё нормально проходит. Вырезанное изображение выглядит как должно.

Пробую сделать тоже самое.
всё сохраняется, с форматом каким мне надо (TGA), но криво вырезается картинка.
Код:
var
  Target: TTargaGraphic;
{...}
          Target := TTargaGraphic.Create;
          Target.PixelFormat := pf24Bit;
          Target.Width := 256;
          Target.Height := 256;
          Target.Canvas.Draw(0, 0, Img1.Picture.Graphic);
           Target.SaveToFile('путь сохранения');
          Target.Free;

после сохранения получаю файл TGA с кривым содержимым
А должно быть так

Вот еще пример


Очень нужна возможность вырезать часть из Image в Target, и сохранить успешно
помогите, что не так делаю ???
Ответить с цитированием