Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

jedi&gif   Найти похожие ветки 

 
TUser   (2003-12-01 16:16) [0]

Знаю, что в RxLib можно работать с GIF картинками. По идее в JEDI тоже должен быть какой-нибудь компонент типа JvGIFImage. Кто знает, - подскажите, на какой он закладке лежит и как его точно зовут.


 
Ru   (2003-12-01 17:22) [1]

JvControls > JvGifAnimator


 
TUser   (2003-12-03 05:44) [2]

За GifAnimator спасибо большое. Нужная вещь. Я рядом с ним покопал - накопал для себя неплохой класс TJvGIFImage для хранения GIF-картинок. Собственно - то, что надо. Но у него отказывается работать метод SaveToFile. Выглядит, вроде, как вполне обычный метод, аналогичный таковому у TBitMap и иже с ним. Но в файл записывает не мою картинку, а какую-то лажу. При этом в GIFAnimator"е все отображается корректно. Для теста использовал такой код:

var
Form1: TForm1;
g:TJvGIFImage;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var b:TBitMap;
begin
if opendialog1.Execute then begin

b:=TBitMap.Create;
b.LoadFromFile(opendialog1.FileName);
g.AddFrame(b);
image1.Picture.Bitmap:=g.Frames[0].Bitmap;
b.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if colordialog1.Execute then begin
g.Frames[0].TransparentColor:=colordialog1.Color;
jvGIFAnimator1.Image:=g;
g.DecodeAllFrames;
g.SaveToFile("c:\giffile.gif");
end;
end;

begin
g:=TjvGIFImage.Create;
end.


 
TUser   (2003-12-03 11:00) [3]

Кто-нибудь юзал JEDI/Rx?


 
Ru   (2003-12-03 11:23) [4]

>TUser © (03.12.03 11:00) [3]

я постоянно его использую, только не этот компонент


 
Amoeba   (2003-12-03 12:31) [5]

Посмотри библиотеку GraphicEx (бесплатно с исходниками):
http://www.delphi-gems.com/Graphics.php



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
1-36633
hooky-mars
2003-11-30 14:20
2003.12.12
Как сохранить класс


1-36696
ruslan_as
2003-12-02 16:08
2003.12.12
Как проверить правильность ввода чисел в Pascale


1-36674
Ivolg
2003-11-29 20:16
2003.12.12
Окно!


4-36887
zdn
2003-10-19 11:31
2003.12.12
Работа с файлами


1-36693
Myrs
2003-12-02 17:28
2003.12.12
Переменная-функция





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский