Gif-анимация в Splash-окне

← →
kyn66 © (2007-10-26 12:14) [0]

Добрый день. Перед выполнением некоторого затяжного процесса вывожу форму с инфой, типа ожидайте, после окончания процесса - убираю ее. Так вот я хочу повесить на эту форму ешшо и Gif-картинку, однако она не работает, т.е. нет анимации. В чем дело?
MesFrm := TMesFrm.Create(nil); MesFrm.Lab1.Caption := "Подключаемся к серверу 1C, ожидайте..."; MesFrm.Show; MesFrm.Update; onesobj := CreateOleObject("V77S.Application"); onesobj.Initialize(onesobj.rmtrade, "/D\\MyPath\MyDir /NNik /PPass", "NO_SPLASH_SHOW"); Screen.Cursor := crDefault; MesFrm.Hide; MesFrm.Free;

← →
Palladin © (2007-10-26 12:15) [1]

ну а ты ее, анимацию, включил?

← →
kyn66 © (2007-10-26 12:20) [2]

Ну ессн, использую компонент RxGIFAnimator1, Animate := True

← →
Reindeer Moss Eater © (2007-10-26 12:23) [3]

во время синхронного вызова создания объекта желтой программы сплэш форма не обрабатывает сообщения.

← →
kyn66 © (2007-10-26 12:26) [4]

это не только во время создания объкта, вааще не работает.

← →
Reindeer Moss Eater © (2007-10-26 12:27) [5]

это чудеса

← →
ЮЮ © (2007-10-26 12:34) [6]

> это не только во время создания объкта, вааще не работает.

А после - там только
MesFrm.Hide; MesFrm.Free;
Попробуй разгляди :)

← →
kyn66 © (2007-10-30 10:12) [7]

До того как форму убрать - происходит соединение с 1С, вот это и занимает много времени. Анимация должна это время скрасить

← →
Сергей М. © (2007-10-30 10:17) [8]

> Анимация должна это время скрасить

Брось на сплэш-форму стандартный компонент TAnimate со св-вом Timers = False, воспроизведи с его помощью avi-файл и не парься.

← →
kyn66 © (2007-10-30 10:35) [9]

Не работает.... Могет Ему нуно типа Update где-то делать?

← →
Сергей М. © (2007-10-30 10:38) [10]

> Не работает

А у меня работает.
Что я не так делаю ?

← →
kyn66 © (2007-10-30 11:48) [11]

А что я не так, код виден внвчале

← →
Сергей М. © (2007-10-30 11:52) [12]

> А что я не так, код виден внвчале

Ты используешь какой-то там RxGifAnimator, а я - старый добрый TAnimate)

> А что я не так

Ты упорно не желаешь ни читать док-цию ни изучать исх-ки компонентов для понимания логики их работы.

> А что я не так, код виден внвчале

Не включил RxGIFAnimator1.AsyncDrawing

> RxGIFAnimator1.AsyncDrawing

Работает для процесса ! Окейно. Однако если так сделать в ситуации открытия форм - вылетает ошиба
begin Application.Initialize; Application.Title := "Учет техсредств"; MesFrm := TMesFrm.Create(nil); MesFrm.Lab1.Caption := "Подключаемся к серверу, ожидайте..."; MesFrm.RxGIFAnimator1.AsyncDrawing := True; MesFrm.RxGIFAnimator1.Animate := True; MesFrm.Show; MesFrm.Update; Application.CreateForm(TDM1, DM1); Application.CreateForm(TMainFrm, MainFrm); MesFrm.Hide; MesFrm.Free; Application.Run; end.

> вылетает ошиба

Каким рейсом ?

http://yurec66.narod.ru/Vopros/err3.png

Gif-анимация в Splash-окне Найти похожие ветки