Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.13;
Скачать: 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 вся ветка

Текущий архив: 2002.06.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
1-40071
Hopsit
2002-06-02 14:42
2002.06.13
Сохранение Word документа из Delphi


1-40013
Sasha_b
2002-05-20 11:41
2002.06.13
Перенос cлов в StatusBar


14-40186
Дремучий
2002-05-07 22:28
2002.06.13
cat


1-40068
Dinara
2002-06-02 11:03
2002.06.13
Открывалка по умолчанию


1-40102
maxim2
2002-06-03 10:13
2002.06.13
Как выключить и перезагрузить комп из проги