Скачать: CL | DM;

Перенос прямоугольной части GIF а в другой GIF   Найти похожие ветки 

← →
LLong ©   (2002-01-29 00:39) [0]

Приветствую!
Задавал я подобный вопрос где-то месяц-два назад, однако несколько изменилась суть. А решения найти, к сожалению, не могу.
Существует такая проблема: при попиксельном переносе изображения между GifImage"ми через Bitmap происходит грубое искажение цветов. Прямое присваивание палитр ситуацию не исправляет.
Используется TGifImage ver. 2.2

---

← →
LLong ©   (2002-01-29 13:37) [1]

Мастера, подскажите, пожалуйста! Почему происходит искажение цветовой таблицы? Используется TGifImage ver 2.2
Код такой:

Image1:=TGIFImage.Create;
Image2:=TGIFImage.Create;
Bitmap1:=TBitmap.Create;
Image2.Width:=x2-x1+1;
Image2.Height:=y2-y1+1;
Bitmap1.Width:=x2-x1+1;
Bitmap1.Height:=y2-y1+1;
SRect:=Rect(x1, y1, x2, y2);
DRect:=Rect(1, 1, x2-x1+1, y2-y1+1);
Image2.GlobalColorMap.Assign(Image1.GlobalColorMap);
Bitmap1.Palette:=Image1.GlobalColorMap.ExportPalette;
Image1.LoadFromFile(source);
Bitmap1.Canvas.CopyRect(DRect, Image1.Bitmap.Canvas, SRect);
Image2.Assign(Bitmap1);
Image2.SaveToFile(destination);
Image1.Free;
Image2.Free;
Bitmap1.Free;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c