Исходник программы, показывающей пример отображения GIF-анимации (лоадеры) в Delphi.
В Delphi нет встроенной поддержки GIF-анимации. Однако, в современной Delphi это довольно просто. Добавьте компонент TImage на форму и загрузите в нее через свойство Picture анимированный GIF-файл. Затем запустите анимацию с помощью Animate свойства (Image1.Picture.Graphic as TGIFImage).Animate := True.
Для работы с GIF анимацией используется компонент TGIFImage от Финна Толдерлунда. Последнюю актуальную версию компонента можно скачать на Github.
TGIFImage – это полноценная реализация графического формата GIF на языке TGraphic.
Он читает, записывает и отображает анимированные GIF-файлы, а также может конвертировать их в формат TBitmap (т.е. формат BMP) и любой другой производный от TGraphic формат (например, TJPEGImage, TIcon и TMetaFile). TGIFImage можно использовать как отдельно, так и в составе расширяемой платформы Delphi TImage/TPicture/TGraphic. При использовании в сочетании с компонентом TImage, TGIFImage регистрируется в классе TPicture, обеспечивая мгновенную поддержку формата GIF во всей Delphi. После установки TGIFImage вы сможете загружать, сохранять и отображать GIF-файлы без дополнительного кода!
TGIFImage полностью поддерживает анимированные GIF-файлы и является единственным решением, позволяющим отображать анимированные GIF-файлы в компоненте TImage для Delphi.
TGIFImage реализует полную спецификацию GIF87a и GIF89a, а также все распространенные расширения GIF:
- Прозрачность и чересстрочная развертка
- Локальные и глобальные палитры из 2, 4, 8, 16, 32, 64, 128 и 256 цветов
- Оптимизация палитры
- Задержка и циклы для анимации
- Расширение для текста и комментариев
- Расширения для приложений
- Удаление предыдущего кадра и фонового изображения
- И многое другое...
Базы данных
