Всем привет дорогие друзья. В данной статье я хотел бы Вам рассказать о том, как можно в своих проектах Delphi, создать слайд-шоу с различными эффектами из фотографий.

Я недавно делал такой проект, в котором необходимо было реализовать переходы между картинками. Если честно, поначалу думал, как это реализовать самому, но затем решил поковыряться в уже готовых решениях. Это мне удалось сделать быстро, я нашел замечательный компонент Delphi, который называется PicShow. Его можно скачать с официального сайта разработчиков по следующей ссылке, там же есть и примеры, и описание. Сам компонент бесплатен, установить его также просто.

Для того чтобы установить компонент PicShow, необходимо открыть Delphi и выполнить команду Component-Install Component, после чего перейти на вкладку Into new package. В данной вкладке мы указываем три *.pas –файла, которые находятся с папкой в компонент, а затем задаем имя будущему инсталляционному пакету. Дальше действуем также, как и с обычными компонентами при установке.

В списке эффектов данного компонента, числится порядка 176 штук. Поэтому, у Вас будет огромный выбор, который позволит сделать качественный слайд-шоу.

Компонент очень прост в своем использовании. Для того чтобы проиграть слайд из картинки, Вам достаточно написать следующий код:

Исходный код

PicShow1.StyleName:=NameStyles.Strings[count];
PicShow1.Picture.LoadFromFile(Filenames.Strings[count]);
PicShow1.Execute;

Здесь мы задаем имя стиля, можно по номеру это сделать, затем загружаем картинку для текущего слайда и выполняем его. В результате получится что-то вроде этого: