Перенос прямоугольной части 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;

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