Форум: "Media";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Вниз
Перенос прямоугольной части 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 вся ветка
Форум: "Media";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
