| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Gif-анимация в Splash-окне [D7, WinXP]
kyn66 © (2007-10-26 12:14:00)Добрый день. Перед выполнением некоторого затяжного процесса вывожу форму с инфой, типа ожидайте, после окончания процесса - убираю ее. Так вот я хочу повесить на эту форму ешшо и 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;
kyn66 (2007-10-30 13:26:00) [1]http://yurec66.narod.ru/Vopros/err3.png
Сергей М. (2007-10-30 13:14:00) [2]
> вылетает ошиба
Каким рейсом ?
kyn66 (2007-10-30 13:12:00) [3]
> 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.
ЮЮ (2007-10-30 11:59:00) [4]> А что я не так, код виден внвчале
Не включил RxGIFAnimator1.AsyncDrawing
Сергей М. (2007-10-30 11:54:00) [5]
> А что я не так
Ты упорноне желаешь ни читать док-цию ни изучать исх-ки компонентов для понимания логики их работы.
Сергей М. (2007-10-30 11:52:00) [6]
> А что я не так, код виден внвчале
Ты используешь какой-то там RxGifAnimator, а я - старый добрый TAnimate)
kyn66 (2007-10-30 11:48:00) [7]А что я не так, код виден внвчале
Сергей М. (2007-10-30 10:38:00) [8]
> Не работает
А у меня работает.
Что я не так делаю ?
kyn66 (2007-10-30 10:35:00) [9]Не работает.... Могет Ему нуно типа Update где-то делать?
Сергей М. (2007-10-30 10:17:00) [10]
> Анимация должна это время скрасить
Брось на сплэш-форму стандартный компонент TAnimate со св-вом Timers = False, воспроизведи с его помощью avi-файл и не парься.
kyn66 (2007-10-30 10:12:00) [11]До того как форму убрать - происходит соединение с 1С, вот это и занимает много времени. Анимация должна это время скрасить
ЮЮ (2007-10-26 12:34:00) [12]> это не только во время создания объкта, вааще не работает.
А после - там только
MesFrm.Hide;
MesFrm.Free;
Попробуй разгляди :)
Reindeer Moss Eater (2007-10-26 12:27:00) [13]это чудеса
kyn66 (2007-10-26 12:26:00) [14]это не только во время создания объкта, вааще не работает.
Reindeer Moss Eater (2007-10-26 12:23:00) [15]во время синхронного вызова создания объекта желтой программы сплэш форма не обрабатывает сообщения.
kyn66 (2007-10-26 12:20:00) [16]Ну ессн, использую компонент RxGIFAnimator1, Animate := True
Palladin (2007-10-26 12:15:00) [17]ну а ты ее, анимацию, включил?
| |
