VPF::Gif анимация в RichEdit - Форум программистов

Coderr

Дата 13.7.2006, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0

ЗЫ Как работать с компонентом? Попробовал как здесь, прога зависает при закрытии OpenDialog'а...
Как на сайте написано, скачал класс для работы с gif и подключил. Вот код:

Код


uses 
 ...,gifimage, ...
...
procedure TForm1.Button2Click(Sender: TObject);
var gif: TGifImage;
begin
 if not OpenDialog1.Execute then exit;
 gif := TGifImage.Create;
 gif.LoadFromFile(OpenDialog1.FileName);
 RichViewEdit.InsertPicture('Анимация',gif,rvvaBaseline)
end;

Пробовал делать так

Код


procedure TForm1.Button2Click(Sender: TObject);
var gif: TGifImage;
begin
 if not OpenDialog1.Execute then exit;
 gif := TGifImage.Create;
 gif.LoadFromFile(OpenDialog1.FileName);
 application.ProcessMessages;
 RichViewEdit.InsertPicture('Анимация',gif,rvvaBaseline);
 application.ProcessMessages;
 gif.free
end;

- бестолку! Трейсил... Получается, что в подключённом классе идёт бесконечный цикл... Думаю глюк из-за этого...
Попробовал rxGIFAnimator с загруженной gif-кой и свойством animate=true:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
 application.ProcessMessages;
 RichViewEdit.InsertPicture('Анимация',rxGIFAnimator.image,rvvaBaseline);
 application.ProcessMessages
end;

в этом случае gif-ка не проигрывается... Что делать-то?

--------------------

Кодинг - это стиль жизни!

qweqwe

Дата 12.10.2008, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 31.1.2007

Репутация: нет
Всего: 0

Код


...
 var
gif: TRxgifanimator;
    begin
gif:= TRxGIFAnimator.Create(application.Owner);
gif.Image.LoadFromFile('maingif.gif');
gif.Animate:= true;
gif.AutoSize:= true;
Form1.RichView1.AddControlEx('', gif, -1, rvvabaseline);

у меня это работает, а с компонентом TRichEdit не пробовал

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »