![]() | | | ![img]() |
|
 | Форум Delphi: Animation Splash Form (ASF) |
|
|
|
|
|
|
| 21 | #1145 | цитата | 26-03-2009 07:48 |
| Я дико извиняюсь, но могли бы Вы более точно расписать установку данной компоненты под Delphi 2009? Заранее спасибо |
|
| |
|
|
| 22 | #1146 | цитата | 26-03-2009 11:40 |
Никакой установки.
Это не компонент, это модули. Их просто копируете к себе в каталог с проектом и подключаете. Добавляете в uses где надо, а дальше по демам. Если что не понятно, объясню. |
|
| |
|
|
| 23 | #1203 | цитата | 14-04-2009 18:01 |
| Я так и не понял как добавить картинку PNG в файл ресурса? |
|
| | |
|
|
| 25 | #1217 | цитата | 16-04-2009 21:57 |
Andy BitOff
Хорошо, согласен, а файлы dat, по моему, совсем не файлы ресурсов:
"ASFAnimation _ ж ZR ASFIconsќ "? Как их создать? |
|
| |
|
|
| 26 | #1218 | цитата | 16-04-2009 22:18 |
Black
Файлы .dat содержат бинарные данные, а ресурсы, это тоже бинарные данные, и текст, и картинка, это все бинарные данные. Поэтому в ресурсы можно засунуть всё что угодно не считаясь с форматом.
Сохранить ресурсы ASF (то, что в файлах .da  можно как показано в каждой демке и находится в закоментированном виде после строк:
| delphi | //Первая загрузка из файлов и сохранение в один файл
//Затем загрузка идет уже и того файла |
А именно:
| delphi | AnimationSplashForm.Icons.LoadFromResource('ICON1', 'SPLASHDATA');
{ // Первая загрузка из файлов и сохранение в один файл
// Затем загрузка идет уже и того файла
AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'ico1.png');
AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'ico2.png');
AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'ico3.png');
AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'ico4.png');
AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'ico5.png');
AnimationSplashForm.Icons.SaveToFile(SplashImagePath + 'Icons.dat');} // Это и есть сохранение ================== |
| delphi | AnimationSplashForm.AnimationsAddFromResource('ANIMATION1', 'SPLASHDATA');
{ // Первая загрузка из файлов и сохранение в один файл
// Затем загрузка идет уже и того файла
Anim1 := TAnimationFrames.Create;
try
Anim1.DelayBetweenImages := 5;
// Пауза между повторами циклов анимации
Anim1.DelayBetweenPassage := 150;
Anim1.PositionLeft := 214;
Anim1.PositionTop := 59;
for I := 1 to 12 do begin
s := IntToStr(i);
if Length(s) = 1 then
s := '0' + s;
Anim1.AddFromFile(SplashImagePath + 'Animation1 ' + s + '.png');
end;
AnimationSplashForm.AnimationsAdd(Anim1);
Anim1.SaveToFile(SplashImagePath + 'Animation1.dat'); // Это и есть сохранение =====================
finally
Anim1.Free;
end;} |
Нужно раскоментировать эти места, закоментировав загрузку из ресурсов и работать с этим кодом пока не достигните желаемого результата. |
|
| |
|
|
| 27 | #1219 | цитата | 16-04-2009 22:57 |
Andy BitOff
Теперь понял, спасибо. |
|
| |
|
|
| 28 | #1220 | цитата | 16-04-2009 23:45 |
| Да, забыл сказать. В следующей версии будет приятный сюрприз. Следите за обновлениями. |
|
| |
|
|
| 29 | #1223 | цитата | 17-04-2009 10:06 |
Andy BitOff
И ещё пожелание. Сделать ProgressBar управляемым т.е. чтобы можно было установить процент заполнения. |
|
| |
|
|
| 30 | #1224 | цитата | 17-04-2009 10:21 |
Andy BitOff
Добавлю пожелание... Хотелось-бы выставить заставу поверх всех окон. |
|
| | |
| | Тему просматривают: 1 гостей, 0 пользователей | |
|
| | Animation Splash Form (ASF) | Ответов: 128 |
|
|
| |
|
| Статистика |
| | Сегодня | Всего |
| Посетителей | 4553 | 4232932 |
| Запросов | 71105 | 396399253 |
| Online |
| Пользователей | 0 |
| Гостей | 110 |
|
|
|
Пуск
