Перенос прямоугольной части GIF а в другой GIF [D5, Win2k]
LLong © (2002-01-29 00:39:00)
Приветствую!
Задавал я подобный вопрос где-то месяц-два назад, однако
несколько изменилась суть. А решения найти, к сожалению, не могу.
Существует такая проблема: при попиксельном переносе
изображения между GifImage"ми через Bitmap происходит грубое
искажение цветов. Прямое присваивание палитр ситуацию не
исправляет.
Используется TGifImage ver. 2.2
LLong (2002-01-29 13:37:00) [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;
Наверх 
ЧАТ |
Орешник |
|
