Главная страница
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.012 c
4-40213
zhmax
2002-04-10 08:22
2002.06.13
Профессионалы ! Как грохнуть ПОТОК по его ID ?


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


1-40083
Demon Ltd
2002-06-03 00:07
2002.06.13
исключительные ситуации


1-40031
XAlert
2002-05-31 21:05
2002.06.13
16 разрядные DLL в Delphi 5/6 ?


3-39948
vopros
2002-05-21 14:15
2002.06.13
Опять запрос: